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RELAÇÕES 


Os computadores são capazes de 
executar milhões de operações lógicas 
em apenas um segundo. Mas a lógica é 
também parte fundamental de qualquer 
programa. Conheça seus operadores. 


A programação BASIC utiliza três ti- 
pos de expressão: aritmética, de cadeia 
e lógica. As duas primeiras compõem a 
maior parte de qualquer programa. Po- 
rém, cabe às expressões lógicas a respon- 
sabilidade pelas decisões ao longo de um 
programa. 

A função das expressões lógicas é, 
simplesmente, verificar se algo é **ver- 
dadeiro” ou “falso”. As palavras e sím- 
bolos usados para isso em um progra- 
ma são chamados de operadores (ou, 
ainda, conectores). 

Nas expressões lógicas empregam-se 
dois tipos de operadores: os operadores 
relacionais (que incluem símbolos ma- 
temáticos como <,> e =) e os opera- 
dores lógicos: AND, OR е МОТ (іпсіші- 









dos na lista de comandos de qualquer 
versão BASIC). 


MAIOR; MENOR, IGUAL 


Os operadores relacionais podem ser 
usados até no mais simples dos progra- 
mas em BASIC. As comparações pos- 
síveis são: 

А>В . A é maior que B 
. À é menor que B 
.... À é maior ou igual a B 
.... A é menor ou igual a B 

.Aéiguala B 

. A nào é igual a B 





Vocé já deve ter visto esses operado- 
res em vários programas de INPUT. 
Embora possam ser usadas em aritmé- 
tica direta, é no uso conjunto com o 
IF...THEN que se torna mais evidente 
sua contribuicào nos testes condicionais. 
Um exemplo comum: 

IF ADB THAN PRINT” À É MAIOR 
QUE B" 


E OPERADORES RELACIONAIS 


MAIOR, MENOR, IGUAL 


п OPERADORES LÓGICOS 


AND, OR E NOT 
TABELAS-VERDADE 


Neste caso, o valor de A deve ser 
maior que o de B para que o restante da 
linha seja executado. Sempre que o va- 
lor de A for menor que o de B, o pro- 
grama saltará para a próxima linha. O 
exemplo torna evidente a possibilidade 
de um salto condicional: se um conjun- 
to de valores satisfaz a condição, então 
o programa faz algo; se é um outro con- 
junto de valores que a satisfaz, então o 
programa faz outra coisa. 

O uso dos operadores relacionais não 
se limita a valores numéricos. Eles tam- 
bém podem ser empregados para com- 
parar cadeias. Contudo, isso requer cer- 
ta cautela; caso contrário, obtêm-se re- 
sultados um tanto quanto estranhos. É 
importante lembrar, em primeiro lugar, 
que a comparação sempre pára no últi- 
mo caractere da cadeia mais curta. Ou 
seja, se uma cadeia contém onze carac- 
teres e outra contém sete, somentê os se- 
te primeiros da cadeia mais longã serão 
comparados com os da cadeia mais 
curta. 

Na realidade, a comparação é feita 
com um cáfiactere йе сайа уе 0а es- 











querda para a direita — e aqui se encon- 
tra a explicação para o surgimento de re- 
sultados estranhos. Numa comparação 
numérica, a afirmação 5>10 é obvia- 
mente falsa mas, numa comparação en- 
tre cadeias, pode-se ter uma afirmação 
na forma A$>BS$. Se A$=“5" е 
B$=*10”, o computador compara pri- 
meiro os caracteres à esquerda — Se 1. 
Em seguida pára, pois para ele não há 
mais nada a ser comparado. 

Assim, temos uma condição “'verda- 
deiro” incorreta, pois 5 é maior que 1, 
mas o computador ignorou o caractere 
que restou na cadeia mais longa. Esteja 
sempre atento a erros como este. 

Nas cadeias, as letras do alfabeto se- 
guem a seguinte ordem de comparação: 
“A” < “B” <“C”<“D", e assim por 
diante. Mais uma vez, seja cauteloso, 
pois o computador não entende o signi- 
ficado dos caracteres. Na verdade, o que 
ele faz é comparar os códigos dos carac- 
teres, o que explicaremos com mais de- 
talhes num próximo artigo. Em conse- 
qüência, os espaços e outros caracteres 
que não são letras tornam-se tão impor- 
tantes quanto as próprias letras, pois ca- 
da um tem seu código. Esquecer-se dis- 
so resultaria em erro, por exemplo, num 
programa que coloca cadeias em ordem 
alfabética. 

Se cada cadeia tem a mesma seqüên- 
cia de caracteres, a mais longa será con- 
siderada a maior, numericamente. Mas 








note que a cadeia mais curta é tomada 
como a maior numa expressão como 
“ABD” >*“ABCD”, pois a compara- 
ção para quando encontra a primeira di- 
ferença — ou seja, quando os valores 
dos códigos de “Ы” e “C” são compa- 
rados. A prioridade, portanto, é pare- 
cida com aquela dos dicionários ou ín- 
dices, onde ““атог” vem antes de 
“атогово” mas depois de “amargo”. 


VERDADEIRO OU FALSO 


Depois de qualquer comparação, 
obtém-se um resultado — um número 
inteiro. Este é 0, se a comparação for 
falsa, e —1 ou 1 (dependendo da má- 
quina), se for verdadeira. 

Experimente inserir no seu micro- 
computador, em modo direto (imedia- 
to), a seguinte linha: 











PRINT 6>5 , 5>7 
A expressão da esquerda é verdadei- 
aea da direita, falsa, Você verá apa- 
er na tela, portanto, o resultado 1 (ou 










Os resultados obtidos nu: 

о podem ser usados em c 
decorrer do programa. Mas t 
do com a divisão: qualquer te 
dividir um número por O resi 
ma mensagem de erro. 






compa- 
culos no 
ne cuida- 
ativa de 
aria nu- 



















OPERADORES LÓGICOS 


AND, OR e NOT sào operadores ló- 
gicos que auxiliam na tarefa de decisão 
do IF... THEN (página 41). Por exem- 
plo: IF (se) isto é verdadeiro AND (e) 
aquilo é verdadeiro THEN (então) faça 
alguma coisa. Os outros dois operado- 
res seriam usados da mesma maneira 

Estes operadores — às vezes chama- 
dos de operadores booleanos (inventa- 
dos pelo matemático inglês George Boo- 
le) — podem ser empregados para com- 
parar números ou cadeias, tanto no mo- 
do direto como no modo de programa, 
e obter um “'valor verdade” para o que 
se considera uma condição de teste mui- 
to complexa. Eles oferecem um caminho 
mais curto para o cumprimento de uma 
tarefa que envolveria um amontoado de 
IF... THEN 








O uso 








Simplificadamente, o operador AND 
pode ser considerado como tendo o sig- 
nificado de E. Numa expressão como 


ІҒ У>0 AND V<100 
PRINT” PERMITIDO ” 


„а mensagem aparece na tela somente 
se V for maior que O e menor que 100. 











Num programa, teríamos algo como: 


кашаа е 


990 OKAY=1 AND MES>5 AND MES<10 
AND ANO>1900 AND ANO<2001 


nau 


990 OKAY=-1 AND MES>5 AND MES<1 
0 AND ANO>1900 AND ANO<2001 


Uma linha de programa como esta 
poderia ser empregada para vários fins 
— por exemplo, para verificar se uma 
certa data caiu no inverno, no século 
vinte. 

Utiliza-se o AND, no caso, para co- 
mandar quatro testes. Todos devem ser 
verdadeiros para que a variável OKAY 
permaneça como verdadeira. Nesse tes- 
te de validade, primeiramente ajusta-se 
a variável OKAY como “verdadeira” 
(— 1, ou 1 no Sinclair e Apple). Depois, 
a condição necessária é que MES esteja 
entre 6 e 9 e que AND esteja entre 1901 
e 2000 (inclusive). 

Verifiquemos mais de perto o que 
acontece: se as condições forem total- 
mente satisfeitas, todas as expressões 
produzirão um valor verdadeiro. Em 
conseqiiência, a linha de programa fi- 
caria assim: 









990 OKAY= -1 AND -1 AND -1 AND 
-1 AND -1 


(nos micros da linha Sinclair e Apple se- 
ria 1, em vez de —1) 


Se acrescentarmos PRINT OKAY, 
verificaremos que, de fato, o resultado 
é —1, ou seja, verdadeiro. 


USO DO OR 


Embora o significado de OR (tradu- 
zindo, teríamos OU) seja diferente do 
de AND, ambos podem ser conside 
dos semelhantes em relação à mane 
como são usados. 

Vejamos um exemplo simples, que 
emprega OR na comparação de valores 
de uma determinada variável. 












IF V-8 OR V-10 PRINT" OKAY " 


A mensagem aparecerá na tela se o 
valor de V for 8 ou 10. 

O emprego do OR é muito ütil na 
verificação da validade dos dados in- 
troduzidos no computador via coman- 
do INPUT. Se temos, por exemplo, 
um programa que pergunta pela idade, 
com certeza haverá alguém que, só por 
curiosidade, responderá —10 ou 999. 

Para contornar problemas como es- 
se, usamos a seguinte alternativa: 





10 INPUT A 
20 IF A<l OR A>120 THEN PRINT” 
SEJA SENSATO ”: GOTO 10 


0 мот 





O terceiro operador lógico de uso 
bastante comum é o NOT. Ele difere um 
pouco dos outros, pois age somente na 
expressão numérica ou lógica que o se- 
gue — AND e OR comparam expressões 
nos dois lados, mas NOT trabalha so- 
bre um único valor. 

Veja um exemplo do uso do NOT. 





IF NOT (A>10) THEN 999 


Se traduzissemos isto para uma lin- 
guagem do dia-a-dia teríamos: ““se o va- 
lor de A não é maior que 10, então vá 
para a linha 999", 

A função lógica do NOT é converter 
para falsa uma condição verdadeira, ou 
vice-versa. Poderíamos utilizá-lo, por 
exemplo, como uma chave que inverte 
a condição falso/verdadeiro obtida no 
resultado de uma operação anterior. 


TABELAS - VERI 


Ouvimos falar de **tabela=verdade” 
sempre que o assunto é operadores ló- 
gicos. Bem, elas são muito simples. Sua 











função consiste em fornecer uma repre- 
sentação visual do que acontece com os 
falso/verdadeiro quando usamos AND 
e OR sobre eles. NOT não precisa de ta- 
bela, já que produz sempre o inverso. 

As tabelas podem assumir várias for- 
mas; uma típica para o AND é: 


A B с 


-1 -1 
=l 0 
0 -1 
0 0 


=1 linha 1 
0 
0 


linha 2 
linha 3 
0 linha 4 


Para desvendar o significado da ta- 
bela, basta interpretá-la linha por linha. 
Linha 1: “Se A é verdadeiro e B é ver- 
dadeiro, então C também é verdadei- 
ro”, Linha 2: “Se A é verdadeiro e B 
é falso, então C é falso”. Linha 3: “Se 
A é falso e B é verdadeiro, então C é fal- 
so”, Linha 4: “Se A e B são ambos fal- 
sos, então C é falso”. 


A tabela-verdade para o OR é: 
A 


linha 1 
linha 2 
linha 3 


Na primeira linha, lê-se: 
dadeiro e B é verdadeiro, então C é ver- 


dadeiro””. Nas linhas 2 e 3 lê-se: “Se A 
ou B for verdadeiro, então C é verda- 
deiro”. A linha 4 significa: “Se A e B 
são ambos falsos, então C também é 
falso” 


саннан c NN 


Apresentamos aqui um programa 
que usa AND, OR e NOT. Trata-se de 
uma versão simplificada de um progra- 
ma que calcula a escala de salário cor 
reta para o candidato a um emprego. 


10 INPUT" IDADE” ; IDADE 

20 INPUT"NUMERO DE REFERENCIAS" 
;REF 

30 MAIOR18» (IDADE>=18) 

40 QUAL=(REF>=5) 

50 IF NOT MAIORI8 AND NOT QUAL 
THEN PRINT "NAO QUALIFICADA” 

60 IF(NOT MAIOR18 AND QUAL)OR (M 
AIOR18 AND NOT QUAL) THEN PRIN 
T "ESCALA 1 DE SALARIO” 

70 IF MAIOR18 AND QUA! 

INT "ESCALA 2 DE SALAR 


Digamos que o candidato 
pondido 20 para idade e 
mero de referências. Isso sil 
(IDADE> =18) é verdad 
(REF > =5) é falso. A pess: 
to, é MAIORI8 e NÃO QU. 
Na linha 60, encontramos о! 
to de condições que, caso sa! 


leciona a primeira escala de salários. Po- 
deríamos facilmente modificar o progra- 
ma para testar mais condições, por 
exemplo: verificar se a pessoa tem mais 
de dois anos de experiência, etc. 


кыши н! =m 


O uso dos operadores lógicos não es- 
tá limitado somente ao IF...THEN. Eles 
também podem ser usados com alguns 
tipos de operações numéricas. Talvez 
você tenha visto esse tipo de uso em pro- 
gramas anteriores, mas ficou sem saber 
o que estava acontecendo. Na verdade, 
eles nem sempre funcionam da maneira 
óbvia, como poderíamos esperar. Ten- 
te isto no modo direto: 


PRINT 375 AND 47 


Se você esperou que o resultado fos- 
se 422 ou até mesmo 37547, errou. Na 
verdade, temos 39 como resultado. O 
que estaria acontecendo então? Somente 
se nos aprofundarmos um pouco no 
funcionamento dos computadores pode- 
remos entender o que ocorre com o 
AND desse exemplo. 

Em primeiro lugar, as expressões (375 
e 47) são transformadas em números in- 








teiros de dois bytes. Na forma binária, 
ficam assim: 


375 em binário de dois bytes: 
0000000101110111 

47 em binários de dois bytes: 
0000000000101111 


Em seguida, o AND compara bit a 
| bit todos os dezesseis bits, produzin- 
do um **1”* somente quando, no par de 
bits comparados, ambos forem **1”. Da 
direita para a esquerda, os únicos pares 
de bits que satisfazem (produzem **1””) 
são os de números 0,1,2 e 5. Isto resul- 
ta no número binário 00000000001001 1 1 
que, transformadoj para decimal, é 39. 
Portanto, 375 AND 47 é igual a 39. 
Agora, tente em modo direto: 


PRINT 375 OR 47 






Como obtivemos 383? Lembre-se da 
propriedade do OR: produz-se “1” 
quando, no par de bits comparados, pe- 
lo menos um dos bits for **1”. Obser- 
vando novamente a forma binária de 
375 e 47, vemos que os pares de bits de 
número 8, 6, 5, 4, 3,2, 1e 0 produzem 
“17” quando comparados pelo OR. Is- 
to resulta no binário 0000000101111111, 
que equivale ao 383 deci К 

Com OR é possível ob 
resultado, usando expresso 
PRINT 375 OR 75, por e: 







diferentes. 
plo, tam- 










































bém resulta em 383. Caso queira verifi- 
car, faça o seguinte: converta para bi- 
nário, compare pelo OR e converta de 
volta para decimal o resultado obtido. 

O valor —1 |(armazenado como 
FFFFFFFF em hexadecimal — um ar- 
ranjo de bits onde todos valem 1) náo 
se altera quando comparado pelo OR 
com qualquer outro valor, Faça uma ex- 


periência, tentando no modo direto: EXISTE LIMITE PARA O TAMANHO 


DOS NÚMEROS USADOS EM AND E 
OR? 

No TRS-Color e MSX, os números 
empregados em qualquer operacáo 
com AND ou OR tém que estar entre 
- 32768 e « 32767; caso contrário, 
teremos uma mensagem de erro. 

No Spectrum, Apple e TK-2000 nào 
é possível usar números nas operações 
AND ou OR 


PRINT -1 OR 375 

O resultado é —1. 

Vejamos agora uma aplicação numé- 
rica para o NOT. 


PRINT NOT 10.75, 


O resultado é —11 e 10. O NOT so- 
mou 1 ao valor e depois mudou seu si- 
nal. Note que a parte não inteira (.75) 
foi ignorada e eliminada, e que o novo 
valor pode ser estimado usando X= 
—(X+ 1). Na realidade, o valor é trans- 
formado num inteiro de quatro bytes, 
com todos seus bits invertidos. 


какая) 


Os operadores lógicos destes compu- 
tadores não fazem comparação bit a bit 
dos números e, por isso, quase nunca 
são usados em operações numéricas. 


NoT -11 
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Chegou a hora de preencher o mundo d 
ainda vazio de nossa aventura, i 
DA AVENTURA Você verá aqui como acrescentar j 


ao programa uma lista de objetos 
Na última seção de Programação de 


Jogos, dispúnhamos de um conjunto 
completo de posições para nossa aven- 
tura e o jogador já estava capacitado a 
explorar todas elas. As movimentações 
do aventureiro, porém, até agora não 
têm propósito, uma vez que o mundo da 
aventura está vazio. Convém, assim, re- 
tomar o planejamento inicial e examinar 
o que se pretendia incluir em cada ponto. 

Veremos, em seguida, como adicio- 
nar ao programa as rotinas que colocas 
ráo os objetos envolvidos na aven- 
tura em seus devidos lugares. 
Outras rotinas permitirão ao 
jogador carregar objetos consi: 
go ou deixá-los de lado, Escre- 
veremos, ainda, uma rotina pa- 
ra listar um inventário de todos 
os itens utilizados — ela será 
importante para o jogador, quando: 
ele se deparar com um problema €: 
cisar verificar exatamente a situaçã 
cada objeto. 

Use o LOAD e carregue o prog 
usado recentemente, deixando-o! 
to para receber as novas rotinas, 























































OBJETOS 


A máquina precisa saber trés. 
sobre cada objeto da aventura: 
ro de posição onde foi inicialment 
locado, seu nome (ou descrição @ 
e, finalmente, a descri 
local onde se encontra, As três 
ções são necessárias já que, primeiro, 0 BN 
computador deverá escolher um objeto | 
adequado a cada posição. Depois, pres 
cisará contar ao aventureiro que obje- 
tos estão nesta posição — mesmo que 
use uma longa descrição. E, por último, 
terá que dispor de um nome para usar 
em instruções e na lista 

Os números de posição serão coloca- 
dos em uma matriz, o nome do objeto 
em outra, e a descrição longa em uma 
terceira. As três matrizes serão manipu- 
ladas em paralelo pelo programa — ca- 
da elemento da matriz guardará um es- 
paço equivalente de informação sobre o 
objeto: o primeiro conterá o número da 
posição, o segundo o nome do objeto e 
assim por diante. Adicione estas linhas 
ao seu programa: 
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LINHAS DATA BE MAIS VERBOS 

PARA A LISTA DE OBJETOS EH COMO PEGAR E LARGAR OBJETOS 

Ш DESCRIÇÕESCURTASELONGAS NI COMO MOSTRAR AO JOGADOR 
п COLOCAÇÃO DOS OBJETOS A LISTA DOS OBJETOS 
NAS POSIÇÕES CORRETAS QUE CARREGA 





































160 REM **PREPARA MATRIZES DE 

OBJETOS** 

170 READ NB 

180 DIM B(NB): DIM BS(NB,14): 

DIM SS (NB,40) 

190 FOR 1-1 ТО NB: READ В(1),В 
$(1),SS(I): NEXT I 

200 DATA 7,4,"SACO","HA UM SAC 
O DE BOLAS DE GUDE AQUI” 

210 DATA 14,"TIJOLO","TEM UM T 
IJOLO NO CHAO" 

220 DATA 24,"CORRENTE","HA UMA 
CORRENTE PENDURADA SOBRE O TR 
оно" 

230 DATA 0,"REVOLVER","TEM UM 

REVOLVER NO CHAO" 

240 DATA 0,"OLHO","UM OLHO CRA 
/"VEJADO DE BRILHANTES ESTA NO C 
оңдо” 

50 DATA 22,"LAMPADA”, "VOCE ES 
JA DIANTE DE UMA LAMPADA" 

0 DATA 0,"COLETOR”,”DE REPEN 
Е SURGE UM COLETOR DE IMPOSTO 


O REM **PREPARA MATRIZES DE O 

ETOSK* 

0 READ NB 

O DIM OB(NB) ,OBS (NB) ,SIS (NB) 

O FOR I=1 TO NB:READ OB(I),0B 
),51$(1 EXT 

100 DATA 7,4,SACO,HA UM SACO DE 
BOLAS DE GUDE AQUI 

O DATA 14, TIJOLO, TEM UM TIJOL 
NO CHAO 

E 220 DATA 24,CORRENTE,HA UMA COR 
— RENTE PENDURADA SOBRE O TRONO 

230 DATA O,REVOLVER, TEM UM REVO 

* LVER NO CHAO 

240 DATA O,OLHO,UM OLHO CRAVEJA 

DO DE BRILHANTES ESTA NO CHAO 

250 DATA 22,LAMPADA, VOCE ESTA D 

ТАМТЕ DE UMA LAMPADA 

260 DATA 0,COLETOR,DE REPENTE S 

URGE UM COLETOR DE IMPOSTOS 


Cada linha entre 200 e 260 contém 
trés partes dos dados referentes ao mes- 
mo objeto. A linha 200 apresenta um 
dado a mais em sua lista. O número 7 
— o primeiro do comando DATA — diz 
A máquina quantos conjuntos de dados 
existem. 

Uma vez que o número 7 tenha sido 
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lido pela linha 170, três matrizes serão 
dimensionadas para este tamanho, pela 
linha 180. OB conterá a posição de 

da objeto — um número da posição, ou 
0, se o elemento ainda não existe (é co- 
mo se fosse a tampa de um baú, que pre- 
cisasse ser aberto a cada aventura), е 
—1, se está sendo levado pelo aventu- 
reiro. OB$ conterá a descrição curta e 
SI$ a descrição longa. 

A linha 190 completará a matriz com 
os dados das linhas 200 a 260. Os co- 
mandos DATA estão arrumados em 
conjuntos de três elementos: um núme- 
ro de posição, a descrição curta do ob 
jeto e a descrição longa do objeto. 

Para usar a mesma rotina em outras 
aventuras, não é necessário fazer mui- 
tas alterações nessa estrutura, pois, ajus- 
tando a primeira parte dos dados, au- 
tomaticamente os comandos FOR 
NEXT e as dimensões das matrizes es- 
tarão ajustados. 


' . COMO POSICIONAR OS OBJETOS 


O programa contém agora todas as 
informações sobre os objetos e as posi- 
ções onde deverão ser colocados. A ro- 
tina seguinte exibe a descrição longa do 
objeto quando o jogador está no local 
adequado. 


360 REM **COLOCA CADA OBJETO E 
M SEU LUGAR** 

370 FOR I=1 ТО NB: IF B(I)=L 
THEN PRINT S$(I) 

380 NEXT I 


иии и/ 12) 


360 REM**COLOCA CADA OBJETO EM 
SEU LUGAR** 

370 FOR I=1 TO NB:IF OB(I)=L T 
HEN PRINT SIS(I) 

380 NEXT 


Neste estágio, faça uma pequena al- 
teração nas linhas 330 e 340; troque GO- 
TO 400 para GOTO 370. As linhas 370 
e 380 checam a matriz que guarda a po- 
sição do objeto. Se algum número de 
posição combinar com 
te — L — uma descri 
bida após a descrição da posição. E 
rotina pode ser usada em outras aven- 
turas, sem alte: es. 


МА15 УЕНВ05 


A aventura inclui objetos em diferen- 
tes posições mas, como a máquina até 
aqui não entende qualquer palavra ex- 





ceto NORTE, SUL, LESTE e OESTE, 
o pobre aventureiro não pode fazer na- 
da com eles. Imagine sua frustração ao 
se ver incapaz de pegar o tão desejado 
saquinho de bolas de gude, ou sem con- 
dições de se defender do fiscal da Re- 
ceita! Precisamos fornecer ao computa- 
dor um vocabulário de palavras que ele 
possa reconhecer, informando o que fa- 
zer com os objetos. Mais tarde, veremos 
como proceder se o jogador entrar uma 
palavra que não está no vocabulário 
programado. 

Como o programa trata todas as pa- 
lavras de direção como verbos, o melhor 
lugar para os verbos, que descrevem o 
que fazer com os objetos, é a matriz R$ 
e, para os números correspondentes, R. 

Precisaremos, no entanto, fazer algu- 
mas alterações na linha 130. Os limites 
do FOR...NEXT deverão ser mudados. 
Reescreva toda a linha ou use o editor 
da máquina para mudá-la. Seja qual for 
sua escolha, a linha 130 será agora: 


130 FOR K=1 TO 19: READ RS(K), 
R(K): NEXT K 


al Uli) 


130 FOR K=1 TO 19:READ RS(K),R( 
K) :NEXT 


Agora, adicione as linhas 140 e 145: 


140 DATA "NADAR","5","ESVAZIAR 
","6" ,"ACENDER" , "7", "DESISTIR" 
,"8B","LISTAR","9","MATAR","10" 
;"ATIRAR","10","AJUDAR","11" 
145 DATA "PEGAR","2","APANHAR" 
,"2","CARREGAR","2","COLOCAR", 
"3","DEIXAR","3","LARGAR","3", 
"PUXAR","4" 


вни) 


140 DATA NADAR,5, ESVAZIAR,6,ACE 
NDER,7, DESISTIR,8,LISTAR,9,MATA 
R,10,ATIRAR,10,AJUDAR,11 

145 DATA PEGAR,2,APANHAR,2,CARR 
EGAR, 2, COLOCAR, 3, DEIXAR, 3, LARGA 
R,3,PUXAR, 4 


A cada verbo corresponde um nüme- 
ro. Verbos com o mesmo nümero pos- 
suem o mesmo significado e, portanto, 
o mesmo efeito. Planejamos o progra- 
ma de modo que o computador reconhe- 
ça, por exemplo, PEGAR, APANHAR 
e CARREGAR, evitando que o aventu- 
reiro gaste seu precioso tempo tentando 


descobrir qual desses verbos usar. Você 
pode facilmente adicionar suas próprias 
palavras às linhas de comando DATA: 
basta trocar o laço FOR... NEXT na li- 
nha 130 e colocar outro comando DA- 
TA após a linha 145. Você deverá fazer 
algumas alterações em outros locais do 
programa mas, nas próximas seções de 
Programação de Jogos, informaremos 
exatamente como proceder. 


SELEÇÃO D, 





OTINAS ADEQ! 





Depois de entrar todos os verbos na 
última rotina, o computador precisará 
de outras rotinas que o tornem capaz de 
agir conforme as instruções e de fazer 
com que o aventureiro carregue alguns 
objetos. 

A sub-rotina que começa na linha 
3010, por exemplo, define V$, N$ eI 
(um nümero da matriz R que vocé já de- 
ve ter escrito). 

Esta pequena rotina fará com que a 
máquina seja capaz de selecionar a ro- 
tina correta, de acordo com o valor de 
I — que é o significado da entrada do 
aventureiro. 


O Spectrum não tem o comando 
ON...GOTO, usado em programas pa- 
ra outros computadores. As linhas do 
programa, portanto, têm que ser um 
pouco diferentes. 

Já temos uma matriz, G, que contém 
números de linha para as descrições de 
ição. Os números de linha nece: 
s às novas rotinas podem ser adicio- 
nados a esta matriz. 

Por isso, a linha 30 ficou assim: 








30 FOR N=1 TO 4: FOR M=1 TO 


NEXT M: NEXT 





E é também pelo motivo acima que 
essa linha contém todos os números de 
linha que precisaremos (veja a explica- 
ção completa no artigo da página 270). 
70 DATA 1010,1150,1240,1310, 
1410,1460,1500,1360,1080,1550 
‚3110 


Agora, adicione a rotina que solucio- 
nará a rotina correta, de acordo com o 
valor de I: 


500 REM **SELECIONA OPCAO** 
510 IF I-0 THEN GOTO 520 
520 PRINT '"EU NAO SEI COMO "; 
V$: GOTO 370 

Se a sub-rotina de verificação de ins- 
trução que começa na linha 3010 não en- 
contrar uma combinação para V$ em 
R$, Itorna-se zero e a linha 510 faz com 


que a mensagem “EU NÃO SEI CO- 
MO” surja na tela. Se I tiver qualquer 
outro valor, a linha 515 encontra o nú- 
mero de linha correto na matriz G e exe- 
cuta um GOTO. 


"а С) 


500 REM**SELECIONA OPCAO** 

505 IF I=0 THEN GOTO 520 

510 ON I GOTO 1010,1150,1240,13 
10,1410,1460,1500,1360,1080,155 
0,3110 

520 PRINT:PRINT 
O0 ";V$:GOTO 370 


Os nümeros após o ON...GOTO na 
linha 510 iniciam as diversas rotinas. 
Cada valor de I é um verbo diferente ou 
um grupo de verbos. Se I=10, por 
exemplo, a rotina “MATAR” será se- 
lecionada — e, sendo o décimo número 
na linha, ela começará na linha 1550. 

Se a sub-rotina de verificação de ins- 
trução que começa na linha 3010 não en- 
contrar uma combinação de V$ em R$, 
T torna-se 0. Nesse caso, o ON...GOTO 
na linha 510 nào terá nenhum efeito. A 
mensagem na linha 520 será exibida na 
tela. 


"EU NAO SEI COM 





'OMO PEGAR OS OBJETOS 


Já temos uma rotina para quando I 
for igual a 1, o que ocorre quando o 
aventureiro dá uma ordem. Ela está en- 
tre as linhas 1010 e 1060. 

Quando 1=2,o aventureiro digitou 
uma rotina “PEGAR” — ou seja, as 
palavras PEGAR, APANHAR ou 
CARREGAR. Esta rotina, apresentada 
a seguir, permitirá ao aventureiro pegar 
e conservar consigo qualquer objeto que 
esteja na posição. 


1140 REM **PEGAR** 

1150 FOR G-1 TO NB 

1160 IF N$-B$(G, TO LEN N$) THE 
м бото 1190 

1170 МЕХТ С 

1180 PRINT N$;"???": GOTO 330 
1190 IF B(G)--1 THEN PRINT "VO 
CE PEGOU": GOTO 330 
1200 IF B(G)<>L THEN 
O ESTA AQUI”: GOTO 330 
1210 PRINT "OK": LET B(G)=-1 
1220 GOTO 330 


nau 


1140 REM**PEGAR** 

1150 FOR 6-1 TO NB 

1160 IF INSTR(OBS(G),N$)=1 THEN 
бото 1190 


PRINT "МА 








1170 NEXT 

1180 PRINT NS;”???”:GOTO 330 
1190 IF 0B(G)=-1 THEN PRINT "VO 
CE PEGOU":GOTO 330 

1200 IF OB(G)<>L THEN PRINT "NA 
O ESTA AQUI":GOTO 330 

1210 PRINT "OK":OB(G)--1 

1220 GOTO 330 


41%! 


1140 REM ** PEGAR ** 
1150 FOR G = 1 TO NB 





1160 IF N$ = LEFTS (OBS(G), L 
EN (N$)) THEN 1190 

1170 NEXT 

1180 PRINT N$ ??"; GOTO 330 
1190 IF OB(G) - 1 THEN PRI 


NT "VOCE PEGOU": GOTO 330 

1200 IF OB(G) < > L THEN PRI 
NT "NAO ESTA AQUI": GOTO 330 
1210 PRINT "OK":OB(G) - - 1 
1220 GOTO 330 


As linhas 1150 a 1170 procuram a 
matriz contendo a descrição curta — В$, 
no caso do Spectrum, e OB$ nos demais 
computadores — do objeto que o aven- 
tureiro chamou. Se este é encontrado, 
o programa pula para a linha 1190. Ca- 
so contrário, a linha 1180 exibe o nome 
do objeto que o aventureiro digitou, se- 
guido de pontos de interrogação. 

Depois de encontrar o nome do ob- 
jeto, duas verificações são feitas. A li- 
nha 1190 checa o elemento da matriz de 
posição do objeto — B ou OB —, para 
saber se ele já foi levado. Em caso afir- 
mativo (o valor do elemento da matriz 
é —1), ajmensagem “VOCÊ PEGOU” 
será exibida, 

A linha 1200 verifica se o objeto está 
presente, examinando novamente a po- 
sição da matriz. Se ele não estiver pre- 
sente, о programa exibirá a mensagem 
“NÃO ESTA AQUI”. Você poderá tro- 
car essa mensagem, se ela não servir pa- 
ra a sua aventura. 

Caso o objeto não tenha sido levado 
e se encontre na mesma posição que o 
aventureiro, a linha 1210 exibirá “OK” 
e o elemento na matriz de posição de ob- 
jetos será mudado para –1. 


COMO DEIXAR OBJETOS DE LADO 


A rotina “DEIXAR” faz o contrá- 
rio. Ela permite que o jogador abando- 
ne qualquer dos objetos que pegou. 


1230 REM **DEIXAR** 

1240 FOR G=1 TO NB 

1250 IF N$=BS(G, TO LEN NS) THE 
N GOTO 1270 






1260 NEXT G: PRINT N$;"???": GO' 
TO 330 

1270 IF B(G)<>-1 THEN PRINT "V 
OCE NAO PODE LARGAR O QUE NAO T 
ЕМ": GOTO 330 
1280 PRINT "OK": 
1290 сото 330 


imu: 


1230 REM**DEIXAR** 

1240 FOR G-1 TO NB 

1250 IF INSTR(OBS(G),NS)=1 THEN 
1270 

1260 NEXT:PRINT NS 
30 

1270 IF OB(G)X»-1 THEN PRINT "V 
OCE NAO PODE LARGAR O QUE NAO T 
EM” :GOTO 330 

1280 PRINT "OK":OB(G)-L 

1290 GOTO 330 


15] 


1230 REM ** DEIXAR ** 

1240 FOR G = 1 TO NB 

1250 IF N$ = LEFTS (OBS(G), L 
EN (N$)) THEN 1270 

1260 NEXT : PRINT N$;” ??”: GO 
TO 330 
1270 
PRINT 


LET B(G)=L 


;"???":GOTO 3 


IF OB(G) < » - 1 THEN 
"VOCE NAO PODE LARGAR O Q 
UE NAO ТЕМ": СОТО 330 

1280 PRINT "OK":OB(G) = L 
1290 сото 330 


Seu funcionamento se assemelha 
muito ao da rotina “PEGAR”, vista an- 
teriormente. A matriz de descrição cur- 
ta é mais uma vez procurada — agora 
nas linhas 1240 a 1260. Se o objeto pe- 
dido estiver na matriz, a linha 1270 ve- 
ca se está sendo levado pelo aventu- 
reiro. Se não estiver, o computador exi- 
birá a mensagem “VOCÊ NÃO PODE 
LARGAR O QUE NÃO TEM”. 

Se o aventureiro estiver carregando 
o objeto, a linha 1280 exibe “OK” e o 
elemento apropriado na matriz de posi- 
ção de objetos — OB ou B — é ajusta- 
do. Ele toma, então, o número da posi- 
ção corrente — L —, já que —1 sig 
ca que o objeto estava sendo carregado. 


A LISTAGEM DO SAQUE 


O aventureiro distraído ficará muito 
grato ao obter uma lista de todos os ob- 
jetos que carrega. 

Aqui está uma rotina que faz exata- 
mente isso: 


1070 REM **LISTAR** 
1080 PRINT "VOCE TEM ";: LET IN 
-0 














1090 FOR G-1 TO NB 
1100 IF B(G)--1 THEN PRINT TAB 


10;B$(G): LET IN-IN*1 
1110 NEXT G 
1120 IF IN-0 THEN PRINT "NADA" 


1130 60Т0 330 


nuu 


1070 REM**LISTAR** 
1080 PRINT "VOCE TEM 
1090 FOR G-1 TO NB 
1100 IF OB(G)=-1 THEN PRINT TAB 
(10) 0B$ (G) : IN-IN*1 

1110 NEXT 

1120 IF IN-0 THEN PRINT "NADA" 
1130 GOTO 330 


[é ILS] 


IN-0 





1070 REM ** LISTAR ** 
1080 PRINT "VOCE TEM ";:IN = O 
1090 FOR G = 1 TO NB 
1100 IF OB(G) - - 1 THEN PRI 


NT TAB( 10);OBS(G):IN = IN + 1 
1110 NEXT 

1120 IF IN = O THEN PRINT 
DA" 

1130 сото 330 


“VOCÊ TEM” será exibido pela li- 
nha 1080, antes que se inicie a listagem 
dos objetos. O laço FOR...NEXT che- 
ca, um a um, os elementos da matriz de 
posições de objetos. Dessa vez, os ele- 
mentos importantes são os que contêm 
-1, indicando que o objeto está sendo 
carregado. Se o valor de qualquer um 
dos elementos for —1, a descrição cur- 
ta do objeto será, então, exibida. O con- 
tador do inventário I será incrementa- 
do de 1. 

Se nenhum objeto estiver sendo car- 
regado, o contador IN continua em ze- 
ro e a linha 1120 exibe “NADA”, em 
vez da lista de objetos. 

As rotinas “PEGAR”, “DEIXAR” 
e “LISTAR” podem ser usadas como 
estão, se NB for definido em uma roti- 
na anterior. 

Agora, O programa está pronto pa- 
ra receber as rotinas finais, que serão 
apresentadas num próximo artigo. Elas 
se referem ao fiscal da Receita, ao ti- 
jolo, à lâmpada, à procura do globo 
ocular, ao término da aventura e, fi- 
nalmente, à instrução descrevendo o ob- 
jeto da busca. 

Se você fizer uma experiência, execu- 
tando o programa neste estágio, verá 
que, enquanto parte dele funciona, al- 
guma coisa estranha acontece. A razão 
para isso é que o programa requer um 
número de rotinas que ainda não exis- 
te. Se você entrar certas palavras, O pro- 
grama tentará desviá-las para linhas ine- 
xistentes. 


"Ni 








Nenhum programa está livre de erros. 
Aprenda a localizá-los e habitue-se a 
corrigi-los na medida em que aparecem. 
Esta é, sem dúvida, a melhor maneira 
de evitar problemas mais sérios. 


Nenhum programa, de qualquer ta- 
manho, que esteja sendo desenvolvido 
ou simplesmente copiado de uma lista- 
gem, está completamente livre de erros 
— os “'grilos”. Estes aparecem pelas 
mais diversas razões e comprometem o 
programa em graus diferentes. 

Os erros mais sérios podem impedir 
que um programa seja rodado. Outros, 
simplesmente, permanecem ocultos, até 
que certa rotina ou seqiiência de entra- 
das os revele. Por exemplo, em um jo- 
go de aventuras, tudo pode funcionar 
perfeitamente até que o jogador tome 
um determinado caminho, carregando 
uma faca — e cai num buraco que não 
deveria estar ali. Ou, em um programa 
de contabilidade, pode-se de repente en- 
contrar um erro enorme, que afeta ape- 
nas as entradas feitas na segunda sema- 
na de dezembro. 

O primeiro tipo de erro deve ser com- 
pletamente eliminado antes da utilização 
do programa. 

E o segundo? Bem, o ideal seria 
procurá-los sistematicamente, para evi- 

. tar surpresas. A melhor maneira de fazê- 
lo é testar cuidadosamente o programa 
— o que inclui tentar o inesperado, co- 
mo entrar uma segiência “impossível” 
de entradas. Para auxiliar nesse tipo de 
tarefa, existem rotinas muito úteis, es- 
peciais para detecção de erros. Logo fa- 
laremos sobre elas. 


MENSAGENS DE ERRO 


Todos os computadores domésticos 
produzem mensagens de erro, de um ti- 
po ou de outro. Você já deve ter encon- 
trado várias delas, desde que começou 
a utilizar o computador. 

Tais mensagens variam de códigos 
simples de números e letras a descrições 
completas que deixam poucas dúvidas 


MENSAGENS DE ERROS 
ORIENTAÇÕES OBSCURAS 


OS ERROS MAIS COMUNS 
TESTE SUA HABILIDADE 
EM DETECTAR ERROS 





sobre a natureza do erro — ainda que, 
às vezes, não apontem diretamente o 
próprio erro. 

Maiores detalhes sobre as mensagens 
de erro podem ser encontrados no ma- 
nual do seu computador. Consulte-o 
sempre que não compreender o signifi- 
cado exato de alguma delas. Só depois 
comece a trabalhar na correção do erro. 


DEPURE" O PROGRAMA 


Para evitar problemas maiores, é 
muito importante localizar e corrigir ca- 
da erro na medida em que aparece. Náo 
deixe um erro permanecer em um pro- 
grama, mesmo que este pareça rodar sa- 
tisfatoriamente. 

Caso contrário, sempre haverá uma 


chance de que o erro apareça mais tar- 
de, numa hora crítica. A consegiiência 
poderá ser um desastre para o progra- 
ma, o que resultará em muita digitação 
extra, ou — pior ainda — na perda dos 
dados disponíveis, se o programa for co- 
locado em uso efetivo. No final, você 
não terá mais a oportunidade de resol- 
ver o problema. 

Corrigir os erros, ou seja, “depurar” 
o programa, pode se tornar uma tarefa 
terrivelmente complicada se você não se 
empenhar em isolar cada problema de 
modo sistemático. Ao digitar um pro- 
grama pronto ou ao desenvolver o seu 
próprio, é muito provável que cometa 
mais de um erro. Trate cada um indivi- 
dualmente — ou seja, localize e corrija 
o primeiro deles e só depois se dirija ao 
seguinte. 














É 











de 
сот- 


Esta é uma linha 
erros e comunicad: 
putador. Quando 


a for 
precedida por um ийе са (*), о ег- 


ro provavelmente se encontra na li- 


nha cujo número está indicado na 
mensagem ou, então, é o resultado 
imediato de uma entrada direta ou de 
uma atividade (tal com SAVE). Sem- 
pre existem exceções, especialmente 
quando uma variável, que é a causa 
de um erro em determinada linha, 
tem seu valor designado em uma li- 
nha previamente executada. 

Quando digitar os programas, se- 
ja cuidadoso ao incluir espaços. 


NEXT sem FOR, variável inexisten- 
te, Erro de índice, *Memória lotada, 
*Excede área de vídeo, Número ex- 
cede limite, RETURN sem GOSUB, 
*Fim de arquivo, *Stop executado, 
Argumento inválido, Inteiro excede 
limite, *Erro de sintaxe, *BREAK- 
CONT repete, Fim de dados, *Nome 
inválido, *Sem memória disponível, 
STOP em INPUT, FOR sem NEXT, 
Periférico inválido, *Cor inválida, 
BREAK-CONT prossegue, ЕАМТОР 
válido, *Comando perdido, *Canal 
inválido, FN sem DEF, Erro de pa- 
râmetro, *Erro de leitura. 


















/O, AO, BS, *CN, *DD, *DN, DS, 





Não se esqueça de que o erro mais 
simples é, em geral, o mais difícil de ser 
isolado, e — ao contrário do que pode- 
rá pensar — quase sempre é a ünica cau- 
sa da dificuldade em rodar um progra- 
ma adequadamente. 

Muitos problemas podem ser evita- 
dos com a utilização de um conjunto de 
rotinas para depurar os programas. 
Existem algumas técnicas bem simples 
e caminhos muito eficazes. 

Para começar, muitas mensagens de 
erro apontam diretamente para a linha 
na qual ocorre o erro. Isso inclui o 


TABELA DE LOCALIZAÇÃO 






FC, FD, FM, *ID, 
NO, OD, OM, O: 
*ST, “ТМ, *UL. 


(4! 


*"CONT" ILEGAL, * 
POR ZERO, *DIRETO I. 
*VALOR ILEGAL, “NE. 
“FOR”, FIM DE DATA, FALTA 
MEMÓRIA, *FÓRMULA COM- 
PLEXA, *S/ESPAÇO, *REDI- 
MENSIONAR, “RETURN 
“GOSUB”, “STRING” 

ÍNDICE ILEGAL, *SIN' - 
RO, *TIPO INCOMPAT, А 
INDEFINIDA, FUNÇÃO INDEF. 


| 


“NEXT” 
SINTAXI 


5, NF, 
»*SN, 





ILEGAL, OW; FALTA 
MEMÓRIA, *Nº LINHA INEXIS- 
TENTE, ÍNDICE FORA DO LIMI- 
TE, "DIM" REDEFINIDO, *DIV| 
SÃO POR ZERO, DIRETO IL 
GAL, TIPO DESIGUAL, *FALTO 
ÁREA *“STRING”, *“STRING” 
LONGA, *“STRING' COMPLE- 
ХА, МАО CONTÍNI 


mais comum deles — ERRO DE SIN- 
TAXE —, além de vários outros 
(veja a tabela). Alguns, porém, são me- 
nos evidentes, e indicam erros em linhas 
que estão perfeitamente corretas. Você 
pode obter uma mensagem como E Fim 
de dados 10:2 (o exemplo é do Spec- 
trum, mas outros computadores apre- 
sentam mensagens semelhantes). Apa- 
rentemente, trata-se de uma indicação 
de que o erro se encontra na segunda 
instrução da linha 10. Na verdade, a se- 
gunda instrução da linha 10 diz ao com- 
putador para ler alguns dados, o que po- 
deria aparecer também na linha 200 ou 
até mesmo na linha 2000. Por outro la- 
do, talvez o erro estivesse nas linhas de 



































dados, e não na linha 10. 
Esse tipo de erro é, evidentemente, 
muito mais difícil de se localizar, já 
que nãoexiste nenhuma indicação preci- 
sa de onde se encontra o verdadeiro 
problema. 
As mensagens de erro, que aponta 
linha, revelam apenas que o problema 
ve estar relacionado à maneira como 
executou uma entrada em determina- 
a linha do programa. 
"Inicie efetuando uma listagem do 
programa a partir de um ponto antes do 
número da linha sugerida na mensagem 
de erro. Algumas vezes, é útil listar a 
própria linha, separadamente e um pou- 
co além das outras, se isso for possível 
em seu computador. 
Antes de mais nada, verifique se vo- 
cê não cometeu nenhum tipo de erro li- 
teral — ou seja, se escreveu algo de mo- 
do errado ou se utilizou uma letra no lu- 
gar de um número (ou vice-versa). Seja 
especialmente cuidadoso em relação aos 
espaços e à pontuação. E procure ver se 
falta algum caractere — é muito fácil, 
por exemplo, esquecer um parêntese em 
uma sequência que utilize vários deles. 
Examine com atenção as palavras-cha- 
ve, letra por letra, pois também é bas- 
tante comum a inversão da ordem dos 
caracteres. 
s erros literais costumam ser uma 
a freqüente de problemas, pertur- 
do o desenvolvimento do trabalho 
1 ito de iniciantes quanto de especia- 
listas. 


LINHA POR LINHA 


Quando você sabe que o erro está em 
determinada linha, e esta contém duas 
instruções, precisará descobrir qual de- 
las apresenta o problema. O melhor mé- 
todo para isso é colocar uma instrução 
STOP em uma nova linha, imediata- 
mente após a que foi indicada pela men- 
sagem de erro. Em seguida, entre uma 
instrução REM bem no início da última 
declaração e rode novamente o progra- 
ma — se nenhum desastre tiver aconte- 
cido até este ponto, é claro. Caso o er- 
ro de sintaxe não apareça, você saberá 
que ele se encontra na última de- 
claração. 

Pode-se utilizar um método parecido 
para descobrir, entre algumas linhas, a 
que contém o erro. Basta inserir suces- 
sivamente, entre cada linha, uma linha 
extra com a instrução STOP, como mais 
tarde explicaremos em detalhe. 

O método, porém, não pode ser am- 
pliado com segurança para «as linhas 
com instruções múltiplas, pois qualquer 
coisa antes do REM e depois da próxi- 





















ma linha do programa será ignorada. 
Nestes casos, deve-se dividir a linha em 
seus componentes e verificar isolada- 
mente um por um. Cada instrução po- 
de ser colocada em uma linha adicional. 
O procedimento é simples e bastante 
útil, sobretudo quando a situação pare- 
ce muito confusa e obscura. 

Rode o programa mais uma vez pa- 
ra ver qual das novas linhas do grupo 
causa a mensagem de erro e retire-a do 
programa. 


PARTE POR PARTE 


Declarações individuais muito long 
apresentam um tipo diferente de proble- 
ma e, talvez, a melhor maneira de uni- 
las seja determinar o valor real de cada 
parte delas. 

Mais uma vez, considere a hipótese 
de ter cometido um erro banal, antes de 
buscar interpretações complicadas. Se 
possível, reescreva a linha defeituosa do 
programa, de modo que obtenha um nú- 
mero de linhas separadas que possam ser 
tratadas individualmente. Esta é uma 
boa razão para se deixar espaços entre 
os números de linhas. 


Onde você não puder fazer isto, 
“exploda” mentalmente a instrução 
e pergunte-se o que cada entrada es- 
tá fazendo naquele determinado pon 
to do programa. Tente calcular quais 
os valores que foram obtidos para to- 
das as variáveis em uso neste exato 
ponto. 

Com o erro de sintaxe, os valores de 
qualquer variável em ação são irrelevan- 
tes — eles não poderão ser a causa do 
problema. Assim, mude a linha à von- 
tade, mesmo que isso limpe as variáveis. 

Se estiver lidando com um problema 
muito obscuro, o valor (ou valores) real 
da variável poderá fornecer os indícios. 
Utilize o corhputador para imprimir es- 
ses indícios no modo direto (imediato), 
antes de efetuar qualquer modificação 
no programa. 

Simultaneamente, verifique o nome 
da variável, para se certificar de que es- 
tá correto. Suponhamos que você habi- 
tualmente utilize a variável D para um 
loop de atraso de tempo. E bem prová 
vel que a introduza no programa sem 
querer, quando estiver copiando uma 
listagem e se deparar com um loop pa- 
recido, mas que utiliza uma variável di- 
ferente — um T, por exemplo. 


ORIENTACOES OBSCURAS 


Muitas mensagens de erro nào forne- 
cem indicações claras do número da li- 
nha errada. Em vez disso, simplesmen: 
te indicam onde um erro teve algum efei- 
to. Quando isso ocorre, pode ser difícil 
apontar a causa com precisão. 

Mas existem exceções. Como no 
exemplo acima, as mensagens DATA de 
erro são exibidas em uma linha que con- 
tém uma instrução incluindo READ 
quando, na verdade, o próprio erro se 
encontra na linha de instrução DATA. 

Outras mensagens são menos eviden- 
tes (veja a tabela). No entanto, a maio- 
ria delas refere-se a erros que ocorrem 
antes do número das linhas apostrofa- 
das na execução do programa. Essa é 
uma distinção importante, pois o erro 
pode estar, de fato, em uma sub-rotina 
situada antes ou depois da linha indica- 
da na declaração de erro. Assim, uma 
variável poderá apanhar um valor incor 
reto bem antes de identificá-lo. 

A melhor maneira de lidar com erros 
menos óbvios é examinar a ação do pro- 
grama. Ini imprimindo o valor de ca- 
da variável. Se você possuir uma impres- 
sora conectada ao computador, poderá 




















efetuar uma cópia deles. Mas é fácil uti- 
lizar o comando direto PRINT ou qual- 
quer abreviação adequada, seguida pe- 
lo nome da variável — tal como PRINT 
V — e anotar os valores. 

Examine, depois, como as variáveis 
funcionam em relação uma à outra. No- 
vamente, poderá ser bastante útil divi- 
dir uma linha muito longa do programa 
em linhas mais curtas, cada qual conten- 
do uma única instrução. 

Pesquise cada variável a partir desse 
ponto do programa, para comparar seu 
valor real (o número que você anotou) 
com o que poderia ter se o programa ro- 
dasse corretamente. 

Em um programa muito extenso, o 
trabalho será difícil e demorado. Parte 
dele poderá ser evitada se vocé rodar o 
programa em vários estágios distintos — 
imediatamente antes e depois de um de- 
terminado conjunto de entradas, por 
exemplo. Observe, então, as modific: 
ções dos valores das variáveis. 

A não ser que você esteja familiari- 
zado com o uso das teclas <RUN/ 
STOP> ou <BREAK> do seu com- 
putador, é aconselhável introduzir no 
programa linhas provisórias contendo a 
declaração STOP. Mas note que, com 
esse procedimento, você limpará a me- 
mória e, assim, deverá rodar o progra- 
ma mais uma vez — o que nem sempre 
será possível. 

Quando o programa parar, imprima 
os valores das variáveis e, em seguida, 
tecle a instrução para continuar até o 
próximo STOP. 


ERROS $ 


Entre as causas mais comuns de er- 
ros de programa estão as falhas come- 
tidas no código de entrada, a partir de 
listagens impressas. 

O problema específico é gerado so- 
bretudo pela confusão entre caracteres 
parecidos: casos típicos são as letras 1 
em tipo minúsculo, I em tipo maiúscu- 
lo e o número 1, assim como a letra O 
e o número 0. 

É fácil também confundir, sobretu- 
do em listagens de pouca qualidade, dois 
pontos com ponto e virgula, e ponto fi- 
nal com vírgula. O ponto e vírgula é uti- 
lizado para a formatação da exibição, 
e o uso acidental de dois pontos (sinal 
que indica o fim de uma declaração), co- 
mo no exemplo abaixo, poderá resultar 
simplesmente em uma mensagem de 
“ERRO DE SINTAXE”: 























95 INPUT "ENTRE SEU NOME” :N$ 


ЕСТІ A confusão entre o ponto final e a 





vírgula, porém, é ainda mais difícil de 
se identificar. Veja estas duas linhas: 


1000 DATA 12.4,6,7,8,13,1.7 
1000 DATA 12.4,6,7,8.13,1.7 


Tanto uma quanto outra pareceriam 
corretas, até mesmo depois de um mi- 
nucioso exame. Note que existem seis 
itens de dados na primeira linha, mas 
apenas cinco na segunda. 

Este poderia ser um indício de erro, 
caso as outras declarações DATA con- 
tivessem um número idêntico de itens. 
Incidentalmente, portanto, teríamos um 
método simples de realizar pelo menos 
uma verificação. 

Se uma mensagem de erro exibiu 








“FIM DE DADOS”, não existem itens 
de dados suficientes; portanto, a segun- 
da linha poderia estar incorreta. 

A presença de muitos itens, por sua 
vez, não provoca uma mensagem de er- 
ro; simplesmente assinala os valores in- 
corretos para a variável READ ou, ain- 
da, o valor incorreto para algumas das 
variáveis, se uma outra linha de dados 
for curta. 

Uma mensagem de erro pode tam- 
bém resultar em uma linha READ ou 
uma linha de cálculo, se o tipo incorre- 
to do valor for assinalado para uma va- 
riável READ. 

O uso da letra O em vez do número 
0 — ou vice-versa — pode acarretar um 
efeito idêntico. 





















ESPAÇOS 


Deve-se deixar espaços em determi- 
nados lugares do programa, mas 
eliminá-los totalmente em outros — o 
problema, quase sempre, é reconhecer 
que algo tão “'transparente”” seja a causa 
de um problema. 

Os espaços utilizados por razões es- 
téticas — para separar, por exemplo, 
uma declaração impressa de outra ou 
tornar as listagens um pouco mais cla- 
ras — não ocasionam erros se forem 
omitidos. Mas suspeite deles se a exibi- 
ção na tela parecer achatada ou tiver 
partes superpostas. 

Uma mensagem de erro ocorre se, 
acidentalmente, você incluir um espaço 
entre certas palavras-chave e o argumen- 
to que as segue colocado entre parênte- 
ses, Por exemplo: TAB(n) está correto; 
TAB (n), não. As condições que deter- 
minam erros relacionados a espaço va- 
riam de um computador para outro, 
mas vale a pena verificar esse aspecto se 
não detectar falhas de outro tipo 


ERROS ESPECÍFICOS 


Cada computador apresenta um tipo 
peculiar de erro, quase sempre relacio- 
nado a imperfeições — e não erros, pro- 
priamente — no sistema de operações ou 
no próprio hardware. Com frequência, 
a falha se encontra no próprio BASIC 
e certas palavras-chave não se compor- 
tam adequadamente sob determinadas 
circunstâncias. Algumas das mais co- 
muns estão detalhadas aqui, e serão 
apontadas em INPUT sempre que pos- 
sam causar problemas inesperados, ca- 
so não se tome o devido cuidado. 
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UM TESTE 


Eis aqui um teste para a sua habili- 
dade em detectar erros e uma oportuni- 
dade para colocar em prática tudo o que 
aprendeu. Os programas que se seguem 
estào cheios de erros — do tipo que po- 
deria ser introduzido durante a cópia de 
uma listagem ou na adaptação de um 
programa sobre cuja ação não se tem 
um conhecimento completo. Eles osci- 
lam de erros simples de digitação e sin- 
taxe a erros na estrutura do próprio 
programa, 

A versão correta do programa foi pu- 
blicada na página 195 de INPUT. Adi- 
cionamos aqui uma linha extra para fa- 
zer com que o programa seja rodado no- 
vamente. Mas não olhe o programa ori- 
ginal até que tenha elaborado o seu pró- 
prio caminho para localizar os erros. 


ШЕШЕН ERI EI ERU NGORAMACO SIC ` ga | s Lour d 


O programa é um exemplo bem cur- 
to de como se deve distribuir os objetos 
entre os compartimentos de um jogo de 
aventuras. A lista dos objetos é lida a 
partir de uma lista de dados organiza- 
dos em um conjunto; os nümeros dos 
compartimentos estào armazenados em 
outro conjunto. A parte principal do 
programa — as linhas 70 a 100 — de- 
signa, aleatoriamente, um objeto para 
cada compartimento, verifica se todos 
foram utilizados e se há apenas um em 
cada compartimento. A linha 110 sim- 
plesmente imprime o resultado. Pelo 
menos é isto o que o programa deveria 
fazer se estivesse correto. 

É provável que você identifique vá- 
rios erros imediatamente, por meio da 
simples leitura do programa. Tente con- 
sertar todos os que puder e, então, 
quando estiver com o programa limpo, 
digite-o em seu computador e experi- 
mente rodá-lo. Certamente restarão al- 
guns erros escondidos que você não 
identificou na primeira vez. 

Se não conseguir resolver tudo, vol- 
te à página 195; de qualquer maneira, 
a versão correta da última linha deverá 
ser elaborada por você. E tenha o cui- 
dado de não introduzir novos erros 
quando estiver corrigindo os outros! 





10 LET g=14 

20 DIM a$(9,7): 
30 FOR 2-1 70 9 
40 ВЕАр а5(9) 
50 LET a(z)=z 
70 FOR x=g TO 1 STEP -I 

80 LET q-INT (RND*x)+1 

90 LET t-a(x): LET a(x)-a(q): 


DIM a(9) 


LET a(q)*T 
100 NEXT x 
110 FOR t=1 TO q: PRINT "A sal 
a;t;tem";aS(a(t)): NEXT t 





120 DATA corda,"espada 
ador","faca","revolver 
7"tocl ,"carro","lanterna"^,"m 
achado"^,"bomba","livro","aerom 
odelo","robo" 

130 GOTO 10 


[e Lo] 


10 LET G - 14 

20 DIM AS(G),A(G) 

30 FOR Z = ITOG 

40 READ AS(G) 

50 ТЕТ А(2) = Z 

70 РОВ Х = С ТО 1 STEP - I 








80 LET Q = INT ( RND (l) * X) 
+1 
90 LET T = A(X): LET A(X) = A( 


Q); LET A(Q) = T 
100 NEXT X 


110 FOR T = 1 TO G: PRINT “A S 





ALA";T"TEM";AS(A)(T)): NEXT T 
120 DATA CORDA, ESPADA, ESPANA 
DOR, FACA, ARMA, CHAVE, TOCHA, CARRO 
+ LIQUIDIFICADOR, SOFA, BOMBA, LIVR 
O, AEROMODELO , ROBO 

130 GOTO 10 


Para o MSX, adicione a linha abaixo: 


5R = 


RND ( - TIME) 





10 LET G=14 

20 DIM AS(G),A(G) 

30 FOR Z-1 TO G 

40 READ AS(G) 

50 A(Z)=Z 

70 FOR X=G TO 1 STEP-I 

80 Q=RND(X) 

90 T=A(X) :A(X)=A(Q);A(Q)=t 

100 NEXT X 

110 FOR T-1 TO G:PRINT"NA SALA" 
;T"HA"^AS(A) (T) ) :NEXT T 

120 DATE CORDA, ESPADA, ESPANADOR 
+ FACA, ARMA, CHAVE, TOCHA, CARRO, LA 
NTERNA, MACHADO, BOMBA, LIVRO, AERO 
MODELO, ROBO 
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O ZX-81 não tem muitos recursos 
gráficos. O Apple, embora os tenha com 
boa qualidade e resolução, define as fi- 
guras móveis por meio de um processo 
bastante complicado. 

Com o código de máquina podemos 
obter alguns efeitos visuais no ZX-81. 
Um programa editor facilitará a criação 
de figuras móveis no Apple. 


o — 5 — 


Enquanto outros micros usam uma 
codificação bem simples para criar figu- 
ras em alta resolução — números biná- 
гіов, опде “17” е “0” correspondem a 
pontos ““acesos"” e “арарайо5” --, о 
Apple tem um código complexo, que 
não explicaremos agora. 
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Neste artigo, os usuários do Apple e 
do ZX-81 verão como produzir figuras 
móveis. Usando os programas e 
observando as instruções, poderão, em 
seguida, criar seus próprios desenhos. 


Para facilitar o trabalho, o progra- 
ma a seguir cria uma “tabela de figu- 
ras” na memória do micro, a partir de 
padrões desenhados com asteriscos den- 
tro de linhas DATA. 


100 НОМЕ :Е = 35000: HIMEM: E: 
DIM А (100) ,В(100) 

110 HTAB 10: VTAB 12: PRINT "О 
M INSTANTE, POR FAVOR” 

120 FOR I - 35000 TO 37000: РО 









A(V) > 4) THEN 280 

270 B- 0:0 = Q+1 

280 B(Q) - B(Q) + A(V) * (8 “ B 
) 


290 B-B+1 


300 IF B > 2 THEN B < 0:Q = Q 
+ 1 
310 NEXT Y 


320 TEXT : HOME : PRINT "(FIGU 
RA ";II * 1;") LINHA БАТА 7; 


330 FOR V - 0 TO 31 


KE I,0: NEXT : HOME 340 ІРО < » O0 THEN PRINT ", 
130 F - INT (E / 256) жр 

140 POKE 232,E - F * 256: POKE 350 PRINT B(V);" "; 

233,F 360 РОКЕ Е + 42 + 32 * II * V, 
150 PRINT "(DEFINICAO DA TABEL B(V) 

A) LINHA DATA ";: PRINT "20 ,0 370 NEXT V 

";: FOR II = O TO 19:W = INT ( 380 PRINT : PRINT : PRINT "RET 
(42 + II * 32) / 256):0 = 42 + URN P/ CONTINUAR": INPUT *";05 
II * 32 - W * 256: PRINT ",";O; 390 HOME : HGR : SCALE= 1; ROT 
*"o,"iM;" "P: NEXT II: PRINT : P 0 

RINT PRINT "RETURN P/ CONTINU 400 FOR I - 150 TO 75 STEP - 
AR": INPUT " : HOME 5 

160 POKE E,20: POKE E + 1,0: F 410 HCOLOR= 3 

OR II = 0 TO 19 420 DRAW II + 1 AT 130,1 

170 w INT ((42 + 11 * 32) / 430 HCOLOR= 0 

256):0 = 42 + 11 * 32 - W* 256 440 DRAW II + 1 AT 130,1 

: POKE E + 2 + 2 * 11,0: POKE E 450 NEXT I 

+3+2* 11,4 460 HCOLOR= 3 

180 FOR I = 0 TO 100:B(1) = 0: 470 DRAW 11 + 1 AT 130,75 
NEXT 1 480 FOR I = 1 TO 50: NEXT I 
190 Q = 0: GR : COLOR= 1: FOR I 490 NEXT II; END 

= l TO 8: READ Z$: FOR J= 1 T 500 X = 16:Y ~ 30:К = l: FOR J 
ов = 1 704 

200 ІР MIDS (Z$,3,1) = "*” TH 510 FOR I * 1 TO 8 

EN PLOT J + 15,I + 29 520 M = 1: IF SCRN( X,Y) = 1 T 
210 NEXT J: NEXT 1 HENM < M+ 4 
7220 HTAB 17: VTAB 21: PRINT "l 530 X% = X + 1:A(K) = M:K = K + 
2345678" 1 

230 GOTO 500 540 EXT 1 

240 FORV=0TOK-1 550 М = 2: IF SCRN( X,Y) = 1 T 
250 IF B - 2 ANDA(V) > 0 AND HEN M = M+ 4 

A(V) < 4 THEN 280 560 Y = Y + I:A(K) = MK = K + 
260 IF B< 2 AND (A(V) > 0 OR 1 
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Li EDITOR DE FIGURAS 





Ш MOTO E SUBMARINO NO APPLE 
= COMO MOVIMENTAR OS 


a+ suar DESENHOS 
ш UM MONSTRO NO 2Х-81. 


570 FOR I = 1 TO 8 

580 M = 3: IF SCRN( X,Y) = 1 T 
HENM = M+ 4 

590 X = X - 1:A(K) = M;K = K + 


1 

600 NEXT I 

610 M = 2: IF SCRN( X,Y) -= 1 T 
HENM = M+ 4 

620 Y = Y + 1:A(K) = MK = K + ` 


1 

630 NEXT J 
640 GOTO 240 
1000 REM 
1001 
1002 
1003 
1004 
1005 
1006 


12345678 


DATA 
DATA 
DATA 
DATA 
DATA 
1007 DATA 
1008 DATA 


O programa permite que você crie fi- 
guras móveis, tomando como modelo os 
desenhos que aqui apresentamos. Esses 
desenhos são destinados a outros mi- 
cros, onde as figuras compóem-se de 
blocos de oito por oito pontos. 


ЕЭ 
жж” 


Para utilizar o programa, adicione ao | 


seu final linhas DATA correspondentes 
às figuras da moto das páginas 316 e 
317, Cada linha DATA deve conter o 
padrão de uma das linhas de um bloco 
de oito por oito pontos, desenhado com 
asteriscos. Na listagem encontram-se as 
oito primeiras linhas DATA, correspon- 
dentes ao primeiro bloco da moto. Di- 
gite os blocos na seguinte ordem: bloco 
superior esquerdo, bloco inferior es- 
querdo, bloco superior da segunda co- 
luna, e assim por diante, até o bloco in- 
ferior direito, Podem ser digitados até 
vinte blocos, ou 160 linhas DATA. 
Para montar na memória do Apple 
uma tabela de figuras, digite RUN. O 
mesmo comando imprimirá as linhas 
DATA necessárias para criar a tabela de: 


dentro de um programa BASIC, Os de- 
senhos dos blocos digitados serão exe- 


SA; 









cutados em baixa e alta resolução: 








—— 


: : ROT= 0 
FOR 1 = 0 TO 110 STEP 16 
HCOLOR= 3 
DRAW 
DRAW 
DRAW 


3 
eta e es 
+++ ++ 
eo 
eo 


о 200 


І 
І 
I 
I 
I 
1 
1 


SERERE 
nes a 
555% 


- 
a 
me 
= 
o 
ы 
Ж 
ә 
т 
з 
т 
т 
- 
o 


HCOLOR= 3 

DRAW 9 AT 1,100 

DRAW АТ 1,108 

+ 8,100 

+ 8,108 

+ 16,100 

+ 16,108 

+ 24,100 

+ 24,108 
100: NEXT J 


ATI 
ATI 
ATI 
ATI 
ATI 
ATI 
1 TO 


1,108 
8,100 
8,108 
16,100 
16,108 
24,100 
24,108 


Na linha 10 HGR liga a tela de alta 
SCALE fine a e: 
a orientação 
Ns linhas 120 a 190 desenham a mo-- 
, usando DRAW N AT X,Y, onde N 
número do bloco de oito por oito 
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pontos, na ordem em que foram criados. 
pelo programa editor; X e Y são as coor- 
denadas da posição desejada. A linha 
200 promove uma pequena pausa, an- 
tes que as linhas 220 a 290 apaguem os 
mesmos blocos, desenhando-os em pre- 
to — HCOLOR -0. O FOR...NEXT 
das linhas 100 a 300 repete o processo, 
dando movimento ao desenho. O res- 
tante do programa é uma repetição da 
primeira parte, só que utiliza o desenho 
da moto ““empinando" — blocos 9 a 16, 

Para montar o desenho sem empre- 
gar o programa editor, adicione ao pro- 
grama as linhas DATA que ele criou, As 
linhas seguintes usarão os números ali 
contidos para montar a mesma tabela de 
figuras. 


20 
30 
„E 
40 
32 
50 
60 


HOME :E = 35000: HIMEM: E 

F = INT (E / 256): POKE 232 
- Р * 256: POKE 233,F 

FOR I = E TO E * 41 * 16 * 


READ A: POKE I,A 
NEXT 


E contém o endereço inicial do local 
onde a tabela será montada na memó- 
ria — é igual à variável de mesmo no- 
me no programa editor. HIMEM:E pro- 
teje esta área no topo da memória. Os 
POKE da linha 20 informam o endere- 
ço ao Apple, O restante do programa lê 
os dados com READ e monta a tabela 
com POKE, Na linha 40, 16 é o núme- 
ro total de blocos. 

Outra alternativa para evitar o uso do 
editor é gravar a tabela de figuras em fi- 
ta, usando o comando W do monitor, 
ou em disco, usando o comando BSA- 
VE. As linhas DATA deixarão de ser ne- 
cessárias, mas continuaremos |precisan- 
do das linhas 20 a 40. 


O SUBMARINO 


O programa seguinte movimenta o 
submarino da página 319, desde qui 
tenha sido criado pelo programa editor. 


10 HGR : SCALE- 1l: ROT- 0 

100 Y = 100:LY = Y: GOTO 170 
110 СЕТ А9: ІҒ А8 - "" ТНЕМ 11 
0 


120 
130 
y= 
140 
EN Y 
150 
160 
170 
180 
190 
200 
210 


Ly = Y 

IF AS - "P" AND Y > 3 THEN 
Y - 3: GOTO 170 

IF AS = "L” AND Y < 150 TH 
= Y + 3: GOTO 170 

IF AS - " " THEN 260 

сото 110 
HCOLOR= 0 
DRAW 1 AT 
DRAW 2 AT 
DRAW 3 AT 
HCOLOR= 5 
DRAW 1 AT 
DRAW 2 AT 
DRAW 3 AT 
GOTO 110 
FOR 1 = 0 
HCOLOR= 1 
DRAW 4 AT 
HCOLOR= 0 
DRAW 4 AT 34 + E,Y 
NEXT I: GOTO 110 


10,LY 
18,LY 
26,LY 


10,Y 
18,Y 
26,Y 
TO 230 STEP 4 


34 + 1,Y 








=; 
marino para cima e para baixo. A bar- 
ra de espaço lança torpedos. 


O programa que se segue cria um 
monstro com auxílio do código de 
máquina. 


1 REM. 
10 LET AS 
00FE00280319" 
'5 LET AS=AS+" 10FD3ABD4016005F 
2 1911ВЕ403АВВ40ҒЕ" 
AS=AS+"00280311CE400604 


7231310* 
E 


ET AS=AS+"0000000000000000 
0000” 


. 35 LET AS-A$*"878B8B0480850580 
7 0280800106850586" 
- $0 FOR N-16514 TO 16605 
"e o, POR N, L6*CODE AS+CODE AS(2 
70 LET AS=AS(3 TO ) 
80 NEXT N 


A linha 1 precisa ter pelo menos 92 
- caracteres após REM, para acomodar o 


13 CÓDIGO DE MÁQUINA 


13 




































































































































programa em código que será criado. As 
linhas 10 a 25 contêm o programa que 
coloca o monstro na tela — os códigos 
estão dentro de A$. Os zeros — 32 ao 
todo — da linha 30 apagam o desenho 
com espaços em branco. 

A linha 35 contém o padrão do 
monstro. Se compararmos seu conteú- 
do — dois dígitos de cada vez — com 
o conjunto de caracteres do apêndice A 
do manual, veremos que ali estão carac- 
teres gráficos invertidos. 

Esses caracteres desenham o mons- 
tro, do to superior esquerdo ao in- 
ferior direito. Como eles dividem um es- 
paço de caractere em quatro partes, a re- 
solução final é de oito por oito pontos. 

Para mudar o desenho, basta trocar 
os números nesta linha. Códigos de co- 
mandos BASIC que tenham mais de um 
caractere com AT, TAB, THEN ou 
LEN não podem ser empregados. 

Quando utilizamos RUN, o progra- 
ma contido em A$ é colocado no espa- 
ço que se segue a REM pelas linhas 50 
a 80. Se listarmos, então, o programa, 
veremos os caracteres correspondentes 
aos códigos. Os que desenham o mons- 
tro estão no final da linha. 

Depois que o programa estiver den- 
tro da linha REM, apague as demais e 
digite: 








É 10 LET x-14 
| 20 LET Ү-8 





POKE 16571,1 
40 POKE 16572,Y 
50 POKE 16573,X 
60 RAND USR 16514 


100 LET AS-INKEYS 

110 IF A$-"" THEN GOTO 100 

120 IF AS-"Z" AND X50 THEN LET 
X-X-1 

130 IF AS="X" AND X<28 THEN 
LET X-X*1 

140 IF AS="P" AND Y>O THEN LET 
Ү-Ү-1 

150 IF AS-"L" AND Y<20 THEN LET 
Y=Y+1 


160 POKE 16571,0 
170 RAND USR 16514 
180 GOTO 30 


As linhas 10 e 20 colocam as coorde- 
nadas do centro da tela em X e Y. A li- 
nha 30 introduz o número 1 no progra- 
ma em código, usando POKE, para que 
seja impresso o monstro, e não espaços 
em branco. As linhas 40 e 50 colocam 
X e Y da mesma forma, estabelecendo 
a posiçào da figura. A seguir, a rotina 
em código é chamada e o computador 
desenha o monstro. 

As linhas 100 a 150 contêm a rotina 
típica que move algo na tela (veja pági- 
na 31). Z movimenta o desenho para a 
esquerda, X para a direita, P para cima 
e L para baixo. 

A linha 160 coloca 0 dentro do pro- 
grama em código, para desenhar espa- 
ços em branco; a linha 170 chama o pro- 
grama, apagando o desenho. A linha 
180 volta ao início. 


ІМУЕН5АО ОА ТЕ 


Com o código de máquina, pode-se 
também inverter a tela no ZX-81. O pro- 


grama a seguir faz isso, trocando o preto 
pelo branco e vice-versa. Embora ele de- 
va ser chamado de dentro de um progra- 
ma BASIC, coloque-o na memória usan- 
do o nosso monitor (veja página 92). 
2A 0C 40 06 17 23 7E FE 76 28 
05 C6 80 77 18 F5 10 F3 C9 

Use RAND USR “endereco inicial”* 
parairodá-lo. Como esse comando, sem 
um nümero na frente, limpará a tela, o 
efeito nào será interessante. Um progra- 
ma simples dará melhores resultados. 





20 LIST 
30 RAND USR 


Aqui, RAND USR deve ser seguido 
do endereço inicial do programa. 

Podemos ainda colocar essa rotina de 
inversão dentro do programa do mons- 
tro. Os códigos serão adicionados a A$. 
Acrescente a linha: 
40 LET A$=A$+"2A0C400617237EFE7 
62805C6807718F510F3C9” 

Note que nào há espaço entre os 
códigos. 

A linha 50 deve ser alterada para co- 
locar os códigos extras dentro do REM. 


50 FOR N=16514 TO 16624 


A linha REM precisa ter mais 19 es- 
paços disponíveis, pelo menos. Após ro- 
dar o programa com essas modificações, 
apague todas as linhas, com exceção da 
REM, e copie o programa de movimen- 
tação com esta linha a mais: 


155 IF AS-"I" THEN RAND USR 166 
06 

O endereco 16606 é o início da nova 
rotina. Ela poderá ser chamada por 
meio da tecla I. Ao pressioná-la, o 
monstro será invertido. Mantendo a 
pressão, ele cintilará. 


SIMULE ALTA RESOLUC 


Como você já sabe, o ZX-81 não tem 
alta resolução gráfica. Porém, com o có- 
digo de máquina, pode-se produzir al- 
go semelhante. Este programa simples- 
mente usa POKE para colocar um pe- 
queno programa após o REM da linha 
10 e, depois, o chama. 





16514,62 
16516,237 
40 POKE 16517,71 
50 POKE 16518,201 
60 FOR N=0 TO 30 
70 POKE 16515,N 
80 RAND USR 16514 
90 NEXT N 


Infelizmente, náo há um processo fá- 
cil para mover desenhos desse tipo. 


20 POKE 
30 POKE 
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PROGRAMAÇÃO DEJOGOS 13 


A CONCLUSÃO DA 


AVENTURA 


ъ COMO SOCORRER O HERÓI 


ELIMINE O COLETOR 





DE IMPOSTOS 
E COMO ACENDER À LÂMPADA 
E INSTRUÇÕES 











Na busca incessante do olho perdido do 
totem inca, o herói chega à sala 
do trono de um reino remoto. Sairá ele 
com vida ou perecerá nas garras 
de um implacável coletor de impostos? 


Depois de muitas peripécias e lances 
de emoção, aproxima-se do fim nosso 
jogo de aventura. Antes de concluí-lo, 
porém, devemos acrescentar-lhe certos 
detalhes, como novos perigos e avisos, 
além de uma saída pela qual o aventu- 
reiro possa escapar com vida. Algumas 
instruções também precisam ser incor- 





poradas ao jogo. 

Como essas rotinas contêm detalhes 
específicos a esta aventura, o programa 
que se segue não deve ser usado em ou- 
tras aventuras sem modificações. Ele 
apenas completará o jogo em andamen- 
to e mostrará, em termos gerais, o que 
é necessário para fazer um programa 
desse tipo. No próximo artigo, mostra- 
remos como os princípios apresentados 
aqui podem ser adaptados de modo a se 
encaixar às suas próprias idéias. 


OCÉ PRECISA DE AJU 


Sempre que se encontrar diante de 


uma situação particularmente perigosa, 
ojogador (e, portanto, o personagem da 
aventura) pode recorrer ao computador, 
solicitando sugestões. Estas aparecerão 
na forma de mensagens impressas pela 
máquina em resposta ao pedido (**AJU- 
DAR”) do jogador. O significado de 
tais mensagens, assim como o momen- 
to em que elas serão impressas, depen- 
de apenas do programador. Podemos 
escolher, se desejarmos, não apresentar 
qualquer mensagem, ou fazê-las propo- 
sitalmente ilusórias, ou mesmo prestar 
ajuda somente em alguns locais 
isolados. 

Em nossa aventura existem vários 
pontos onde talvez valha a pena digitar 























curtas mensagens para o jogador, adver- 
tindo-o, por exemplo, sobre o quarto es- 
curo quando ele se encontrar em suas 
proximidades. Uma forma interessante 
de mensagem consiste em responder ao 
pedido de “AJUDAR” com um 
“OLHE PARA ONDE VAI”, ou algo 
até mais enigmático. 

Outra mensagem pode ser emitida às 
margens do rio, onde o aventureiro cor- 
re o risco de se afogar (principalmente 
se estiver carregando um tijolo). 

Evidentemente, o número dessas 
mensagens pode ser muito grande. Tu- 
do depende da vontade do programa- 
dor. Suponhamos, contudo, que este 
queira emitir apenas um aviso, por 
exemplo, no rio. O primeiro passo para 
isso consistirá em relacionar o aviso com 
o número do local — número 7 — e com 
a variável que registra a presença do ti- 
jolo, OB (7). 


3100 REM **AJUDAR** 

3110 IF L<>7 OR B(2)<>-1 THEN 
PRINT "DESCULPE, NAO POSSO AJUD 
AR AGORA”: GOTO 330 

3120 PRINT "TIJOLOS SAO MUITO P 
ESADOS. SEU BRACO DEVE ESTAR D 
OENDO.": GOTO 330 





3100 REM **AJUDAR** 

3110 IF L<>7 OR 0B(2)<>-1 THEN 
PRINT "DESCULPE, NAO POSSO AJUD 
AR AGORA” :GOTO 330 

3120 PRINT "TIJOLOS SAO MUITO P 
ESADOS. SEU BRACO DEVE ESTAR DO 
ENDO.":GOTO 330 


Se o aventureiro nào se encontrar no 
rio (L <> 7) ou não estiver carregan- 
do o tijolo — (OB (2) <>-1 ou B (2) 
<>-1) —, a linha 3110 imprimirá a 
mensagem “DESCULPE, NÃO POS- 
SO AJUDAR AQUI”. Se, pelo contrá- 
rio, ele estiver transportando o tijolo e 
solicitar ajuda ao chegar ao rio, então 
aparecerá o aviso “TIJOLOS SÃO 
MUITO PESADOS. SEU BRAÇO DE- 
VE ESTAR DOENDO”, impresso pe- 
la linha 3120. 

Nada nos impede de acrescentar uma 
lista completa de mensagens de ajuda 
nas mais diversas condições e locais de 
aventura. 


LETOR DE IMPOSTOS 


Se o jogador é o “mocinho” da aven- 
tura, quem faz o papel de “bandido” 
ё о coletor de impostos. O objetivo deste 





22 último é confiscar alguns objetos para 





co. Assim, ele escolhe ao acaso um dos 
objetos transportados pelo jogador e o 
confisca, podendo levar até mesmo um 
tijolo como pagamento. 

Se o aventureiro não estiver carregan- 
do alguma coisa quando o coletor de im- 
postos aparecer, ele será preso e seu des- 
tino será apodrecer em uma masmorra, 
E assim o jogo terminará. 

O papel do coletor de impostos é dar 
um toque de suspense ao jogo, já que 
ele surge de forma inesperada, indepen- 
dentemente do local ou de outras con- 
dições. Como em outros exemplos de 
acaso na programação de jogos, deve- 
mos fazer uso da função RND. O cole- 
tor é tratado como qualquer um dos ob- 
jetos, com a diferença que sua localiza- 
ção é determinada ao acaso. 

Aqui estão as linhas extras, para 
fazer o coletor de impostos aparecer. 


320 IF RND<(1/15) AND TA=0 
THEN LET B(7)-L: LET TA-1 
480 IF B(7)=L AND I<>10 THEN 
GOTO 1590 





320 IF RND(15)-1 AND TA-0 THEN 
0B(7)=L:TA=1 

480 IF 0B(7)=L AND I<>10 THEN 1 
590 


320 RN-RND(-TIME):IF INT(RND(1) 
*15+1)=1 AND TA-U THEN OB(7)*L: 
TA=1 
480 IF OB(7)=L AND 1<>10 THEN 1 
90 


320 IF INT ( RND (1) * 15 * 1 
) = 1 AND TA = O THEN OB(7) = L 
:TA = 1 

480 IF OB(7) = L АМ І < > 10 
THEN 1590 


Inicialmente, o Spectrum iguala to- 
das essas variáveis a 0. 

A linha 320 de todos os programas 
dá ao aventureiro uma chance em quin- 
ze de encontrar o coletor — este 6 о рго- 
pósito do 15 no RND. O coletor só po- 
de aparecer uma vez durante o jogo; 
portanto, você precisa da variável TA 
para saber se isso aconteceu ou não. 

Se o número randômico for 1 (ou me- 
nor de que 1/15 no Spectrum) e o ins- 
petor ainda não tiver aparecido, a linha 





















320 ajustará o valor do elemento 7 da 
matriz de localização de objetos — cor- 
respondente ao coletor —, de acordo 
com o lugar em que se encontra o joga- 
dor — L. O aviso de que o coletor che- 
gou será dado como se ele fosse um ob- 
jeto que tivesse sido colocado naquele 
local. Esse aviso nada mais é do que a 
descrição do objeto 7: o coletor. 

A linha 480 tem a ver com o ato de 
eliminar o coletor, verificando se você 
tentou matá-lo. Se você não o fez, o pro- 
grama pulará para a linha 1590. 


SE LIVRAR DO COLETOR 


Quando o coletor de impostos mos- 
trar sua cara feia, o aventureiro deverá 
















































atirar nele com o revólver que pode ser 
encontrado no outro lado do rio: 


1540 REM **MATAR** 

1550 IF B(4)<>-1 THEN PRINT "C 
OM O QUE?”: GOTO 320 

1560 IF B(7)<>L THEN PRINT VS; 
” QUEM?”: GOTO 320 

1570 PRINT "VOCE MATOU O ";B$S(7 
): LET B(7)=0: GOTO 330 





1540 REM **MATAR** 
1550 IF 0B(4)<>-1 THEN PRINT"CO 
M O QUE ?”:GOTO 320 
1560 IF OB(7)<>L THEN PRINT VS; 
" QUEM ?":GOTO 320 





1570 PRINT " VOCE MATOU O ";0В5 
(7) :08(7) *0:GOTO 330 

Essa rotina será usada quando o joga- 
dor digitar “MATAR” ou “ATIRAR”. 
Se ele estiver sem a arma (OB (4) <> 
—1) ou (B (4) <>-1), a linha 1550 per- 
guntará “COM QUÉ?". Se o coletor 
nào estiver e o jogador tentar matá-lo, 
a linha 1560 imprimirá “QUEM?”. А 
linha 1570 comunica: “VOCÊ MATOU 
O COLETOR” e ajusta o elemento 7 da 
matriz de lotalização de objetos para o 
inspetor não mais existir. 





Aqui, o aventureiro é quem sofre nas 
mãos do coletor de impostos: 





1580 
1590 
1600 
1610 
+1 

1620 


REM **COLETOR DE IMPOSTOS* 
LET IN=0: LET B(7)=0 

FOR K=1 TO NB 

IF B(K)=-1 THEN LET IN=IN 


NEXT K 

1630 IF IN-0 THEN PRINT "COMO 
VOCE NAO TEM NADA QUE POSSASER 
CONFISCADO, ELE O PRENDE EM UMA 
MASMORRA IMUNDA": GOTO 1360 
1640 LET K-INT (RND*NB)*1: IF B 
(K)<>-1 THEN GOTO 1640 

1650 PRINT "ELE TOMA O ";B$(K), 
"DE VOCE”: LET R(K)=0: GOTO 400 





1580 
1590 
1600 
1610 


REM **COLETOR DE IMPOSTOS* 
ІМ-0:0В(7)-0 

FOR K=1 TO NB 

IF OB(K)=-1 THEN IN=IN+1 
1620 NEXT 

1630 IF IN-0 THEN PRINT "COMO V 
OCE NAO TEM NADA QUE POSSASER C 
ONFISCADO, ELE O PRENDE  EMUMA 
MASMORRA IMUNDA":GOTO 1360 

1640 K-RND(NB):IF OB(K)<>-1 THE 
N 1640 

1650 PRINT "ELE TOMA O ";OB$(K) 
»” DE VOCE”:0B(K)=0:GOTO 330 


1580 REM ** COLETOR DE IMPOST 
05 жж 

1590 IN = 0:0B(7) = O 

1600 FOR K = 1 TO NB 

1610 IF OB(K) = - 1 THEN IN = 
IN + 1 

1620 NEXT 

1630 IF IN = 0 THEN PRINT "CO 
MO VOCE NAO TEM NADA QUE POSSA 
SER CONFISCADO, ELE O PRENDE 
MASMORRA IMUNDA 
": GOTO 1360 

1640 К = ІМТ ( RND (1) * NB + 
1): IF OB(K) < > - 1 THEN 164 


9 
1650 PRINT "ЕГЕ ТОМА О ";OB$(K 
);" DE VOCE":OB(K) = 0: GOTO 33 
0 


Como ao inspetor de taxas é permi- 
tido aparecer apenas uma vez durante 
a aventura, a linha 1590 ajusta o elemen- 
to 7 da matriz de localização de objetos 
de forma que ele não mais exista en- 
quanto durar o programa. Esse proce- 
dimento não afeta em nada a rotina, 
mas evita o aparecimento do coletor no 
futuro. IN é um marcador usado para 
verificar se objetos estão sendo car- 
regados. 

As linhas 1600 e 1620 passam pela 
matriz de localização de objetos, verifi- 
cando se cada objeto está sendo trans- 
portado. Qualquer objeto que estiver 


















































sendo carregado aumenta | no marca- 
dor IN. 

Se nada estiver sendo transportado, 
então o valor de IN permanecerá 0 e o 
aventureiro será comunicado: “COMO 
VOCÊ NÃO TEM NADA QUE POS- 
SA SER CONFISCADO, ELE O 
PRENDERÁ EM UMA MASMORRA 
IMUNDA”. O jogo termina e pergunta- 
se ao aventureiro se ele deseja uma ou- 
tra jogada; isto é feito pela linha 1360. 

Caso haja objetos sendo transporta- 
dos, a linha 1640 pegará um deles ao 
acaso. Se esse objeto estiver entre os que 
estão sendo carregados, ele será apreen- 
dido. No entanto, se não estiver, outro 
objeto será escolhido a esmo e assim por 
diante, até que a escolha coincida com 
um que esteja sendo transportado. 

Se um objeto adequado tiver sido se- 
lecionado, a linha 1650 comunicará ao 
aventureiro que objeto foi confiscado 
pelo coletor. O elemento da matriz de 
localização de objetos correspondentes 
será então alterado; assim, o objeto não 
mais existirá. 


ІМ РОЦС0 ОЕ МАТАСАО 


Esta rotina é usada quando o joga- 
dor decide atravessar o rio: 


1400 REM **NADAR** 
1410 IF L<>7 THEN PRINT "NADAR 


ONDE ?!!": GOTO 400 

1420 IF B(2)=-1 THEN PRINT "QU 
E VERGONHA, VOCE SE AFOGOU !": 

GOTO 1360 

1430 IF B(4)>-1 THEN PRINT "VO 
CE ACHOU UM REVOLVER”: LET B(4) 
=-1: бото 400 

1440 PRINT "VOCE SE MOLHOU TODC 


": бото 400 


ии ии!» ЧГ |] 


1400 REM **NADAR** 

1410 IF L<>7 THEN PRINT ” ONDE? 
11”:GOTO 330 

1420 IF 0B(2)=-1 THEN PRINT " Q 
UE VERGONHA, VOCE SE AFOGOU!”:G 
ото 1360 

1430 IF OB(4)>-1 THEN PRINT ” V 
OCE ACHOU UM REVOLVER” :0B (4)=-1 
:GOTO 330 

1440 PRINT " VOCE SE MOLHOU TOD 
0":GOTO 330 


A linha 1410 verifica se o aventurei- 
ro está próximo ao rio. Se nào estiver, 
o computador perguntará: “NADAR 
ONDE?!!” Como não existem piscinas 
ou praias na aventura, não há razão pa- 
ra escrever uma rotina de entrada para 
lidar com qualquer outra resposta. Ne- 





nhuma sugestão aparecerá e o jogo pros- 
seguirá, mostrando as direções disponi- 
veis. Caso tente atravessar o rio carre- 
gando o tijolo, o jogador morrerá — 
“QUE VERGONHA; VOCÊ SE AFO- 
GOU!”, comentará friamente o compu- 
tador. Mas essa “morte” tem suas par- 
ticularidades: depois de afundar, o j 
gador poderá ressuscitar, se escolher jo- 
gar novamente. 

A linha 1430 verifica se o jogador 
carrega o revólver. Em caso negativo, 
o elemento da matriz de localização de 
objetos correspondente ao revólver se- 
rá ajustado e surgirá a mensagem: “VO- 
CÊ ENCONTROU UM REVÓLVER”. 

Se o aventureiro já encontrou a ar- 
ma e estiver tentando atravessar o rio 
novamente, a linha 1440 dirá: “VOCÊ 
SE MOLHOU TODO”. 


FINALMENTE, O OLHO PERDII 


O jogador só poderá recuperar o tào 
cobicado olho perdido do totem inca se 
o saco de bolas de gude tiver sido en- 
contrado. O passo a seguir será, portan- 
to, esvaziar o saco para o olho apare- 
cer. Aqui está a rotina. 


1450 REM **ESVAZIAR** 
1460 IF N$<>”"SACO” ( TO LEN NS) 
THEN PRINT "ISTO NAO PODE SER 





ESVAZIADO”: GOTO 400 
1470 IF B(1)<>-1 THEN LET G=1: 
GOTO 1270 


1480 PRINT "AS BOLINHAS SE ESPA 
LHAM PELO CHAO”: LET B(5)=L: GO 
то 370 


TITO 


1450 REM **ESVAZIAR** 

1460 IN=INSTR("SACO”,N$):IF IN< 
21 THEN PRINT ” ISTO NAO PODE 8 
ER ESVAZIADO":GOTO 330 

1470 IF OB(1)<>-1 THEN G=1:GOTO 
1270 ы 

1480 PRINT ” AS BOLINHAS SE ESP 


ALHAM PELO CHAO” :0B (5) =L:GOT 
0 370 
1450 REM ** ESVAZIAR ** 


1460 IN = 0: IF N$ = LEFT$ ("S 
ACO”, LEN (N$)) THEN IN = 1 
1465 IF ІН < > 1 THEN PRINT 
” ISTO NAO PODE SER ESVAZIADO” : 
сото 330 

1470 IF 0B(1) < > 
= 1: GOTO 1270 
1480 PRINT ” AS BOLINHAS SE ES 
PALHAM PELO CHAO” :0B(5) = L: GO 
то 370 


- 1 ТНЕМ 6 


А rotina é chamada quando о ауеп- 
tureiro aciona o comando “ESVAZIAR” 
alguma coisa. A linha 1460 verifica se essa 
coisa é o saco. Se não for (N$ < > “SA- 
CO"), aparecerá a mensagem “ISTO 
NÃO PODE SER ESVAZIADO”. A li- 
nha 1470 verifica se o saco está sendo car- 
regado (OB (1) « »-1 ou B (1) < >-1). 
Se nào estiver, em vez de emitir outra 
mensagem, o programa pulará para a li- 
nha 1270, que exibirá a mensagem: “VO- 
CÊ NÃO PODE LARGAR O QUE NÃO 
TEM”. Como o jogador não quererá 
“LARGAR” nada, essa linha deve ser 
modificada, de forma a dar uma respos- 
ta adequada. Mude-a para: 


1270 IF B(G) < > -1 THEN PRINT 
"VOCE NAO PODE ";VS;” O QUE NAO 
TEM":GOTO 330 


iu uu Pee [có] 


1270 IF OB(G)<>-1 THEN PRINT "V 
OCE NAO PODE ";V$;” O QUE NAO T 
EM” :GOTO 330 


A variável V$ imprimirá o verbo ade- 
quado — “LARGAR” ou “ESVA- 
ZIAR” —, conforme a situação. 

Se o saco estiver sendo carregado, o 
programa irá para a linha 1480. A men- 
“AS BOLINHAS SE ESPA- 
"' será mostrada 
€ o elemento 5 da matriz de localização 
de objetos será acertado. 

Não há necessidade de imprimir uma 
mensagem para informar o resultado 
porque, ao pular para a linha 370, a im- 
pressão usual de uma descrição longa 
poderá substituí-la. Aparecerá então no 
vídeo a descrição usada na matriz de 
descrições longas (ver linha 240). 


ENDA A LÂMPAI 


A lâmpada precisa ser acesa para que 
o jogador veja as saídas do quarto es- 
curo. Se o aventureiro não estiver car- 
regando a lanterna, a escuridão não se- 
rá vencida e ele ficará preso. Esta é a ro- 
tina para acender a lâmpada, 


1490 REM *XACENDER** 

1500 IF N$<>"LAMPADA” ( TO LEN N 
$) THEN PRINT "NAO PODE SER FE 
ITO": GOTO 400 

1510 IF B(6)X»-1 THEN LET G-6: 
GOTO 1270 

1520 IF LA-1 THEN PRINT "JA ES 
TA ACESA": GOTO 400 

1530 LET LA-1: LET DA-0: PRINT 
"OK": GOTO 330 





1490 REM **ACENDER** 


1500 IN=INSTR("LAMPADA” ,NS) :IF 
IN<>1 THEN PRINT " МАО PODE SER 


FEITO” :GOTO 330 


1510 IF 0B(6)<>-1 THEN G=6:GOTO 


1270 
1520 IF LA=1 THEN PRINT” 


JA EST 


1490 


PRINT "OK":GOTO 330 


REM ** 


1500 ІМ - 0: 
AMPADA", LEN 


1505 


IF IN € 


ACENDER ** 

IF N$ = LEFT$ ("L 

(N$)) THEN IN = 1 
> 1 THEN PRINT 


" NAO PODE SER FEITO”: GOTO 330 
1510 IF OB(6) < > - 1 THEN G 
GOTO 1270 
IF LA = 1 THEN PRINT "JA 


РВІМТ "ОК": GOTO 3 


Para que essa rotina seja requisitada, 
é preciso que o jogador emita a instru- 








ção “ACENDER”. A linha 1500 (1505 
no Apple) é bem parecida com a linha 
equivalente na rotina “ESVAZIAR”, 
verificando se o aventureiro escreveu a 
palavra “LÂMPADA”. Caso a lanter- 
na não esteja sendo carregada, surgirá 
a mensagem “VOCÊ NÃO PODE 
ACENDER O QUE NÃO TEM”. A li- 
nha 1520 verifica se o “indicador de 
lâmpada acesa” — LA — está “liga- 
do”, comunicando o fato ao aventurei- 
ro. O indicador de lâmpada acesa é fi- 
xado em 1 pela linha 1530, que também 
imprime um “OK”. 





А АУЕКТУВА СНЕ Я 





Quando nosso herói entra em cena, 
encontra uma corrente pendurada, pró- 
xima ao trono. 

O que deve ele fazer? Que tal puxar 
a corrente? Aqui está uma rotina que 
cuidará das consegiuências: 


1300 REM **PUXAR** 

1310 IF N$-"CORRENTE"( TO LEN N 
$) THEN LET IN=1: IF IN=1 AND 
L<>24 THEN PRINT "NADA ACONTEC 
E”: GOTO 400 

1320 IF IN<>1 THEN PRINT "VOCE 
NAO PODE PUXAR ISTO !”: GOTO 4 


00 

1330 IF B(5)<>-1 THEN PRINT "V 
OCE CAI DENTRO DO VASO E VAI EM 
BORA COM A DESCARGA”: GOTO 1360 
1335 REM **FIM DA AVENTURA** 
1340 PRINT "PARABENS ! VOCE COM 
PLETOU A TAREFA." 

1360 PRINT '"QUER JOGAR NOVAMEN 
TE (S/N)?" 

1370 LET AS=INKEYS: IF A$<>”S” 
AND AS<>"N” THEN GOTO 1370 
1380 IF AS-"S” THEN RUN 

1390 STOP 





1300 REM **PUXAR** 

1310 IN-INSTR("CORRENTE" , N$) : IF 
IN=1 AND L<>24 THEN PRINT " NA 
DA ACONTECE” :GOTO 330 

1320 IF IN<>1 THEN PRINT " VOCE 
NAO PODE PUXAR I5S0!”:GOTO 330 
1330 IF OB(5)<>-1 THEN PRINT” V 
OCE CAI DENTRO DO VASO E VAI 
EMBORA COM A DESCARGA” :GOTO 136 
0 


1340 REM **FIM DA AVENTURA** 
1350 PRINT ”PARABENS! VOCE COMP 
LETOU A TAREFA” 

1360 PRINT:PRINT" QUER JOGAR NO 
VAMENTE (S/N)?" 

1370 AS=INKEYS:IF AS<>"S” AND À 
$<>"N” THEN 1370 

1380 IF AS="S” THEN RUN 


808) 1390 END 
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1300 REM ** PUXAR ** 

1310 IN = 0: IF N$ = LEFTS (ºC 
ORRENTE”, LEN (N$)) THEN IN = 1 
1315 IF IN = 1AND L < > 24 T 
HEN PRINT "NADA ACONTECE”: GOT 
o 330 

1320 ІР ІМ < > 1 THEN PRINT 
” VOCE NAO PODE PUXAR ISSO”: GO 








то 330 

1330 IF OB(5) = - 1 THEN 1340 
1335 PRINT " VOCE CAI DENTRO D 
O VASO E VAI EMBORA COM A DESCA 
RGA": GOTO 1360 

1340 REM ** FIM DA AVENTURA * 
* 


1350 PRINT "PARABENS ! VOCE CO 
MPLETOU A TAREFA.:? "FIMDAAVENT 
URA" 





7! 
lli 


UU 


| 


[] 


1360 PRINT : PRINT ” QUER JOGA 
R NOVAMENTE (S/N) ?" 
1370 СЕТ А5: IFAS< > 
DAS < > "Nº THEN 1370 
1380 IF A$ - "S" THEN RUN 
1390 END 


"S" АМ 


A linha 1310 considera a possibilida- 
de de o jogador ter trazido a corrente 
consigo antes mesmo de puxá-la. Neste 
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caso, ela dirá ao aventureiro que “NA- 
DA ACONTECE”. 

Se o herói tentar puxar qualquer ou- 
tro objeto, a linha 1320 lhe dirá: - 
CÊ NÃO PODE PUXAR ISSO”. 

Depois disso, acontece o inesperado. 
Se o jogador estiver na sala do trono, não 
tendo porém encontrado o olho, apare- 
cerá a mensagem “VOCÊ CAI DENTRO 
DO VASO E VAI EMBORA COM A 
DESCARGA”. E o jogo termina. 

Se o aventureiro der um jeito de en- 
contrar o olho e puxou a corrente no 
aposento real, nenhuma dessas linhas te- 
rá efeito e ele poderá suspirar aliviado 
ao receber a mensagem: “PARABENS! 
VOCÊ COMPLETOU A TAREFA. 
FIM DA AVENTURA”. 

Finalmente, nas linhas 1360 e 1380, 
há uma opção para jogar novamente. 
Esta, porém, só será útil se o aventurei- 
ro tiver sido enclausurado na masmor- 
ra ou seguido com a descarga cano 
adentro. 


А$ |М$ТВИСОЕ$ 


Devemos incorporar, agora, algumas 
informações à rotina do jogo. Antes dis- 
so, porém, precisamos verificar o espa- 
ço restante da memória (ver página 212). 
Se esse espaço for pequeno, será neces- 
sário retirar todas as linhas REM — te- 
remos então que remunerar os coman- 
dos COSUB que direcionam o progra- 
ma para essas linhas, evitando assim 
mensagens de erro. 

A decisão de quantas instruções se- 
rão fornecidas deve ser tomada de 
acordo com o espaço disponível de me- 
mória. Nelas podemos incluir até con- 
siderações quanto ao formato do vídeo 
do computador, o que influenciará na 
quantidade de detalhes a serem inseri- 
dos antes de passarmos para outra tela. 

Como nossa aventura é muito sim- 
ples, a rotina de instruções reduz-se a al- 
gumas linhas, contendo poucas infor- 
mações. Aqui está: 


80 CLS : 
ES (S/N)?" 

90 LET AS=INKEYS: 
EN GOTO 20 . 

95 ІЕ А$="5" THEN GOSUB 6000 
6000 REM **INSTRUCOES** 
6010 CLS PRINT : PRINT " DEV 
IDO A UM COLAPSO FINANCEIRO VO 
CE DEIXOU O PAIS." 
6020 PRINT PRINT " 
LEMAS VAO TERMINAR 
OCE ENCONTRAR O 
RIO OLHO CRAVEJADO DE 
NTES DE UM TOTEM INCA. 


PRINT "QUER INSTRUCO 
IF A$="" TH 


SEUS PROB 
QUANDO V 
LEGENDA 
BRILHA 
DEPOI 


S DE FAZE-LO, VOCE TERA 
ENCONTRAR A SAIDA.” 
6030 PRINT : PRINT " 
COM O COLETOR 
IMPOSTOS !" 

6040 PRINT AT 20,4;"PRESSIONE Q 
UALQUER TECLA PARA CONTI 
NUAR" 

6050 LET AS=INKEYS: 
EN GOTO 6050 

6060 RETURN 


[түт 


10 CLS:PRINT” 
S/N)?” 

20 AS=INKEYS:IF A$="” THEN 20 
30 IF A$-"S" THEN GOSUB 6000 
6000 REM **INSTRUCOES** 

6010 CLS:PRINT:PRINT ” DEVIDO A 
UM COLAPSO FINANCEIRO VOCE DE 
IXOU O PAIS.” 

6020 PRINT:PRINT ” SEUS PROBLEM 
AS VAO TERMINAR QUANDO VOCE 
ENCONTRAR O LEGENDARIO 
OLHO CRAVEJADO DE BRILHANTE 
S DE UM TOTEM INCA. DEPOIS D 
E FAZE-LO VOCE TEM QUE ЕМСОМТВ 
AR A SAIDA.” 

6030 PRINT: PRINT” 
M O COLETOR 
IMPOSTOS |” 

6040 PRINT €451,"APERTE QUALQUE 
R TECLA PARA CONTINUAR.” 
6050 AS=INKEYS:IF AS="" THEN 60 


QUE 


CUIDADO 
DE 


IF A$-"" TH 


QUER INSTRUCOES 


CUIDADO CO 


50 
6060 RETURN 


10 
ES 
20 
30 
0 
6000 REM ** INSTRUCOES ** 
6010 НОМЕ : PRINT "DEVIDO A UM 
COLAPSO FINANCEIRO, VOCE " 
6020 PRINT "DEIXOU O PAIS." 
6025 PRINT "SEUS PROBLEMAS VAO 
TERMINAR" 

6030 PRINT "QUANDO VOCE ENCONT 
RAR O LEGENDARIO" 

6040 PRINT "OLHO CRAVEJADO DE 
BRILHANTES, DE UM " 

6050 PRINT "TOTEM INCA. DEPOIS 
DE FAZE-LO, VOCE " 

6060 PRINT "TERA QUE ENCONTRAR 
A SAIDA” 

6070 PRINT : PRINT 
M O COLETOR DE IMPOSTOS 
6080 PRINT : PRINT "APERTE QUA 
LQUER TECLA PARA CONTINUAR" 
6090 GET A$: IF A$ - "" THEN 6 
090 
6100 


HOME 

(S/N)?" 
GET A$: IF A$ - "" THEN 20 
IF AS - "S" THEN GOSUB 600 


PRINT "QUER INSTRUCO 


"CUIDADO CO 


RETURN 


Agora, grave em fita ou disco a aven- 
tura completa. A estrutura desse jogo — 
O Olho Perdido do Totem Inca — po- 
de servir de base para suas próprias 
aventuras. 










1% 
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DATILOGRAFE 
FRASES LONGAS 


Agora que vocé já tem certo domínio 
do teclado, chegou o momento de 
testar sua habilidade como datilógrafo, 
copiando frases mais longas 

exibidas na tela do computador. 








Se você já se sente em condições de 
digitar qualquer palavra ou frase a um 
ritmo seguro, podemos passar a uma 
nova etapa de nosso curso de datilogra- 
fia. Até este ponto, o curso foi útil tan- 
to para aqueles que querem apenas di- 
gitar programas quanto para os interes- 
sados em escrever cartas ou usar um edi- 
tor de textos. 

Nesta seção, você encontrará a opor- 
tunidade de aperfeiçoar suas habilida- 
des, utilizando um texto mais longo. 
Dessa forma, além de tornar-se mais rá- 
pido, você acumulará experiência para 
usar o computador como uma ferra- 
menta de escrita. 

É muito importante continuar fiel à 
técnica de digitação usada até agora: 
portanto, não olhe para o teclado en- 
quanto digita; use sempre as teclas base 
como referência; procure também man- 
ter o ritmo constante — não saia digi- 
tando sofregamente, a alta velocidade, 
mas sem segurança (a regra de ouro é 
iniciar a uma velocidade que possa ser 
mantida por algum tempo e, só então, 
ir acelerando aos poucos). 


O USAR O PROGRAMA 


Ao executar O programa, o compu- 
tador apresentará um menu inicial com 
duas opções de teste. A primeira mos- 
tra frases geradas ao acaso a partir de 
declarações DATA do programa. À se- 
gunda requer um pouco mais de traba- 
lho. Ela permite que você use frases 
mais longas, mas exige que estas sejam 
digitadas antes. Feito isto, as frases são 
mostradas na tela, como no primeiro 
teste. Em ambos os casos você deverá 
datilografar o texto da maneira que ele 
aparece na tela; o programa lhe infor- 
mará então o número de erros cometi- 
dos e a sua velocidade em palavras por 
minuto. É possível também escolher a 
maneira de proceder ao se cometer um 
erro (isto é, você pode usar a tecla de 
retrocesso para corrigi-lo ou não). 

Se for escolhida a primeira opção, o 
engano deve sér corrigido assim que 
ocorre, 

De outro modo, o computador 
aguardará até que a tecla correta seja 
pressionada. 








O programa para o Apple é um pou- 
co diferente do de outros micros: ele não 
apresenta a velocidade de digitação de- 
vido à falta de um cronômetro interno. 
E seo seu Apple (ou compatível) não ge- 
ra caracteres minúsculos, não há proble- 
ma em digitá-los todos em caracteres 
maiúsculos. 

Ao digitar as linhas que contêm as in- 
truções DATA, tome cuidado em dei- 
xar sempre um espaço no fim de cada 
frase, para que as palavras não fiquem 
justapostas quando o programa for exe- 
cutado, 

Após algum tempo usando o progra- 
ma, vocé verá que as frases se tornam 
conhecidas e monótonas, visto que há 
poucas variações. Tente então substi- 
tuí-las por outras a seu gosto. Para fa- 
zer isso, liste as linhas DATA e 
reescreva-as com frases suas. Lembre- 
se de colocar entre aspas as que contêm 
vírgulas; faça o mesmo com as que ter- 
minam cada uma das linhas. Você evi- 
tará, assim, que elas sejam divididas em 
duas, ou que o espaço final seja despre- 
zado pelo computador. Tome medidas 
também para que o número de frases 
não se altere. Se você não se sentir à 
vontade para fazer isto, pode variar o 
exercício optando por dar entrada a tre- 
chos completos de um texto, ou seja, op- 
tando pelo teste 2. 

Cada passagem pode ter um máximo 
de 255 caracteres e o computador acei- 
ta até três frases ao mesmo tempo. Res- 
ponda às perguntas que aparecerem e di- 
gite as frases de sua escolha. Depois de 
colocá-las na memória do computador, 
você poderá escolher qualquer uma 
delas. 

Nos micros MSX, TRS-Color e Spec- 
trum, os erros são comunicados pelo 
programa por intermédio de um som 
grave. Nos computadores da linha Ap- 
ple, essa função é desempenhada por 
um bip. 











10 POKE 23561,0 
20 CLS 

25 DIM t$(3,255): 
LET df=0, 

30 PRINT AT 7,7;"Qual teste ( 
1 ои 2) ?" 


DIM t(3): 





а 





— axa аара 


“SENTENÇAS MAIS LONGAS 
— VEJA COMO O PROGRAMA 
EE < FUNCIONA 

USE A TECLA DE RETROCESSO 


PARA CORRIGIR OS ERROS 


а PRATIQUE COM TEXTOS MAIS 
LONGOS 

REGRAS PARA UMA BOA 
APRESENTAÇÃO DO TEXTO 


40 PRINT AT 10,7;"Digite '0' 
para sair” 
50 LET a$-INKEY$: IF a$<”0” 
OR a$>"2” THEN GOTO 50 
60 IF a$-"0" THEN STOP 
70 GOSUB VAL a$*1000 
80 CLS : PRINT AT 15,4;"Palav 
ras por minuto- ";LEN c$*(INT 
((500/(PEEK 23672*256*PEEK 
23673))*100)/100) 
90 PRINT AT 17, Numero de e 
rros= ";e 
100 GOTO 30 
1000 CLS : PRINT "Deseja habili 
tar a tecla DELETE (s/n)?" 
1010 LET a$-INKEY$: IF a$4»"n" 
АМО а$<>"в" THEN СОТО 1010 
1020 LET е-0: LET 4-0: ІҒ а5-"в 
" THEN LET d=1 
1030 cLS 
1040 LET c$="": RESTORE : FOR к 
-1 TO 4: LET r-INT (RND*3)*1: Е 
OR 5-1 TO 3 
1050 READ b$: IF j=r THEN LET 
c$=c$+b$ 
1060 NEXT j: NEXT k 
1070 PRINT c$: PRINT : PRINT 
1080 І.ЕТ рр-0 
1090 LET a$-INKEY$: IF a$-"" TH 
EN GOTO 1090 
1100 POKE 23672,0: POKE 23673,0 
: PAUSE 0: GOTO 1120 
1110 PAUSE 0 
1115 LET a$-INKEY$: IF a$-"" TH 
EN GOTO 1110 
1120 IF aS<>cS(pp+1) AND d=0 TH 
EN GOTO 1170 
1130 PRINT a$;CHR$ 95;CHR$ 
LET pp-pp*l 
1140 ІР а$<>с$(рр) ТНЕМ СОТО 1 
170 
1150 SOUND .01,30: IF pp=LEN c$ 
THEN RETURN 
1160 GOTO 1110 
1170 SOUND .05, : LET е=е+1 
1180 ІҒ 4-0 ТНЕМ GOTO 1110 
1190 PAUSE 0: LET aS=INKEYS: IF 
aS<>CHRS 12 THEN GOTO 1190 
1200 LET рр=рр-1: PRINT CHRS 8; 
CHR$ 95;" CHR$ 8;CHR$ 8;: GOT 
o 1110 
1210 GoTO 1130 
1500 DATA "O cachorro manco que 
anda com tres pernas ","E fato 
que qualquer um ","Na hora cer 
ta, o elefante " 
1510 DATA "pode arrastar ","ser 
a capaz de sentar sobre ","pode 
pular por sobre ” 
1520 DATA "a velha caixa esbura 
cada ","a torre inclinada de Pi 
Sa ","qualquer uma das arvores 








330 


——n—T 
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da fazenda " 

1530 DATA "e derruba-la com um 
enorme estrondo.","sem medo de 
ter uma surpresa.","ate a hora 
de fechar o zoologico." 


2000 CLS 
015 

2005 LET df-1 
2010 FOR n=1 TO 3: 
duza a passagem numero 
INE r$: LET t(n)*LEN r$: 
(n)*r$: NEXT n 

2015 INPUT "Que passagem voce d 
eseja digitar (la 3)? "'p 
2017 IF p>3 OR p<l THEN GOTO 2 
015 

2018 LET c$-t$(p, TO t(p)) 

2020 CLS PRINT "Deseja habili 
tar a tecla DELETE (s/n)?" 

2030 LET a$-INKEY$: IF a$4»"s" 
AND a$<>"n” THEN GOTO 2030 
2040 LET d-0: LET e-0: IF a$-"s 
” THEN LET d-1 

2050 CLS GOSUB 1070: 


IF df=1 THEN GOTO 2 


INPUT “Intro 
”;(n)” L 
LET t$ 


RETURN 


10 CLEAR 2000 

20 CLS:DIM AS(2) 

30 PRINT 6101,"QUAL TESTE (1 OU 
2)?" 

40 PRINT 6164,"PRESSIONE (0) PA 
RA SAIR" 

50 AS=INKEYS:IF AS<"0” OR AS>"2 
” THEN 50 

60 IF A$-"0" THEN CLS:END 

70 ON VAL(AS) GOSUB 1000,2000 
80 CLS:PRINT 6448,USING"PALAVRA 
З РОВА МІМОТО= фф. #6" ; ГЕМ (С9) 50 
0/ТІМЕВ 

90 PRINT 6480,"NUMERO DE ERROS- 
"E: 

100 POKE 282,255:GOTO 30 

1000 CLS:PRINT " DESEJA HABILIT 
AR A TECLA DE RE TROCESSO (S/N 
)?" 

1010 AS=INKEY$S:IF AS<>"N” 
$€»"S" THEN 1010 

1020 E=0:D=0:IF A$="S” THEN D=1 
1030 CLS:POKE 282,0 

1040 C$="":RESTORE:FOR K=1 TO 4 
:R=RND(3) :FOR J=1 TO 3 


AND A 





1050 READ B$:IF J=R THEN C$=CS+ 
B$ 

1060 NEXT J,K 

1070 PRINT C$ 

1080 PP=0 

1090 AS-INKEYS:IF A$-"" THEN 10 
90 

1100 TIMER=0:GOTO 1130 

1110 AS=INKEYS:IF A$="" THEN 11 
10 

1120 IF AS<>MIDS(CS,PP+1,1) AND 


D=0 THEN 1170 


1130 PRINT €PP+256,A$:PP=PP+1 
1140 IF AS<>MIDS(C$,PP,1) THEN 
1170 

1150 SOUND 200,1:IF PP-LEN(C$) 
THEN RETURN 

1160 GOTO 1110 

1170 SCREEN 0,1:SOUND 10,1:E=E+ 
1 


1180 IF D=0 THEN 1110 

1190 AS=INKEYS:IF AS<>CHR$(8) T 
HEN 1190 

1200 PP=PP-1:PRINT €256,MID$S (CS 
»1,PP) :GOTO 1110 

1210 GOTO 1130 

1500 DATA O cachorro manco que 

anda com tres pernas ,E fato qu 
e qualquer um ,"Na hora certa, 

o elefante " 


1510 DATA pode arrastar ,sera c 


apaz de sentar sobre ,pode pula 
r por sobre 

1520 DATA a velha caixa esburac 
ada ,a torre inclinada de Pisa 
«qualquer uma das arvores da fa 
zenda 

1530 DATA e derruba-la com um e 
norme estrondo., sem medo de ter 
uma surpresa. ,ate a hora de fe 
char o zoologico. 

2000 CLS:P=0:IF AS(0)="" AND AS 











">= MÀ 


(1)="" AND AS(2)="" THEN 2090 
2010 PRINT” VOCE QUER USAR UMA 
PASSAGEM JA DIGITADA (S/N) ?" 
2020 AS=INKEYS:IF AS<>"S” AND A 
$<>"N” THEN 2020 

2030 IF A$-"S" THEN 2120 

2040 IF AS(P)="" THEN 2090 

2050 P=P+1:IF P<3 THEN 2040 
2060 PRINT " AS TRES PASSAGENS 
FORAM DIGITA- DAS. QUAL VOCE DE 
SEJA REESCRE- VER (1-3)?" 
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2070 AS=INKEYS:IF AS<"1” OR AS> 
"3" ТНЕМ 2070 

2080 P=VAL(AS)-1 PRINT AS:PRINT 
2090 POKE 282,0:PRINT "DIGITE U 
MA PASSAGEM: ” 

2100 LINE INPUT AS(P) 

2110 GOTO 2150 

2120 CLS:PRINT"QUAL PASSAGEM SE 
RA USADA (1-3) 7” 

2130 AS=INKEYS:IF AS<"1” OR AS> 
"3" ТНЕМ 2130 








— созш L 


2140 P=VAL(AS)-1:IF AS(P)="" TH 
EN 2120 

2150 CLS 

2160 POKE 282,255:CLS:PRINT " D 
ESEJA HABILITAR A TECLA DE RE 
TROCESSO (S/N)?" 

2170 AS=INKEYS:IF AS<>"S” AND A 
8<>"М" ТНЕМ 2170 

2180 D-0:E-0:IF A$-"S" THEN D=1 
2190 CL ОКЕ 282,0:С$=А$ (Р) :С0 
SUB 1070:RETURN 





10 HOME : DIM AS(2) 
20 НТАВ 8: УТАВ 5: 
TESTE? (1-2)" 

30 HTAB 6: VTAB 7: PRINT "TECL 
E <0> PARA TERMINAR." ; 


PRINT "QUAL 





40 СЕТ А5: ІҒ А5 < "0" ОВ АЗ > 
"2" ТНЕМ 40 

50 IF NOT VAL (A$) THEN HOM 
E : END 

60 ON VAL (A$) GOSUB 1000,200 
0 

70 HOME : HTAB 7: VTAB 14: PRI 
NT "NUMERO DE ERROS =>";E 

80 GOTO 20 

1000 НОМЕ :Ү = 0 

1010 PRINT "VOCE QUER USAR A T 
ECLA DE RETRO 
СЕ550 (<-)? 

1020 GET A: IF A$ < > "S" AN 
D A$ < > "Nº THEN 1020 


1030 E = 0:D = 0: 
= 83 THEN D = 1 


IF ASC (A$) 








1040 IF Y THEN 1080 
1050 C$ = "": RESTORE : FOR K = 
l TO 4:R * INT ( RND (1) * 3) 
* 1: FOR J = 1 TO 3 

1060 READ B$: IF J = R THEN C$ 
= C$ + B$ 

1070 NEXT : NEXT 

1080 PRINT CS:PP = 0: VTAB 12 
1090 GET AS: IF AS = CHRS (8) 
THEN 1090 

1100 ІР АҘ$ < > MIDS (CS,PP + 
1,1) AND D = O THEN 1140 

1110 PRINT А$;:РР = РР + 1 
1120 IF A$ < > MIDS (CS,PP,1 
) THEN 1140 

1130 IF РР = LEN (C$) THEN R 
ETURN 

1135 бото 1090 

1140 PRINT CHRS (7);:E = E + 
1 

1150 IF NOT D THEN 1090 

1160 GET A$: IF A$ < > CHR$ 


(8) THEN 1100 

1170 PRINT A$;:PP = PP - 1: GO 
TO 1090 

1500 DATA O cachorro manco qu 
e anda com tres pernas ,E fato 
que qualquer um ,"Na hora certa 
+ O elefante ” 

1510 DATA pode arrastar , sera 
capaz de sentar sobre ,"pode p 
ular por sobre ” 

1520 DATA a velha caixa esbur 
acada ,a torre inclinada de Pis 
a ,"qualquer uma das arvores da 
fazenda ” 











3% 
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A APRESENTAÇÃO DE UM TEXTO 

Dada a facilidade com que se pode 
corrigir erros no teclado do computa- 
dor, é possível produzir cartas limpas 
sem borrões ou letras esbranquiçadas 
pelo uso de papel corretor, 

Um documento bem montado apre 
senta margens de pelo menos trés cen 
tímetros de ambos os lados (o texto, 
obviamente, deve estar centralizado no 
sentido vertical). Se vocé usar um edi 
tor de textos, as margens serão defini 
das automaticamente; mas, num pro 
grama seu, isso deve ser feito por in 
termédio dos comandos PRINT ou 
PRINT AT 

Tão importante quanto as margens 
é a distribuição correta de parágrafos. 
Estes fazem com que o texto fique cla 
ro e fácil de ser lido. Existem duas for 
mas de iniciar um parágrafo: a tradicio 
nal, em que a primeira palavra comeca 
a ser escrita alguns espacos para a di 
reita; e a mais moderna, na qual se pu 
la uma linha entre um parágrafo e ou 
tro, sem fazer o recuo no comeco da 
frase. Pode-se também, evidentemen 
te, combinar os dois métodos 

Se você tiver uma carta muito pe 
quena para redigir, deixe um bom es 
paço na parte de cima do papel, antes 
de iniciar a impressão e/ou aumente o 
número de linhas entre os parágrafos. 
Com um pouco de prática, você produ 
zirá textos bem centralizados e com um 


belo aspecto 


1530 DATA e derruba-la com en 
orme estrondo.,sem medo de ter 
uma surpresa. ,ate a hora de fec 
har o zoologico. 
2000 HOME :P = O: IF AS(0) + A 
$(1) + AS(2) = "" THEN 2090 
2010 PRINT "VOCE QUER USAR UMA 
PASSAGEM JA DIGITADA? (S/N)”; 
2020 GET A$: IF A$ < > "5" AN 
D A$ < > "М" ТНЕМ 2020 
2030 ІҒ А5 - "5" ТНЕМ 2150 
2040 IF AS(P) - "" ТНЕМ 2090 
2050 P = P + 1: IF P < 3 THEN 2 
040 
2060 PRINT PRINT "AS TRES PA 
SSAGENS JA FORAM DIGITADAS. 
QUAL VOCE DESEJA REESCREVER? 
(1-3)”; 
2070 СЕТ А$: 
> 43% 
2 2080 P - 
$: PRINT 








IF AS < "1” OR AS 
THEN 2070 


VAL (AS) - 1: PRINT A 





2085 AS(P) - " 
2090 PRINT 
PASSAGEM: " 
2100 FOR I = 1 TO 255 
2110 GET AS: IF AS = 
) THEN 2140 


PRINT "DIGITE UMA 


CHR$ (13 


2115 IF AS = CHRS (8) THEN AS 
(Р) = LEFTS (AS(P), LEN (AS(P) 
) - 1): PRINT CHR$ (8);: GOTO 
2110 

2120 AS(P) = AS(P) + AS 


2125 HTAB 1: VTAB 5: PRINT AS( 
Р); 

2130 NEXT 

2140 GOTO 2180 

2150 HOME : PRINT "QUAL PASSAG 
EM SERA USADA? (1-3) "; 

2160 GET AS: IF AS < "1" OR AS 
> "3" THEN 2160 

2170 P = VAL (AS) - 1: IF AS(P 


)- 


2180 


”” THEN 2150 
HOME 
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2190 C$ - AS(P):Y = 1; 
10: RETURN 


GOSUB 10 


10 CLEAR2000 
20 R-RND(-TIME):S$-"L10 02 G" 
30 CLS:DIMAS (2) 


40 LOCATE 8,5:PRINT"Qual teste? 
(1 ou 2)” 

50 LOCATE 6,7:PRINT"Tecle <0> p 

ara terminar.” 

60 А9-ІМКЕҮ5:ІҒА9<"0"ОНА5>"2"ТН 
ЕМ60 

70 IFA$="0"THENCLS: END 

80 ONVAL (A$) GOSUB1000,2000 

90 CLS:LOCATE5,12:PRINT"Palavra 

з por minuto => ";USING "444.44 
” ; LEN (C$) *600/TIME 

100 LOCATE7,14:PRINT”Número de 

erros =>";E 

110 60Т040 

1000 CLS:COLOR 15,6:Y=0 

1010 PRINT"Vocé quer usar a tec 
la de retrocesso 
(<<)?" 

1020 AS=INKEY$: IFAS<>"s"ANDAS<> 
"S"ANDAS<>"n"ANDAS<>"N"THEN1020 
1030 E-0:D-0:IFA$-"s"ORA$-"S"TH 
END=1 

1040 CLS: IFYTHEN1080 

1050 C$="":RESTORE:FORK=1TO4;R= 
INT(RND(1)*3)+1:FORJ=1TO3 

1060 READBS : IFJ=RTHENCS=C$+BS 
1070 NEXT:NEXT 

1080 PRINTCS 

1090 РР-0 

1100 AS=INKEYS: IFAS=""THEN1100 
1110 TIME=0:GOTO1140 

1120 AS=INKEYS:IFAS=""ORAS=CHR$ 
(8) THEN1120 

1130 IFAS<>MIDS(C$,PP+1,1) ANDD= 
OTHEN1170 

1140 VPOKE PP*201,ASC(A$):PP-PP 
+1 


1150 IFAS<>MIDS(CS,PP,1)THEN117 
0 


1160 ВЕЕР:ІЕРР-І.ЕМ(С9) THENCOLOR 
15,4:RETURNELSE1120 

1170 PLAY S$:E-E+1 

1180 IFD-0THEN1120 

1190 AS-INKEYS:IFA$-""THEN1190 
1200 IFAS<>CHRS (8) THEN1130 
1210 PP=PP-1:VPOKEPP+201,32:GOT 
01120 

1500 DATA O cachorro manco que 
anda com três pernas ,É fato qu 
e qualquer um ,"Na hora certa, 
o elefante ” 

1510 DATApode arrastar ,será ca 
paz de sentar sobre ,"pode pula 
r por sobre " 

1520 DATAa velha caixa esburaca 
da ,a torre inclinada de Pisa , 
"qualquer uma das árvores da fa 
zenda " 

1530, DATAe derrubá-la com enorm 
e estrondo.,sem medo de ter uma 
surpresa. até a hora de fechar 
o zoológico. 

2000 CLS:P=0:IFAS(0)+AS(1)+A5 (2 
)*""THEN2090 

2010 PRINT"Vocé quer usar uma p 
assagem já digitada? (S/N)" 
2020 AS=INKEY$S: IFAS<>"S"ANDAS<> 
"s“ANDAS<>"n”"ANDAS<>"N"THEN2020 
2030 IFA$-"S"ORA$-"s"THEN2120 
2040 IFAS(P)=""THEN2090 

2050 P-P*1:IFPX3THEN2040 

2060 PRINT:PRINT"As trés passag 


Deve-se seguir alguma regra ao modi- 
ficar as frases do programa? 

Isso depende de sua capacidade co- 
mo datilógrafo. Se o curso inteiro foi 
bem assimilado, vocé deve ser capaz 
de digitar corretamente qualquer tex 
to, seja este longo ou curto, simples ou 
complexo, usando os dez dedos e não 
apenas dois, como fazem alguns ini 
ciantes 

Os dedos menores, no entanto, não 
raro exigem mais treinamento que os 
outros. Para isso, certifique-se de que 
suas frases contêm muitos Qs, As, Zs, 
Ps, e Ls. É possível fazer treinamentos 
extra de quaisquer dedos, montando 
um conjunto apropriado de palavras. 

preciso, contudo, que essas pala 
vras apareçam misturadas a outras, de 
modo a cobrir todo o teclado. A frase 
“A zebra quase fugiu do zoológico pu 
lando a grade” é um exemplo, assim 
como “Fique quieto e traga-me uma 
caixa com doze litros de uísque". Se 
você quiser aumentar a destreza dos 
dedos menores, faça novos exercícios, 
inventando outras frases como essas. 

O programa desta lição combina três 
frases para formar um texto que tenha 
algum sentido. Com um pouco de ima- 


ginação, você poderá conseguir o mes 
mo efeito com suas próprias frases 


ens foram digitadas. Qual 
você deseja reescrever? (1-3)” 
2070 AS=INKEYS: IFAS<"1"ORAS>"3” 
THEN2070 

2080 P=VAL (A$)-1:PRINTAS:PRINT 
2090 PRINT"Digite uma passagem: 








2100 LINEINPUTAS (P) 

2110 60702150 

2120 CLS:PRINT"Qual passagem se 
rá usada? (1-3)" 

2130 AS=INKEYS:IFAS<"1"ORAS>"3" 
THEN2130 

2140 P=VAL(AS)-1:IFAS(P)=""THEN 
2120 

2150 CLS 

2160 COLOR 15,12:CS=AS(P):Y=1:G 
OSUB1010:RETURN 


3: 





Os computadores são freqüentemente 
relacionados com a Matemática. Embo- 
ra programar em BASIC não exija mui- 
to conhecimento nessa área, a maioria 
dos processos do BASIC é familiar a 
qualquer matemático, Contudo, muitos 
deles são usados não só para fazer cál- 
culos, como também para controlar vá- 
rias outras operações. 

Algumas das funções matemáticas 
mais úteis para o programador são 
aquelas que calculam a relação entre ân- 
gulos e distâncias; elas são, aliás, as mais 
indicadas para o trabalho com gráficos. 

Suponhamos, por exemplo, que que- 
remos desenhar um relógio. Poderíamos 
começar pela caixa, usando o comando 
CIRCLE — menos no TRS-80 e no Ap- 
ple —, mas teríamos dificuldade em po- 
sicionar corretamente os números, se 
calculássemos cada posição manualmen- 
te. Ora, um relógio com números em 
posições erradas não serviria para nada. 

Felizmente, as funções matemáticas 
podem ser usadas para fazer esse cúlcu- 
lo. No relógio, a distância entre dois nú- 
meros é de um doze avos de volta. Essa 
distância pode ser calculada pelo com- 
putador: basta fornecer-lhe um núme- 
ro em graus ou em radianos. 

Uma volta completa tem, no círculo, 
360 graus, o que equivale a 2xPI radia- 
nos. No relógio, os números estão po- 
sicionados a cada 30 graus (30º), ou a 
сайа Р1/6 radianos — ou seja, a cada 
um doze avos de volta. O número PI (lê- 
se “*pi””) é às vezes representado pela le- 
tra grega n. 

Freqüentemente usado para calcular 
vários aspectos de um círculo, tais co- 
mo sua área e comprimento, PI vale 
aproximadamente 22/7 (quase 3,14). Al- 
guns computadores já têm esse número 
armazenado na memória (como os mi- 
cros da linha Sinclair). 

É aconselhável familiarizar-se tanto 
com graus como com radianos, pois, se 
os primeiros são a medida mais comum 
para ângulos, é com radianos que os 
computadores trabalham. 

Se calcularmos SIN 30 (seno de 30) 
ao mesmo tempo numa calculadora e 
num computador, os resultados serão 
expressos de maneira diferente, a não 
ser que a calculadora esteja no modo 
RAD (radiano). Isto acontece porque, 


enquanto esta trabalha com medidas em 
graus, o computador opera com ra- 
dianos. 


A RADIANOS 


Para passar um número de graus pa- 
ra radianos basta dividi-lo por 180 e de- 
pois multiplicar o resultado por PI. Pa- 
ra efetuar a operação inversa (de radi: 
nos para graus), faz-se o contrário: 
multiplica-se o número por 180 e divide- 
ве рог РІ. 

O programa a seguir o ajudará a 
familiarizar-se com as conversões. Ele 
converte graus em radianos e vice-versa. 
Se você tiver uma calculadora, e quiser 
comparar os resultados, use-a da seguin- 
te maneira: calcule o seno (comando 
SIN), o cosseno (COS) e a tangente 
(TAN) de um número na calculadora e 


Seno, cosseno, tangente: transformadas 
em comandos do BASIC, essas 
funções trigonométricas são essenciais 
quando se quer desenhar curvas, 
círculos e elipses no computador. 


anote os resultados; converta esse núme- 
ro em radianos no computador; faça os 
mesmos cálculos na calculadora e com- 
pare os resultados com os obtidos ante- 
riormente — se tudo for feito correta- 
mente, eles deverão ser iguais. 


10 INPUT "DESEJA CONVERTER GR 
AUS PARA RADIANOS (1) OU 
RADIANOS PARA GRAUS (2) ?";a 
20 IF a-2 THEN GOTO 70 

30 IF a<>1 THEN GOTO 10 

40 INPUT "QUAL E O NUMERO?";b 
50 PRINT "E IGUAL A "; b/180* 














HE CONVERTA GRAUS EM RADIANOS 
Wi COMO DESENHAR UMA BÚSSOLA 
Wi COMO MEDIR ÂNGULOS NUMA 

BUSSOLA 


п O QUE SIGNIFICAM SIN, 











> COS E TAN 
OS GRÁFICOS DE SIN E COS 
USE SIN E COS PARA 
DESENHAR CÍRCULOS 

UMA ESFERA FEITA DE ELIPSES 





































































em 


"A 


PI;" RADIANOS": GOTO 90 

70 INPUT "QUAL E O NUMERO?";b 
80 PRINT "E IGUAL AÀ "; b*180/ 
PI;" GRAUS" 

90 PRINT "PRESSIONE QUALQUER 
TECLA PARA COMECAR NOVAMENT 
E": PAUSE 0: CLS : GOTO 10 


10 PI*4*ATN(1) 

20 CLS 

30 INPUT"VOCE QUER CONVERTER GR 
AUS PARA RADIANOS (1) OU RADI 
ANOS PARA GRAUS (2) ";A 

40 IF A-2 THEN GOTO 90 

50 IF A<>1 THEN GOTO 20 

60 INPUT "QUAL E O NUMERO ";B 


A divisào do círculo em 
graus possibilita uma 
grande variedade de 
aplicações, como os minutos 
e horas de um relógio 

ou os pontos cardeais de 
uma bússola. Uma 

volta completa contém 360 
graus. No computador, 

essa contagem é feita por 
meio de radianos: cada 
volta abriga, neste caso, 

2 PI radianos (PI é 

a forma fonética da letra 
grega x, que designa 

uma constante matemática de 
valor aproximado a 3,14). 


70 PRINT "ISSO E IGUAL A ";B*i 
/180;” RADIANOS” 

80 GOTO 110 

90 INPUT "QUAL E O NUMERO ";B 
100 PRINT "ISSO E IGUAL A ";B*1 
80/PI;” GRAUS” 

110 PRINT "PRESSIONE QUALQUER T 
ECLA PARA EXECUTAR OUTRA VEZ. 








120 AS-INKEYS:IF A$-"" THEN СОТ 
o 120 
130 GOTO 20 


sy 


10 PI-4*ATN(1) 

20 CLS 

30 INPUT"CONVERSAO DE GRAUS PAR 
A RADIANOS(1) OU DE RADIANOS PA 
RA GRAUS(2) ";А 

40 IF AX1 OR A>2 THEN 10 


50 PRINT:INPUT"QUAL O NUMERO "; 
B 





60 PRINT:PRINT"ELE VALE" 
70 ІҒА-1ТНЕМ PRINT B/180*PI;"RA 
DIANOS" 

80 IFA-2THEN PRINT B*180/PI;"GR 
AUS" 

90 PRINT:PRINT"QUALQUER TECLA P 
ARA REPETIR" 

100 IF INKEYS="" THEN 100 

110 GOTO 20 


[sk] [có] 


10 PI e 4 * 
20 HOME 
30 INPUT "CONVERSAO DE GRAUS P 
ARA RADIANOS (1) OU DE RADIANOS 
PARA GRAUS (2) 7? "ҘА 


ATN (1) 


40 IFAX >1ANDA< > 27H 
EN 20 

50 PRINT : INPUT "QUAL O NUMER 
0? ";B 

60 PRINT : PRINT "ELE VALE "; 


70 IF A= 1 THEN PRINT B / 18 
0 * PI;" RADIANOS" 

80 IF A =“ 2 THEN PRINT B * 18 
0 / PI;" GRAUS" 

90 PRINT : PRINT "QUALQUER TEC 
LA PARA REPETIR” 

100 GET A$: IF A$ - "" THEN 10 
° 


110 GoTo 20 


Uma vez rodado, o programa pede 
por 1 ou 2, que especificam se a conver- 
são é de graus em radianos ou de radia- 
nos em graus. Depois o programa soli- 
cita o número a ser convertido e faz apa- 
recer o resultado na tela. Entretanto, vi- 
sualizar um ângulo que é representado 
por um simples número pode às vezes 
ser muito difícil, a não ser que esteja- 
mos em condições de vê-lo desenhado. 
Uma representação bastante comum de 
todos os ângulos possíveis é encontra- 
da nas bússolas. Poderíamos verificar is- 
so numa bússola de verdade; mas para 
quê, se o computador pode mostrá-lo 
também? 


Е$ЕМНЕ ИМА В0$$01А 


Como existe uma forte relação entre 
circulos (ou arcos de círculos) e medi- 
das de ángulo, podemos usar essas me- 
didas para desenhar relógios, bússolas 
























ou quaisquer outras figuras circulares. 

Os programas mencionados a seguir 
desenham uma bússola e posicionam as 
marcações de graus. O norte correspon- 
de a 0,0 leste a 90, o sul a 180 e o oeste 
a 270 graus. Construída a bússola, o 
programa desenhará qualquer ângulo 
que quisermos. 

Somente a versão para o Sinclair 
Spectrum imprime números em volta da 
bússola. Mais adiante veremos como 
contornar esse problema, 

Quando rodamos o programa, o 
computador pede por um número e tra- 
ça uma linha do centro do circulo até um 
certo ponto, formando um ângulo de 
valor equivalente ao número fornecido. 
Isso quer dizer que, se fornecermos 90, 
a linha desejada partirá do centro em 
reção à direita. Se digitarmos 180, a li- 
nha sairá do centro e irá para baixo, re- 
presentando assim um ângulo de 180 
graus. 

Note que o computador espera que 
forneçamos um número em graus para 
depois converté-lo em radianos. Se 
olharmos para cada programa, veremos 
que a variável de entrada é dividida por 
180 e multiplicada por PI. Isto nos pou- 
pao trabalho de fazer a conversão ma- 
nualmente. 


10 BORDER 4: PAPER 4: INK O: 





CLS 
20 CIRCLE 131,88,60 
30 PLOT 131,84 : DRAW 0,8: 


PLOT 127,88: DRAW 8,0 

40 FOR a-0 TO 2*PI STEP PI/4 
50 PLOT 131*55 * SIN a,88+55* 
cos a: DRAW 10*SIN a,10*COS a 
60 NEXT a 

70 PRINT AT 2,16;0 

80 FOR b-45 TO 360 STEP 45 
90 PRINT AT 10-10*COS (b/180* 
PI),15*10*SIN (b/180*PI);b 
100 NEXT b 


110 INPUT " QUE ANGULO, EM G 
RAUS, VOCE DESEJA VER?",C 
120 INK 2 


130 PLOT 131,88: DRAW 45*SIN ( 
c/180*PI),45*cos (c/180*PI) 
140 INK O 

150 INPUT ” QUER RECOMECAR (s/ 
n)?";d$ 

160 IF d$-"s" THEN PLOT 131, 
88: DRAW OVER 1;45*SIN (c/180 
*PI),45*COS (c/180*PI) 

170 IF d$4»"s" THEN BORDER 7: 


PAPER 7: CLS : STOP 

180 PLOT 131,84: DRAW 0,8: 
PLOT 127,88: DRAW 8,0: GOTO 
110 





10 PMODE 4,1 

20 PCLS 

30 PI=4*ATN(1) 

40 CIRCLE (127,95),80,5 

50 FOR X-0 TO 2*PI STEP PI/4 
60 LINE (127+724SIN(X),95-72*C08 


(X)) - (127*79*8IN (X) ,95-79*COS (X 
)),PSET 

70 NEXT X 

80 CLS: INPUT"QUE ANGULO VOCE Q 
UER ";Z 

90 SCREEN 1,1 

100 X=127+60*SIN(Z*PI/180) :Y=95 
-60%С08(2%Р1/180) 

110 LINE (127,91)-(127,99), PSET 
120 LINE (123,95)-(131,95),PSET 
130 LINE (127,95)-(X,Y) , PSET 
140 IF INKEYS="" THEN 140 

150 LINE(127,95)- (X, Y) , PRESET 
160 GoTO 80 


КА 


10 PI-4*ATN(1) 

20 CLS 

30 INPUT"QUE ANGULO DESEJA VER 
";Z : Z-2/180*PI 

40 SCREEN2:COLOR1,15 

50 CIRCLE(128,96),80,1,,,1 

60 FOR Х-0 TO 2*PI STEP РІ/4 

70 LINE(128*72*SIN(X) ,96-72*COS 
(X)) - (12B8*79*SIN(X) ,96-79*COS (X 
99,1 

80 NEXT X 

90 LINE(128,92)-(128,100),1 

100 LINE(124,96)-(132,96),1 

110 FOR I-0 TO 500:NEXT 

120 X-128*60*SIN(Z) :Y496-60*COS 
(Z) 

130 LINE(128,96)-(X,Y),1 

140 FOR 1-0 TO 3000:NEXT 

150 GOTO 30 


[#15] 
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10 HGR 

20 HCOLOR- 3: HOME 

30 РІ = 4 * ATN (1) 

40 FOR X = 0 TO 2 * РІ ЗТЕР РІ 
/ 60 

50 HPLOT 140 + 80 * SIN (X),8 

0-80 * cos (X) 

60 NEXT X 

70 FOR X - 0 TO 2 * PI STEP PI 
14 

B0 HPLOT 140 * 72 * SIN (X),8 

0 - 72 * COS (X) TO 140 * 79 * 
SIN (X),80 - 79 * COS (X) 

90 NEXT X 

100 HPLOT 140,76 TO 140,84 

110 HPLOT 136,80 TO 144,80 


120 VTAB 23 
130 INPUT "QUE ANGULO DESEJA V 
ER ? ";2:2 - 2 / 180 * PI 


140 X - 140 * 60 * SIN (Z):Y = 
80 - 60 * COS (Z) 

150 HPLOT 140,80 TO X,Y 

160 GET AS: IF AS = "" THEN 16 
0° 

170 HCOLOR= O 

180 HPLOT 140,80 TO Х,Ү 

190 HOME : HCOLOR= 3 

200 GOTO 100 


Os programas do Apple e do TRS- 
Color começam ajustando o modo grá- 
fico adequado na linha 10; depois, eles 
limpam a tela. Como o TRS-Color, o 
MSX e o Apple não têm o número PI 
armazenado na memória; seus progra- 
mas criam uma variável, PI, com o mes- 
mo valor do número Pl. 

Todos os programas, exceto o do Ap- 


Cos IE E E cid LT LI 


ple, usam depois o comando CIRCLE 
para desenhar a caixa da bússola (círcu- 
lo) — linha 40 no TRS-Color, linha 20 
no Spectrum e linha 50 no MSX. O Ap- 
ple náo possui o comando CIRCLE; por 
isso, nele o círculo é desenhado passo a 
passo nas linhas 40 a 60. 

Os programas desenham entáo as 
marcações que completam a bússola: pe- 
quenas linhas a cada 45 graus ao redor 
do círculo nos ajudam a saber a exata 
posição de cada marcação (a versão pa- 
ra o Spectrum numera as posições). Tu- 
do isso é posicionado de acordo com a 
abertura de cada ángulo. 

A parte seguinte dos programas, me- 
nos o do MSX, pede que entremos o án- 
gulo desejado: linha 80 para o TRS- 
Color, 110 para o Spectrum e 130 para 
o Apple e o TK-2000. 

Uma pequena cruz no centro do cir- 
culo desenhado nos ajudará a verificar 
se os ángulos estáo corretos: se entrar- 
mos um ângulo de 90 graus, o traço la- 
teral direito da cruz será superposto pe- 
la nova linha. A cruz é desenhada por 
meio de duas pequenas linhas. 

Mostrado o ângulo pedido, a versão 
do Spectrum pergunta se queremos ver 
outro ângulo; a versão dos outros mi- 
cros espera que apertemos qualquer te- 
cla. Antes de desenhar um novo ângu- 
lo, o TRS-Color, o Spectrum e o Apple 
apagam primeiramente a linha anterior. 
O MSX apaga todo o desenho e o refaz 
depois com o ângulo novo. 

Para ampliar a analogia com a bús- 
sola basta substituir as marcações de 
graus por N, L, Se O (ou seja, norte, 
leste, sul e oeste), e usar o programa co- 
mo um indicador de direção. Assim, se 
quisermos viajar num ângulo de 270 
graus, devemos entrar o valor 270; o 
computador!desenhará então uma linha, 
apontando a direção desejada. 





Os programas apresentados na seção 
anterior usam SIN e COS, duas funções 
BASIC que correspondem às funções 
trigonométricas “seno” e “совзепо”, 
respectivamente. 

Elas se referem à posição de um pon- 
to na circunferência em relação a dois 
eixos que se cortam perpendicularmen- 
te no centro do círculo. O eixo vertical 
é chamado de **Y” e o horizontal, de 
“X”, Na ilustração destas páginas, o 
ponto A da circunferência está ligado 
aos dois eixos pelas linhas p e q. 

Neste caso, p e q têm o mesmo com- 
primento. Mas, se movermos A para 
baixo, sobre a circunferência, percebe- 
remos que p cresce enquanto q diminui. 


Quando A chegar aos '90 graus, q vale- 
rá O, enquanto p será igual ao raio da 
circunferência. 

Usando o programa da bússola po- 
demos visualizar melhor o que aconte- 
ce. Entremos os ângulos 0, 30, 45 e 90. 
À medida que as linhas mudam de po- 
sição, podemos imaginar como p e q, 
embora não desenhadas na tela, variam 
de comprimento. Com uma régua po- 
deríamos medir p e q direto da tela. 





Evidentemente, a relação entre p e q 
muda à medida que o ângulo aumenta 
ou diminui. Existe ainda uma relação 
entre o raio do círculo e as linhas p e q 
(quando A estiver em 90 graus, p terá 
o mesmo valor do raio do círculo). As- 
sim como a anterior, essa relação entre 
o raio e as linhas p e q também pode ser 
calculada, mudando sempre que o ân- 
gulo mudar. 

A relação entre o raio e p é chamada 
de *‘seno™ do ângulo. A relação entre 
o raio e q é o ““cosseno” do ângulo. Ou 
seja, se dividirmos as linhas p e q pelo 
raio, obteremos, respectivamente, o se- 
no e o cosseno desse ângulo. Assim, se 
o raio for igual a 1, os valores do seno 
e do cosseno serão iguais aos compri- 
mentos de p e de q. 

O triângulo da ilustração abaixo foi 
obtido do diagrama da bússola. Um dos 
seus vértices é formado pelo encontro do 
eixo X com a linha que liga A ao centro 
do círculo. Uma terceira linha, que sai 
de A e encontra o eixo X em ângulo re- 
to, forma o último lado do triângulo. 

O seno do ângulo formado pelo en- 
contro da linha que liga A ao centro do 
círculo com o eixo X é a relação entre 
o lado oposto a esse ângulo e a hipote- 
nusa. A hipotenusa é sempre o lado 
oposto ao ângulo reto. Na ilustração ela 
é formada pela linha branca que liga A 
ao centro do circulo. O terceiro lado do 
triângulo é chamado de adjacente. 

O cosseno também é, como vimos, 
uma relação entre dois lados. Existe ain- 
da uma outra relação entre lados, co- 
nhecida como tangente do ângulo. 

Em resumo, as relações são as seguin- 
tes: 


seno = lado oposto/hipotenusa 
cosseno = lado adjacente/hipotenusa 
tangente = lado oposto/lado adjacente 


As três relações podem ser calculadas 
pelo computador por intermédio das 
funções SIN, COS e TAN. Por exem- 
plo, PRINT SIN.5 coloca na tela o se- 
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no do ángulo .5 radianos. 

Na ilustração da página 336, à me- 
dida que o ponto se move em senti- 
do horário, partindo do topo do cír- 
culo (ângulo 0), os valores do seno e 
do cosseno aumentam e diminuem res- 
pectivamente, porque p e q mudam de 
tamanho. Depois dos 90 graus o se- 
no começará a diminuir; quando o pon- 
to passar pelos 180 graus tudo mudará 
outra vez. 

Lembremos que o seno mede o quan- 
to um ponto está à direita do eixo Y. As- 
sim, quando ele atingir a metade esquer- 
da do circulo, o seno se tornará nega- 
tivo. 

Do mesmo modo, quando o ponto 
estiver na metade inferior do círculo (e, 
portanto, abaixo do eixo X), o cosseno 
será negativo. 


OS GRÁFICOS DE SENO E COSSE 


Os programas a seguir mostram as 
mudanças do seno e do cosseno à medi- 
da que o ponto gira pelo círculo. 


10 PLOT 0,88 

20 DRAW 255,0 

30 PLOT 20,0: DRAW 0,175 
40 PLOT 10,158: DRAW 15,0: 
PLOT 10,18; DRAW 15,0 
50 PRINT AT 2,0;1;AT 20, 
AT 11,0;0;AT 20,15;180;AT 20, 
29:360 

60 FOR a=0 TO 2*PI STEP .06 
70 PLOT 20*a*35,88*70*SIN a 
80 PLOT INK 2;20*a*35,88*70* 
cos a 

90 NEXT a 








10 PMODE 3,1 

20 PCLS 

30 PI=4*ATN(1) 

50 LINE(6,95)-(255,95) , PSET 

60 LINE(10,0)-(10,191) , PSET 

70 LINE(6,45)-(10,45) ,PSET 

80 LINE(6,145)- (10,145) ,PSET 

90 SCREEN 1,1 

100 FOR X=72 TO 255 STEP 61 

110 LINE(X,92)-(X,95), PSET 

120 NEXT 

130 FOR X-0 TO 2*PI STEP PI/123 
140 PSET (123*X/PI*10,95-50*SIN 
00,3) 

150 PSET (123*X/PI*10,95-50*CO8 
00,2) 

160 NEXT 

170 GOTO 170 


No triângulo retângulo, a relação entre os 
lados é dada pelos dois ângulos não-retos. 
Dependendo dos lados comparados, 

essa relação será chamada de seno 

(SIN), cosseno (COS) ou tangente (TAN). 


Ч 


10 SCREEN2:COLOR1,15 

20 CLS 

30 PI-4*ATN(1) 

40 LINE(7,96)-(256,96),1 

50 LINE(11,1)-(11,192),1 

60 LINE(7,46)-(11,46),1 

70 LINE (7,146)-(11,146),1 

80 FOR X=72 TO 256 STEP 61 

90 ГІМЕ (Х,93) - (Х,96),1 

100 МЕХТХ 

110 FOR X-0 TO 2*PI STEP PI/123 
120 PSET(123*X/PI*11,96-50*8IN( 
x)).6 

130 PSET(123*X/PI*11,96-50*COS( 
X)),10 

140 NEXTX 

150 IF INKEY$="" THEN 150 

160 END 


10 HGR2 : HCOLOR- 3 

20 PI = 4 * ATN (1) 

30 HPLOT 6,95 TO 255,95 

40 HPLOT 10,0 TO 10,191 

50 HPLOT 6,45 TO 10,45 

60 HPLOT 6,145 TO 10,145 

70 FOR X = 72 TO 255 STEP 6l 
80 HPLOT X,92 TO X,95 

90 NEXT X 

100 FOR X = 0 TO 2 * PI STEP P 
I / 123 

110 HPLOT 123 * X / PI * 10,95 
- 50% SIN (X) 

120 HPLOT 123 * X / PI * 10,95 
- 50% COS (X) 

130 NEXT X 

140 GET A$: IF A$ - "" THEN 14 


0 
150 HOME : TEXT 


ces 7> 


ua = 

















Como no programa da bússola, o 
MSX, o Apple e o TRS-Color começam 
ajustando o modo gráfico adequado (li- 
nha 10). Mais uma vez, os três criam 
uma variável (PI) para o valor de PI na 
linha 30. Depois, todos tracam os eixos 
para o gráfico. 

Os programas desenham pequenas li- 
nhas que representam intervalos ao lon- 
go dos eixos. A versão para o Spectrum 
numera os traços. As marcas para o ei- 
xo Y (eixo vertical) sào 1e —1, as quais 
satisfazem todos os possíveis valores do 
seno e do cosseno. A numeração para 
o eixo X vai de O a 360 graus. 

O computador desenha então os grá- 
ficos, um para o seno e outro para o cos- 
seno. Ele faz isso usando um laço 
FOR...NEXT 














Inventada na Chi 
por volta de 
1100, a bússola 
magnética só se 
tornou conhecida na 
Europa um século 
mais tarde, Ao lado, 
a bússola do 

nclair Spectrum 
mostra um 

ângulo de 70 graus. 








Vimos que existem 2xPI radianos 
num círculo; portanto, se quisermos 
compreender todos os ângulos, o laço 
deverá ser FOR T=0 TO 2*PI. Nesse 
laço existem saltos (STEP) para que o 


computador não faça um desenho a ca- 
da mínima variação de ângulo, mas só 
a cada três ou quatro variações. 

O STEP faz com que o programa se- 
ja mais rápido. Para ter uma idéia de 
sua importância, tente removê-lo e veja 
a diferença. 

As linhas mais importantes para o 
cálculo dos valores do seno e do cosse- 
no (140, 150 no TRS-Color; 70, 80 no 
TK; 120, 130 no MSX e 110, 120 no Ap- 
ple e no TK-2000) parecem muito com- 
plicadas, mas na verdade sào bem sim- 
ples. Cada linha usa os comandos 
PLOT, PSET ou DRAW para desenhar 
o gráfico. As posições dos pontos são 
determinadas pelo seno e pelo cosseno 
(SIN e COS), que aparecem nessas li- 
nhas. Os outros números que os acom- 
panham servem simplesmente para mu- 
dar os resultados de escala, a fim de 
ajustá-los corretamente na tela; como 
cada computador tem uma disposição 
de tela diferente, esses cálculos são di- 
ferentes para cada um. 


'SENHE CÍRCULOS 


A chave para posicionar caracteres ao 
redor de um círculo, como no progra- 
ma da büssola, consiste, como vimos, 
em conhecer o raio da circunferéncia e 
também os ángulos.que eles formam 
com o eixo X. 

O que precisamos é de um programa 
que forneça o centro e o raio do círculo 
e calcule as coordenadas X e Y de qual- 
quer ângulo dado. Se entrarmos uma sé- 
rie de ângulos, o programa será capaz 
de desenhar uma série de pontos ao re: 





























dor do círculo escolhido. O segredo es- 
tá em ensinar o computador a calcular 
as coordenadas X e Y, e é aqui que en- 
tram nossos velhos amigos SIN e COS. 
Digite este pequeno programa: 


20 FOR x-0 TO 2*PI STEP PI/30 
30 PLOT 128*50*SIN x,88*50* 
COS x 

40 NEXT x 


nu 


10 SCREEN2:COLOR1,15 

20 CLS 

30 PI-4*ATN(1) 

40 FOR X-0 TO 2*PI STEP PI/45 
50 PSET(128*80*SIN(X) ,96-80*COS 
(x)),1 

60 NEXTX 

70 IF INKEYS="" THEN 70 

80 END 


(115) 


10 HGR2 : HCOLOR- 3 
РІ = 4 * АТМ (1) 
30 FOR Z - 0 TO B0 STEP 5 


40 FOR X * 0 TO 2 * PI STEP PI 
/ 45 

50 HPLOT 140 % 2% SIN (X),96 
- 80 * COS (X) 

60 NEXT X 

70 МЕХГ 2 

80 GET AS: IF AS - "" THEN 80 
90 HOME : TEXT 


A tela exibe uma série de pontos que 
adotam a forma de um círculo (essa for- 
ma não é definida por uma linha conti- 
nua porque tal linha levaria muito tem- 
po para ser desenhada). 

Em cada programa, exceto no do 
Spectrum, o computador é ajustado pa- 
ra o modo gráfico adequado. Em segui- 
da, é criado um valor para PI no TRS- 
Color, no MSX e no Apple. Um laço 
FOR...NEXT diz então ao computador 
para percorrer uma série de ângulos, que 
vai de 0 a 2*PI (linha 20 no TK 90X, 30 
no TRS-Color, 40 no MSX e no Apple) 
— ou seja, diz para formar um circulo 
completo. O tamanho do salto (STEP) 
é o responsável pela velocidade do pro- 
grama e pelo visual pontilhado. 

Na linha seguinte, o computador é 
instruído a desenhar um ponto para ca- 
da ângulo. A posição do ponto é deter- 
minada pela fórmula: 





PLOT raio*SIN(X), raio*COS(X) 


Como você deve estar lembrado, es- 
sas funções determinam as coordenadas 
para qualquer ângulo dado. Os outros 
números somados ou subtraídos nessa 


linha servem para ajustar o centro do 
círculo em relação à tela gráfica do com- 
putador. O centro da tela de alta reso- 
lução no TRS-Color está em 127,95; no 
Apple, está em 140,96; no MSX, está em 
128,96 e no Spectrum, está em 128,88. 
Tente agora alterar a posição do cen- 
tro ou o tamanho do raio: isso o ajuda- 
rá a entender melhor essas funções. 
Existem ainda outros números que, 
ao serem mudados, alteram o visual do 
círculo. Na primeira linha do laço, o 
STEP comanda a distância entre um 
ponto e outro. Quanto menor o STEP, 
mais contínuo será o círculo desenhado. 
Se quisermos maior número de pontos 
no desenho, devemos diminuir o STEP 
(ou dividir PI por um número maior). 





10 PMODE 4,1:PCLS:SCREEN 1,1 

20 PI=4*ATN(1) 

30 FOR X=0 TO 2*PI STEP PI/45 
40 PSET (127*80*SIN(X),95-80*CO 
S(X).5) 

50 NEXT X 

60 сото 60 


CONSTRU а 


Uma mudança mais interessante con- 
siste em transformar nosso círculo em 
uma elipse. Para tanto, basta fazermos 
com que o número que multiplica SIN 
seja maior ou menor que aquele que 
multiplica COS. Se o que multiplica SIN 
for maior, teremos uma elipse baixa e 
larga. Se for menor, a elipse será alta e 
estreita. 

O programa a seguir desenha uma sé- 
rie de elipses que, juntas, criam o efeito 
de um globo. 


10 FOR z=0 TO 50 STEP 5 

20 FOR x-0 TO 2*PI STEP PI/15 
30 PLOT 128*z*SIN x,88*50* 
COS x 

40 NEXT x 

50 NEXT z 





10 PMODE 4,1:PCLS:SCREEN 1,1 

20 PI-4*ATN(1) 

30 FOR Z=0 TO 80 STEP 5 

40 FOR X=0 TO 2*PI STEP PI/45 
50 PSET(127*Z*SIN(X) ,95-80*COS ( 
Y»,5) 

60 NEXT X 

70 NEXT Z 

80 сото 80 


na 

























Qual o tamanho do maior círculo dese- 
nhado pelo computador? 
Evidentemente, nenhum círculo de- 
senhado pelo computador pode extra- 
vasar os limites de sua tela. De fato, 
o raio do maior círculo deve ser, no má- 
ximo, equivalente à metade do menor 
dos lados da tela. Os maiores raios pa- 
ra cada computador são: 88 para o 
Spectrum, 95 para o TRS-Color e 96 
para o Apple, TK-2000 e MSX. 
Entretanto, para que esses números 
provoquem o efeito desejado, o centro 
do círculo deve ser contido por eles. Se 
o circulo for muito grande, o Spectrum 
imprimirá uma mensagem de erro, en- 
quanto os outros computadores dese- 
nharão o máximo que couber na tela 





10 SCREEN2:COLOR1,15 

20 PI-4*ATN(1):CLS 

30 FOR Z=0 TO 80 STEP 5 

40 FOR X-0 TO 2*PI STEP PI/45 
50 PSET(128*Z*SIN(X) ,96-80*COS( 


70 NEXT Z 
80 IF INKEYS="" THEN 80 
90 END 


(41%! 


10 HGR2 

20 HCOLOR- 3 

30 РІ = 4 * АТМ (1) 

40 FOR X - 0 TO 2 * PI STEP PI 
/ 45 

50 HPLOT 140 + 80 * 
6 - 80 * COS (X) 

60 NEXT X 

70 GET AS: IF AS ~ "" ТНЕМ 70 
80 HOME : TEXT 


SIN (X),9 


Os programas do globo náo passam 
de versóes adaptadas do programa do 
círculo. Em vez de uma, apenas dese- 
nhamos agora uma série de elipses, 
usando um segundo lago FOR...NEXT 
para variar o número pelo qual a coor- 
denada X é multiplicada. Isso faz com 
que o computador trace elipses de tama- 
nhos diferentes. 

Podemos fazer a elipse ““crescer”” o 
quanto quisermos, mudando o tamanho 
do STEP de Z (variável de controle). 





MOVIMENTE 
FIGURAS NATELA 


Não é só o programador experiente que 
pode se divertir com linguagem de 
máquina. Utilize alguns programas 
pequenos, escritos em código, para dar 
mais vida a seus programas em BASIC. 


Linguagem de máquina é coisa bem 
complicada. Pará a maioria dos usuá- 
rios de micros, ela não passa de um 
amontoado de números sem sentido. 
Porém, se você usar algumas rotinas em 
código dentro de programas BASIC, lo- 
go notará as vantagens da linguagem de 
máquina e ficará mais motivado a en- 
frentar as dificuldades. 

Os programas que aqui apresentamos 
utilizam o BASIC para colocar progra- 
mas em código de máquina na memória 
do micro. Com isto, pode-se movimen- 
tar figuras em alta resolução muito mais 
rapidamente que usando só BASIC. 

Os programas são especificos para 
cada computador. O MSX e o Apple 
dispõem de comandos BASIC com ve- 
locidade satisfatória, e seus programas 
não precisam de linguagem de máquina 
para produzir os mesmos resultados dos 
outros micros. Já publicamos um pro- 
grama desse tipo para o ZX-81. 


Para montar os gráficos das figuras 
1 e 2, precisamos fazer três coisas. Pri- 
meiro, criar na memória do Spectrum 
a “grade” ou quadriculado que conte- 
rá o desenho em alta resolução. Esse 
quadriculado será composto por carac- 
teres definidos pelo usuário. Segundo, 
elaborar um programa que movimente 
o desenho na tela. Terceiro, trocar os ca- 
racteres gráficos no quadriculado pela 
figura que queremos mover — no nos- 
so caso, o tanque e o sapo. 


CARACTERES DEFINIDOS PELO USUARIO 


O Spectrum permite ao usuário mu- 
dar o formato de determinados carac- 
teres (caracteres definidos pelo usuário, 


ou UDGs). Cada caractere é formado 
por 64 pontos — alguns com a cor do 
fundo (INK) e alguns com a cor da fren- 
te (PAPER) —, num arranjo de oito por 
oito. Desde que não ultrapassemos os li- 
mites deste quadrado, podemos escrever 
um programa que dê ao caractere o for- 
mato que desejarmos. 

Existem 21 caracteres desse tipo: A 
até U, inclusive. Como mostra a figura 
1, é possível juntar os caracteres — con- 
juntos de oito por oito pontos — para 
formar figuras maiores. Pode-se ter, por 
exemplo, duas figuras com três por três 
caracteres ao mesmo tempo (ainda so- 
brarão 2 UDGs), ou cinco figuras com 
dois por dois caracteres. 

Tanto o sapo quanto o tanque арге- 
sentados neste artigo usam uma figura 
de trés por trés caracteres, mais ou me- 
nos assim: 


АВС 
p E F 


O FI 

Pode-se colocar isto na tela empre- 
gando PRINT AT, em BASIC; porém, 
a melhor alternativa é usar a rotina em 
linguagem de máquina criada pelo pro- 
grama a seguir. 


10 IF PEEK 23733-127 THEN 


CLEAR 32399: LET B-32400: LET 




















A 


E COMO CRIAR UMA FIGURA 
ÓVEL NA MEMÓRIA 

E MOVIMENTOS MAIS RÁPIDOS 
E UM SAPO QUE PULA E 
UM TANQUE QUE ATIRA 


2-0 

20 JF PEEK 23733-255 ТНЕМ 
CLEAR 65199: LET B-65200: LET 
7-1 

30 FOR N-B TO B+129: READ A: 
POKE N,A: NEXT N 

40 IF Z-1 THEN POKE 65258, 
178: POKE 65259,254: POKE 
65277,179: POKE 65278,254 

50 SAVE "Padrao"CODE B,130 
60 STOP 

100 DATA 24,55,1,22,0,0,32,32, 
32,22,0,0,32,32,32,22,0,0,32, 
32 


110 DATA 32,22,0,0,144,145,146 
+22,0,0,147,148,149,22,0,0,150 
,151,152,22 

120 БАТА 0,0,153,154,155,22,0, 
0,156,157,158,22,0,0,159,160, 
161,58,146,126 

130 DATA 254,1,1,18,0,40,8,56, 
4,203,33,24,2,14,0,221,33,147, 
126,221 

140 DATA 9,58,137,92,71,62,24, 
144,221,119,1,60,221,119,7,60, 
221,119,13,58 

150 DATA 136,92,71,62,33,144, 
221,119,2,221,119,8,221,119,14 
,221,229,62,2,205 

160 DATA 1,22,209,1,18,0,205, 
60,32,201 


Talvez vocé ache que esta é uma ma- 
neira complicada de fazer o que alguns 
poucos PRINT AT fariam. Mas existem 
algumas razões para a substituição: 

1, Uma vez digitado e gravado, este pro- 


d 



















grama pode ser usado quantas vezes vo- 
cê quiser, 

2. Quando chamada de dentro de um 
programa BASIC, a rotina criada impri- 
mirá os caracteres numa velocidade mui- 
to maior que os PRINT AT. 

Sem saber código de máquina é im- 
possívêl compreender o que os números 
de cada linha DATA significam, mas 
tentaremos dar uma idéia de como fun- 
ciona o programa em BASIC. 

As linhas 10 e 20 determinam onde 
a rotina em código será colocada, de- 
pendendo do tamanho da memória de 
seu Spectrum — 16K ou 48K. Note que 
os comandos podem não funcionar em 
micros de 16K com expansão. Se este for 
o caso, mude a linha 20 para: 


20 CLEAR 65199: 
LET 2-1 


Os nümeros incluídos nas linhas DA- 
TA são transferidos para a memória do 
computador pela linha 30. 

A linha 50 grava o programa. Você 
pode mudar o nome dele, se quiser. 

As linhas 100 a 160 contêm os núme- 
ros que, quando colocados na memória, 
formam a rotina em código. 

Esta rotina é gravada de uma manei- 
ra diferente. Após digitar e rodar o pro- 
grama, o computador pedirá ao usuá- 
rio que ligue o gravador e aperte qual- 
quer tecla, a fim de gravar a rotina em 
linguagem de máquina. 

Já que a rotina em código está den- 
tro da memória — colocada pelo pro- 
grama BASIC ou lida por meio do cas- 
sete —, vamos usá-la. Pressione NEW 
e ENTER, para que o programa antigo 
não atrapalhe o novo. 


LET B=65200: 





1. Desenho do tanque. Cada 
quadrado grande tem oito 
por oito pontos. 


20 LET print=32400: LET B= 
32402: IF PEEK 23733-255 THEN 
LET print-65200: LET B-65202 


90 BORDER 7: PAPER 7: INK 4: 
CLS 
100 LET Y=8: LET X-15: LET Yl- 


8: ГЕТ Х1-15: LET Z-1 
110 LET AS=INKEYS 


120 IF A$-"z" AND X>0 THEN 
LET Xl-X-1: LET Z-1 
130 IF A$-"x" AND X<29 THEN 


LET Xl-X*1: LET 2-2 

140 IF A$-"p" AND Y»0 THEN 
LET Yl-Y-1 

150 IF A$-"l" AND YX18 THEN 
LET Yl=Y+1 

170 LET X-X1: LET Y-Yl 

180 PRINT AT Y,X;: POKE B,Z: 
RAND USR print 

190 GOTO 110 


Note que a palavra “print” em mi- 
núsculas deve ser digitada letra por le- 
tra, ao contrário de PRINT, que fica na 
tecla P. 

Este programa permite a movimen- 
tação de figuras na tela usando as teclas 
Z, X, PeL. Quando ele for rodado, ve- 
remos que foram criadas duas figuras 
com trés por trés caracteres; a segunda 
é formada por JKLMNOPQR. Pode-se, 
assim, obter duas versões do mesmo grá- 
fico. No caso do tanque, um aponta pa- 
ra a direita, quando vai nesta direção, 
e outro aponta para a esquerda, quan- 
do se movimenta para a esquerda. 

Veremos também que, conforme a fi- 
gura se move, deixa para trás um rastro 
que não foi planejado. Para corrigir is- 
to, acrescente a linha: 


160 PRINT AT Y,X;: 
RAND USR print 


РОКЕ В,0: 





Ela produz uma figura de três por 
três caracteres em branco, que vai apa- 
gando as posições já ocupadas. 


TANQUE DE GUERRA 


Para transformar os caracteres na fi- 
gura de um tanque, acrescente as próxi- 
mas linhas. Elas montam o tanque apon- 
tando para a direita no quadriculado 1 
é para a esquerda no quadriculado 2. 


10 FOR N-USR "a* TO USR "r"*7 
: READ A: POKE N,A: NEXT N 
1000 DATA 0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0 
1010 DATA 0,0,0,0,0,0,0,0,0,0,0 
,0,255,0,1,0 
1020 DATA 0,0,1,63,255,255,255, 
0,0,0,192,224,254,254,224,0 
1030 DATA 63,127,255,122,48,6,0 
,0,255,255,255,235,65,102,0, 
1040 DATA 255,255,255,174,6,100 
,0,0 
1050 DATA 0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0 
1060 DATA 0,0,0,0,0,0,0,0,0,0,3 
,7,127,127,7,0 
1070 DATA 0,0,128,252,255,255,2 
55,0,0,0,0,0,255,0,128,0 
1080 DATA 255,255,255,117,96,38 
,0,0,255,255,255,215,130,102,0, 
0 





1090 DATA 252,254,255,94,12,96, 
0,0 

Resta criar os dois caracteres que irão 
“armar” o tanque. Aperte BREAK e di- 
gite: 

10 FOR N-USR "a" TO USR "t"+7 

: READ A: POKE N NEXT N 
115 IF INKEYS=" THEN GOTO 
200 
200 IF Z-2 THEN GOTO 300 









210 FOR N=X-1 TO O STEP -1 

220 PRINT INK 5;AT Y*1,N;CHR$ 
162 

230 PAUSE l 

240 PRINT AT Y*1,N;" " 

250 NEXT N 

260 GoTO 110 

300 FOR N=X+3 TO 31 

310 PRINT INK 5;AT Y+1,N;CHRS 
163 

320 PAUSE 1 

330 PRINT AT Y*l,N;" " 

340 NEXT N 


350 GOTO 110 
1100 DATA 0,4,9,2,176,2,9,4,0,3 
2,144,64,13,64,144,32 


Agora a tecla SPACE pode ser usa- 
da para dar tiros. 


М $АРО 


Para transformar as figuras em um 
sapo, você precisará livrar-se do tanque. 
Para isso, grave o programa e depois 
pressione <NEW> e <ENTER>. 

O tanque e o programa que o movi- 
mentava serão anulados, mas a rotina 
em código que cuida do quadriculado 
permanecerá na memória até que o mi- 
cro seja desligado. 

Digite CLEAR 32399 no Spectrum de 
16K, ou CLEAR 65199, no de 48K, re- 
servando o topo da memória para a ro- 
tina em código. Digite, depois, LOAD 
*» CODE e ligue o gravador para car- 
regar a rotina em código do cassete. 

Com a rotina na memória do micro, 
digite e rode o programa que cria o sapo. 


30 RESTORE 5000: FOR N-USR ” 
a" TO USR "r"*7: READ A: POKE N 
,A: NEXT N 
5000 DATA 0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0 
5010 DATA 0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,1,1 
5020 DATA 0,0,0,0,0,128,192,176 
,0,0,0,0,0,0,0,0 
5030 DATA 4,15,31,63,127,254,24 
8,127,96,240,224,192,64,32,156, 
192 
5040 DATA 0,0,0,0,0,0,0,0 
5050 DATA 0,0,0,0,0,0,0,0,0,0,0 
,0,0,1,3,7 
5060 DATA 8,28,27,70,255,254,25 
2,249,0,0,0,0,0,0,0,0 
5070 DATA 7,7,15,30,54,38,70,70 
,250,196,0,0,0,0,0,0 
5080 DATA 0,0,1,1,3,6,2,0,140,1 
44,16,32,32,48,32,0 
5090 DATA 0,0,0,0,0,0,0,0 


Para controlar o movimento do sa- 
po, digite: 


10 BORDER 0: PAPER 0: 
BRIGHT 1: CLS 

20 LET P-32400: IF PEEK 23733 
=255 THEN LET P=65200 

100 PRINT AT 10,0;: RAND USR P 
: IF INKEY$="" THEN СОТО 100 
110 RESTORE 1000: FOR F-1 TO 5 
120 READ A,B,C: POKE P+2,A: 


INK 4: 








PRINT AT B, RAND USR P 
130 PAUSE 2: CLS : NEXT F 
150 PRINT AT 10,12;: RAND USR 


P: IF INKEYS="" THEN СОТО 150 
200 FOR F-1 TO 5 

POKE P*2,A: 
RAND USR P 

220 PAUSE 2: CLS : NEXT F 

230 GOTO 100 

1000 DATA 1,10,0,2,7,3,2,5,6,2 
7,9,1,10,12,1,10,12,2,7,15,2,5, 
18,2,7,21,1,10,24 


| ERES 


O Apple não precisa de linguagem de 
máquina para movimentar uma figura 
em alta resolução: basta criar uma ta- 
bela de figuras na memória do micro e 
usar o comando DRAW. 

Se não dispusermos de um editor de 
figuras, o trabalho poderá ser bem com- 
plicado. Mas você não será obrigado a 
usá-lo, pois o programa a seguir cria o 
tanque e o movimenta. 


10 HOME :E = 35000: HIMEM: E 
20 Е = INT (E / 256): POKE 232 
,E - F * 256: POKE 233,F 

30 FORI =E TO E +41 + 14 * 





40 READ A: POKE І,А 





50 NEXT 

60 HGR : SCALE : ROT= 0:X = 
E = GOTO 410 

70 LX = X:LY = Y:LF = F 


80 GET K$: IF K$ - "" THEN 80 
90 IF KS * "P" AND Y > 10 THEN 
Y = Y - 2: GOTO 140 

100 IF K$ = "L” AND Y < 140 TH 
EN Y = Y + 2: GOTO 140 

110 IF K$ = "Z” AND X > 12 THE 
N X = x - 3:F = 0: GOTO 140 


120 IF К5 - "Х" АМО Х < 220 ТН 
EN X = X + 3:F = 1: GOTO 140 
130 IF K$ - " " THEN 490 

140 IF LX = X AND LY = Y THEN 
80 

150 IF LF = O THEN 250 

160 HCOLOR= 0 

170 DRAW 1 AT LX,LY 

180 DRAW 2 AT LX,LY + 8 

190 DRAW 3 AT LX + 8,LY 

200 DRAW 4 AT LX + 8,LY * 8 
210 DRAW 5 AT LX + 16,LY 

220 DRAW 6 AT LX + 16,LY + 8 
230 IF F = 0 THEN 410 

240 GOTO 330 





250 HCOLOR- 0 

260 DRAW 9 AT LX,LY 

270 DRAW 10 AT LX,LY * 8 

280 DRAW 11 AT LX + 8,LY 

290 DRAW 12 AT LX + 8,LY + 8 
300 DRAW 13 AT LX + 16,LY 

310 DRAW 14 AT LX + 16,LY + 8 
320 IF F - 0 THEN 410 

330 HCOLOR= 3 

340 DRAW 1 AT X,Y 

350 DRAW 2 AT X,Y + 8 

360 DRAW 3 AT X + 8,Y 

370 DRAW 4 AT X * 8,Y * 8 

380 DRAW 5 AT X + 16,Y 

390 DRAW 6 AT X + 16,7 * 8 

400 GOTO 70 

410 HCOLOR= 3 

420 DRAW 9 AT X,Y 

430 DRAW 10 AT X,Y + 8 

440 DRAW 11 ATX + 8,Y 

450 DRAW 12 AT X + 8,Y + 8 
460 DRAW 13 AT X + 16,Y 

470 DRAW 14 ATX + 16,Y + 8 
480 GOTO 70 

490 IF F = 0 THEN 560 

500 HCOLOR= 3 

510 DRAW 7 ATX + 24,Y 

520 FOR I = 1 TO 100: NEXT 
530 HCOLOR= 0 

540 DRAW 7 AT X + 24,Y 

550 GOTO 80 

560 HCOLOR= 3 

570 DRAW 8 AT X - 8,Y 

580 FOR I = 1 TO 100: NEXT 
590 HCOLOR= 0 

600 DRAW 8 AT X - 8,Y 

610 GOTO 80 

2000 DATA 20 ,0 ‚42 ‚0 ‚74 ‚0 
106 ,0 ,138 ,0 ,170 ,0 ,202, 
O ,234 ,0 ,10 ,1 ,42 ,1 ,74 ,1 
,106 ,1 ,138 ,1 ,170 ,1 ,202 ,1 
,234 ,1 ,10 ,2 ,42 ,2 ,74 ,2, 
106 ,2 ,138 ,2 

2010 DATA 72 ,73 ,73 ,218 , 
219 ,219 ,74 ,73 ,41 ‚213 ‚63, 
223 ,155 ,41 ,45 ,45 ,173 ,59, 
63 ,63 ,191 ,73 ,9 ,45 ,213 ,21 
9 ,219 ,19 ,0 ,0 ,0,0 

2020 DATA 40 ,45 ,45 ,45 , 


213 ,63 ,63 ,63 ,55 ,45 ,45 ,45 
.173 .251 ,31 ,63 ,87 ,109 ,73 


.209 ,59 ,223 ,159 ,73 ,73 ,13 
7 ,219 ,219 ,155 ,0 ,0 ,0 
2030 DATA 72 ,73 ,73 ,218 , 


219 ,219 ,106 ,73 ,73 ,218 ,59 


163 ,63 ,46 ,45 ,45 ,45 ,213 ,6 
3 ,63 ,63 ,55 ,45 ,45 ,45 ,173 
,219,219 ,155 ,0 ,0, 0 
2040 DATA 40 ,45 ,45 ,45 , 
213 ,63 ,63 ,63 ,55 ,45 ,45 ,45 
,173 ,59 ,255 ,31 ,55 ,77 ,73 
,141 ,27 ,255 ,59 ,87 ,73 ,73, 
209 ,219 ,219 ,19 ,0 ,0 

2050 DATA 72 ,73 ,73 ,218 
,219 ,219 ,74 ,73 ,73 ,218 ,219 
„219 ,42 ,45 ,45 ,45 ,213 ,219 
,219 ,19 ,77 ,73 ,137 ,219 ,21 
9 ,155 ,0 ,0 ,0 ,0 ,0 ,0 

2060 DATA 40 ,45 ,45 ,77, 
218 ,63 ,63 ,63 ,46 ,45 ,45 ,45 
,213 ,59 ,63 ,31 ,87 ,73 ,109 
,209 ,219 ,27 ,191 ,73 ,73 ,137 








,219 ,219 ,155 ,0 ,0 ,0 
2070 DATA 72 ,73 ,73 ,218 
,219 ,251 ,106 ,105 ,73 ,218 ,2 
19 ,27 ,87 ,73 ,109 ,213 ,219 , 


219 ,23 ,77 ,77 ,137 ,219 ,219 
;159 ,0 ,0 ,0 ,0 ,0 ,0 ,0 
2080 DATA 72 ,73 ,73 ,218 


,251 ,219 ,74 ,9 ,77 ,213 ,251 
,219 ,19 ,13 ,109 ,73 ,218 ,223 
,219 ,74 ,9 ,77 ,213 ,27 ,223 
,155 ,0 ,0 ,0 ,0 ,0 ,0 

2090 DATA 72 ,73 .73 ,218 
+219 ‚219 ‚74 ‚73 ‚73 ‚218 ‚219 
„219 ‚42 ‚45 ,45 ,45 ,213 ,219 
3219 283 ,72 ,73 ,213 ,219 ,21 
9 ,19 ,0 ,0 ,0 ,0 ,0 ,0 

2100 DATA 72 ,45 ,45 ,173 
159 ,63 ,63 ,191 ,45 ,45 ,45 ,1 
73 ,27 ,31 ,63 ,191 ,9 ,109 ,73 
,218 ,255 ,219 ,74 ,73 ,73 ,21 
8 ,219 ,219 ,2 ,0 ,0, 0 


2110 DATA 72 ,73 ,73 ,218 
12197 ,219 ,74 ,73 ,9 ,213 ,63, 
63 ,255 ,42 ,45 ,45 ,45 ,213 ,6 
3 ,63 ,63 ,55 ,45 ,45 ,45 ,173 
,219 ,219 ,155 ,0 ,0 ,0 

2120 DATA 40 ,45 ,45 ,45 , 
213 ,63 ,63 ,63 ,55 ,45 ,45 ,45 
5123 ,59 ,31 ,31 ,63 ,14 ,77 , 


73 ,213 ,59 ,223 ,191 ,73 ,73 , 
137 ,219 ,219 ,155 ,0, 0 
2130 DATA 72 ,73 ,73 ,218 


,219 ,219 ,42 ,77 ,73 ,209 ,219 
,27 ,63 ,46 ,45 ,45 ‚109 ‚218 
163 ,63 ,63 ,46 ,109 ,73 ,209 , 
219 ,219 ,19 ,0 ,0 ,0 ,0 

2140 DATA 40 ,45 ,45 ,45 , 
213 ,63 ,63 ,63 ,55 ,45 ,45 ,45 
4173 ,27 .63 ,31 ,31 ,78 ‚73. 
109 ,218 ,251 ,59 7 ,73 ,73, 
209 ,219 ,219 ,19,0,0 





A linha 10 reserva o topo da memória 
para a tabela de figuras. O Apple é então 
informado da localização da mesma pela 
linha 20. O FOR...NEXT das linhas 30 a 
50 monta a tabela na memória. 

A linha 60 liga a tela de alta resolu- 
ção, estabelece a escala e a orientação 
do desenho. Além disso, coloca as coor- 
denadas do centro da tela em X e Y. Em 
seguida, o programa é desviado para a 
linha 140, para que uma imagem inicial 
do tanque seja feita. 

As linhas 70 a 140 movimentam o 
tanque através das teclas Z, X, Pe L. 
Tratam também de não deixá-lo ultra- 
passar os limites da tela. As variáveis F 
e LF são sinalizadores que indicam a di- 
reção atual e antiga do tanque; dese- 
nham e apagam a figura na orientação 
correta. A linha 140 evita que o tanque 
seja apagado e desenhado, sem sair do 
lugar. A linha 130 verifica se a tecla de 
espaço foi pressionada, saltando para a 
linha 420, onde começa a porção do 
programa que dispara um tiro — na di- 
reção correta! 

As linhas 150 a 320 apagam o tanque 
de sua última posição, conforme o va- 









lor de LF. As linhas 330 a 480 dese- 
nham-no na nova posição, conforme o 
valor de F. 

Note que as linhas DATA 2000 a 
2140 foram geradas com o programa 
editor apresentado no artigo da página 
316. Os blocos do tanque são numera- 
dos de cima para baixo e, depois, da es- 


querda para a 
HCOLOR 


direita. 
desenha o tanque em 






branco. Se utilizarmos HCOLOR = 1, 
teremos a cor verde, mas o desenho se- 
rá ligeiramente deformado. Isto ocorre 
devido à maneira como o Apple usa as 
cores em alta resolução. 


M SAPO 


O programa a seguir monta uma ta- 
bela correspondente ao sapo da figura 2. 


10 HOME :E = 35000: HIMEM: E 


20 
30 
40 


POKE 233, 
KE 232,E - 256 * 


FOR 


HGR 


INT (E / 256): 
PEEK (233) 
I*E TOE *4l *10* 
32: READ A: POKE I,A: NEXT I 
: SCALE= l: ROT= 0 


100 GOSUB 1800: GOSUB 1300 
110 GOSUB 1000 








120 GET K$: IF K$ < » " " 
N 120 

130 GOSUB 1200: GOSUB 1000 
140 GOSUB 1500: GOSUB 1300 
150 GOSUB 1040: GOSUB 1400 
160 GOSUB 1200: GOSUB 1500 
170 GOSUB 1040: GOSUB 1300 
180 GOSUB 1600: GOSUB 1040 
190 GOSUB 1400: GOSUB 1200 
200 GOSUB 1600: GOSUB 1040 
210 GOSUB 1300: GOSUB 1700 
220 GOSUB 1000: GOSUB 1400 
230 GOSUB 1200: GOSUB 1700 
240 GOSUB 1000: GOTO 100 
1000 DRAW 1 AT X,Y 

1010 DRAW 2 AT X,Y + 8 
1020 DRAW 3 AT X + 8,Y 
1030 DRAW 4 ATX * 8,Y * 8 
1035 RETURN 

1040 DRAW 5 AT X,Y 

1050 DRAW 6 AT X + 8,Y - 1 
1060 DRAW 7 AT X + 8,Y - 8 
1070 DRAW 8 AT X + 8,Y 
1080 DRAW 9 AT X + 16, 

y = 16 

1090 DRAW 

Y-8 

1100 RETURN 

1200 HCOLOR- 0: 

RETURN 

1300 HCOLOR= 3: 

RETURN 

1400 FOR I = 1 


TO 200: NEXT I 


1410 RETURN 


1500 Х = 90:Ү = 


50: 


1600 Х = 160:Ү = 


50: 


1700 Х = 230:Ү = 


RETURN 


RETURN 





РО 


ТНЕ 


90: RETURN 
1800 X - 30:Y - 90: RETURN 





2000 DATA 20 ,0 ,42 ,0 ,74 , 
0 ,106 ,0 ,138 ,0 ,170 ,0 ,202 
‚0 ‚234 ‚0 ‚10 ‚1 ‚42 ‚1 ‚74 ‚1 
,106 .1',138 ,1 ,170 ,1 ,202 , 
1,234 110 ,2 ,42 ,2 ,74 ,2 
,106 ,2 ,138 ,2 

2010 DATA 0,72 ,73 ,73 ,21 
8 ,219 ,219 ,74 ,73 ,73 ,218 ,2 


19 ,219 ,74 ,73 ,73 ,218 ,219 , 


219 ,74 ,73 ,9 ,213 ,223 ,219 , 
19 ,0 ,0 ,0 ,0 ,0 ,0 
2020 DATA 0 ,72 ,73 ,77 ,26 


‚63 ,255 ,155 ,73 ,45 ,45 ,213 
+63 ,63 ,255 ,10 ,45 ,45 ,45 , 
213 ,59 ,63 ,63 ,55 ,45 ,45 ,77 
‚209 ‚63 ‚63 ‚63 ‚23 


2030 DATA 0:72 ,78 ,73.,23 
8 ,219 ,219 ,74 ,73 ,73 ,218 ,2 
19 ,219 ,74 ,73 ,73 ,218 ,219 , 
219 ,46 ,77 ,73 ,209 ,219 ,59 , 
31 ,6 ,0 ,0 ,0 ,0 ,0 

2040 DATA 0 ,8 ,109 ,73 ,20 
9 ,219 ,59 ,63 ,46 ,109 ,73 ,20 
9 ,219 ,219 ,119 ,77 ,73 ,209 , 
219 ,27 ,159 ,73 ,45 ,77 ,218 , 
219 ,219 ,2 ,0 ,0 ,0 ,0 

2050 DATA 0 ,72 ,73 ,73 ,21 
8 ,219 ,219 ,74 ,73 ,73 ,26 ,22 
3 ,219 ,83 ,73 ,9 ,173 ,27 ,255 
,219 ,74 ,73 ,105 ,218 ,219 ,2 
19 ,2 ,0 ,0 ,0 ,0 ,0 

2060 DATA 0 ,72 ,73 ,73 ,21 
8 ,219 ,219 ,74 ,73 ,73 ,218 ,2 
19 ,219 ,74 ,73 ,73 ,26 ,223 ,2 
19 ,83 ,73 ,9 ,173 ,59 ,255 ,21 
9 ,2 ,0 ,0 ,0 ,0 ,0 

2070 DATA 0 ,72 ,73 ,45 ,21 
3 ,63 ,223 ,155 ,73 ,41 ,45 ,21 
3 ,59 ,63 ,223 ,74 ,109 ,109 ,2 
18 ,255 ,251 ,10 ,77 ,41 ,141, 
27 ,255 ,27 ,23 ,0 ,0 ,0 

2080 DATA 0 ,104 ,9 ,109 ,2 
09 ,219 ,251 ,51 ,77 ,77 ,137, 
219 ,219 ,159 ,9 ,77 ,73 ,218 , 
219 ,255 ,74 ,77 ,73 ,218 ,219 

























































,219 ,2 ,0 ,0 ,0 ,0 ,0 

2090 DATA .72 .9 ,77 ,209 
.27 .63 ,223 ,74 ,41 ,13 ,173 
,27 ,255 ,27 ,23 ,45 ,45 ,45 ,1 
73 ,27 ,63 ,63 ,63 ,46 ,45 ,45 
.77 .26 ,223 ,63 ,63 

2100 DATA 0 ,40 ‚45 ‚109 ‚1 
41 ,219 ,223 ,63 .78 ,73 ,73 ,2 
18 ,219 ,219 ,74 ,73 ,73 ‚218, 
219 ,219 ,74 ,73 .73 ,218 ,219 


,219 ,2 ,0 ,0 ,0 ,0 ,0 


Use a barra de espaço para fazer o 
sapo pular. 


Para definir e mover os desenhos das 
figuras 1 e 2, precisamos fazer três coi- 
sas. Primeiro, criar na memória do com- 
putador uma “grade” ou quadriculado 
onde possamos desenhar o que quiser- 
mos. Este quadriculado será composto 
por caracteres definidos pelo usuário. 
Segundo, transferir o padráo do dese- 
nho desejado — representado por nú- 
meros em linha DATA — para o qua- 
driculado. Terceiro, elaborar um pro- 
grama em BASIC que desenhe e movi- 
mente o tanque e o sapo. 

Um caractere definido pelo usuário 
(UDG) é um ''quadro'"', dentro do qual 
se coloca parte de um desenho em alta 
resolução. O quadro é composto por 64 
pontos dispostos num arranjo de 
oito por oito pontos. Cada pon- 
to pode ser preto ou branco em 
PMODE 4,1 (este éo PMODE 
mais flexível; em outros é 
preciso definir dois ou qua- 
tro pontos de cada vez). 

Se colocarmos vários desses caracte- 








PSET para desenhar cada ponto, ou se- 
ja, 576 PSET ao todo. Assim, um pro- 
grama em linguagem de máquina será 
mais rápido. 

Digite: 
10 CLEAR 200,32000 
20 FOR 1=32000 TO 32110 
30 READ N 
40 POKE I,N 
50 NEXT 
60 CLS 
90 PRINT "APERTE QUAL 
QUER TECLA PARA 
GRAVAR O PROGRAMA EM 
LINGUAGEM DE MAQUI 
NA” 
100 BS=INKEYS 
11^ IF B$="" THE 
N 100 
120 CSAVEM "P 
RPADRAO" , 
32000.321 
10,32000 






































res lado a lado, poderemos construir de- 





senhos maiores e mais detalhados. À di- 








ferença de outros computadores, o TRS- 
Color não possui UDGs embutidos. 
Mas porções de sua memória se compor- 
tarão como tal, se fizermos um progra- 
ma para isto. 

Teoricamente, dispomos de espaço 
para criar muitos caracteres, mas seria 
trabalhoso usar vários deles. Na práti- 
ca, quatro ou cinco bastam. 








COMO CRIAR O QUADRIC 





00 


Para produzir o tanque da figura 1, 
ou o sapo da figura 2, precisamos pri- 
meiro fazer com que uma porção da me- 
mória se comporte como UDGs. Os dois 
desenhos requerem um quadriculado de 
três por três caracteres — 24 por 24 
pontos. 

Se usássemos o BASIC para desenhar 
uma figura destas, precisaríamos de um 








130 DATA 190,127,188,134,3,183, 
125,111,183,125,112,134,8,183,1 
25,113 

140 DATA 182,125,250,39,50,206, 
126,44,74,198,72,61,51,203,166, 
192 

150 DATA 167,132,48,136,32,122, 
125,113,38,244,134,8,183,125,11 
3,48 

160 DATA 137,255,1,122,125,111, 
38,230,134,3,183,125,111,48,137 


170 DATA 253,122,125,112,38,216 
157,95,231,132,48,136,32,122,12 
5,113 

180 DATA 38,246,134,8,183,125,1 
13,48,137,255,1,122,125,111,38, 
232 

190 DATA 134,3,183,125,111,48,1 
37,0,253,122,125,112,38,218,57 


Este programa cria um outro, em lin- 
guagem de máquina. Sua gravação deve 






ser feita pelo próprio programa; portan- 
to, tenha o gravador por perto — os pro- 
gramas aqui apresentados não funcionam 
com o drive de disquetes conectado. 

Além de produzir desenhos em alta 
resolução numa velocidade muito maior, 
o programa em código ocupa bem me- 
nos memória que uma rotina BASIC. 

Se você conhece a linguagem de má- 
quina do 6809, não entenderá o que os 
números nas linhas DATA significam, 
mas pode ter uma idéia de como funcio- 
na o programa em BASIC. 

A linha 10 reserva a memória neces- 
sária para acomodar o programa em có- 
digo. As linhas 90 a 120 transferem o 
programa da memória para a fita. 


UM TANQUE DE GUERRA 


Para desenhar o tanque são necessá- 
rias duas figuras de três por três carac- 
teres — uma para o tanque apontando 
para a direita e outra para o tanque que 
aponta para a esquerda. 

Digite NEW para anular o programa 
antigo — o programa em código perma- 
necerá na memória. Este novo progra- 
ma cria o tanque mas, por enquanto, 
nào o desenha. 





10 CLEAR 200,32000 

20 FOR 1-432300 TO 32443 

30 READ N 

40 РОКЕ І,М 

50 МЕХТ 

60 DATA 0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0 

70 DATA 0,0,3,7,127,127,7,0,0,0 
,128,252,255,255,255,0 

80 DATA 0,0,0,0,255,0,128,0,255 
+255,255,117,96,38,0,0 

90 DATA 255,255,255,215,130,102 
,0,0,252,254,255,94,12,96,0,0 
100 DATA 0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0 

110 DATA 0,0,0,0,255,0,1,0,0,0, 























1,63,255,255,255,0 
120 DATA 0,0,192,224,254,254,22 
4,0,63,127,255,122,48,6,0,0 

130 DATA 255,255,255,235,65,102 
,0,0,255,255,255,174,6,100,0,0 


Para desenhar e mover o tanque, 
acrescente as próximas linhas ao progra- 
ma anterior: 


5 PCLEAR 5 

170 PMODE 4,1 

180 PCLS 

290 PCLS 

300 SCREEN 1,1 

310 T=1 

320 ТР-3500 

330 POKE 32700, INT(TP/256) 

340 POKE 32701, TP-256*INT(TP/25 
6) 
350 
360 


РОКЕ 32250,Т 

ЕХЕС 32000 

370 LP=TP 

380 IF PEEK(338)=251 THEN TP=TP 
-32:GOTO 440 

390 IF PEEK(342)=253 THEN TP=TP 
+32:GOTO 440 

400 IF PEEK(340)=247 THEN TP=TP 
-1:T-2:GOTO 440 

410 IF PEEK(338)=247 THEN TP=TP 
+1:T=1:GOTO 440 

430 GOTO "380 

440 IF TP<1536 OR TP>6941 THEN 
TP=LP 

470 GOTO 330 


Agora digite RUN; usando as teclas 
P, L, Ze X, vocé poderá mover o tan- 
que. Este deixará um rastro atrás de si. 
Para evitar o problema, digite: 


450 POKE 32250,0 
460 EXEC 32000 


Estas linhas usam o programa em có- 
digo para imprimir uma figura compos- 
ta por caracteres em branco. 

Para que o canháo atire, acrescente 
mais algumas linhas ao programa. Vo- 
cé poderá fazé-lo por meio da barra de 
espago. 


160 DIM A(2),B(2),C(2) 

190 FOR I=1536 TO 1760 STEP 32 
190 FOR I=1536 TO 1760 STEP 32 
200 READ N 

210 POKE I,N 

220 NEXT 

230 СЕТ (0,0)-(7,7),А 

240 FOR I=1536 TO 1760 STEP 32 
250 READ N 

260 POKE I,N:NEXT 

280 СЕТ (0,0)-(7,7),В 

420 IF PEEK(345)=247 GOSUB 500 
DATA 0,32,144,64,13,64,144, 


DATA 0,4,9,2,176,2,9,4 

IF T=2 THEN 560 
YP=INT((TP-1536)/32)+8 
XP=8* (TP-1533- (YP-8)*32) 
530 IF XP>255 THEN 620 

540 PUT (XP,YP)-(XP+7,YP+7),A 
550 GOTO 600 
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2. Desenho do sapo. A figura pula quando se pressiona a tecla de espaço. 


YP=INT((TP-1536)/32)+8 
XP=8*(TP-1537-(YP-8)*32) 
IF XPX0 THEN 620 

PUT (XP,YP) - (XP*7, YP*7) ,B 
FOR I-1 TO 100:NEXT 

PUT (XP,YP) - (XP*7, YP*7),C 
RETURN 


A figura 2 mostra o desenho de um 
sapo. Depois que ele for transferido pa- 
ra o quadriculado da memória e puder 
ser controlado pelo programa em BA- 
SIC, sairá pulando tela afora. 

Para transferir o desenho do sapo pa- 
ra o quadriculado, utilize o programa a 
seguir. Antes, porém, use NEW para 
limpar a memória ocupada pelo BASIC. 


10 CLEAR 200,32000 

20 FOR 1=32300 TO 32443 
30 READ N 

40 РОКЕ І,М:МЕХТ 

60 DATA 0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0 0 

70 DATA 0,0,0,0, 
+0,128,192,176 
80 DATA 0,0,0,0,0,0,0,0,4,15,31 
,63,127,254,248,127 

90 DATA 96,240,224,192,64,32,15 
6,192,0,0,0,0,0,0,0,0 

100 DATA 0,0,0,0,0,0,0,0,0,0,0, 
0,0,1,3,7,8,28,27,70,255,254,25 
2,249 

110 DATA 0,0,0,0,0,0,0,0,7,7,15 
+30,62,54,70,70 

120 DATA 250,196,0,0,0,0,0,0,0, 
0,1,1,3,6,2,0 

130 DATA 140,144,16,32,32,48,32 
,0,0,0,0,0,0,0,0,0 


Para fazer o sapo pular, digite NEW 
e, em seguida, este programa: 


10 PCLEAR 5 

20 PMODE 4,1 

30 PCLS 

40 SCREEN 1,1 
50 FP=4487 

60 POKE 32700,17 






,0,0,0,0 








70 POKE 32701,135 

80 POKE 32250,1 

90 EXEC 32000 

100 IF PEEK(345)<>247 THEN 100 

110 RESTORE 

120 FOR I-1 TO 5 

130 READ F,FD 

140 POKE 32700,INT(FP/256) 

150 POKE 32701,FP-256*INT(FP/25 
6) 

160 
170 
180 
190 
200 
210 
220 


POKE 32250,F 

EXEC 32000 

FOR J=1 TO 70:NEXT 

POKE 32250,0 

EXEC 32000 

FP=FP+FD 

NEXT 

230 GOTO 80 

240 DATA 1,-287,2,-253,2,258,2, 
291,1,0 


Os números da linha DATA no finál 
do programa fazem o sapo descrever um 
arço quando pressionamos a barra de es- 
paço. 


77. 


O BASIC do MSX dispensa o uso de 
linguagem de máquina, pois dispõe de 
comandos gráficos poderosos e é sufi- 
cientemente rápido para criar e movi- 
mentar figuras em alta resolução. 

O programa a seguir cria e movimen- 
ta o tanque da figura 1. 


5 CLEAR 300:COLOR 12,15,12 

10 SCREEN 1,3:KEY OFF 

20 РОВ 1-1 ТО 16*8 

30 READ A:AS=AS+CHRS (A) 

40 NEXT 1 

50 SPRITES (0)=LEFTS (AS, 32) 

60 SPRITE$(1)*-MIDS$(A$, 33,32) 
70 SPRITES (2) -MIDS (AS,65,32) 
80 SPRITES (3) =MIDS(AS,97,32) 
90 SPRITES (4) -MIDS (AS,33,16) 
100 SPRITES (5) =STRINGS (16,0) +MI 
D$ (A$,81,16) 

110 Х-100:Ү-90:Ғ-2 

111 PUT SPRITE 0,(X-16,Y),12,5 
112 PUT SPRITE 1,(X*16,Y),12,3 











120 K$-INKEYS:IF K$- THEN 120 
130 IF ASC(K$)=29 AND X>0 THEN 
X-X-1:F-2:GOTO 200 

140 IF ASC(K$)=28 AND X<210 THE 
N X-X*1:F-1:GOTO 200 

150 IF ASC(K$)=30 AND Y>0 THEN 
Y=Y-1:GOTO 200 

160 IF ASC(K$)=31 AND Y<160 THE 
N Y-Y*1:GOTO 200 

200 ON F GOSUB 500,600 

210 GoTO 120 
500 PUT SPRITE 
510 PUT SPRITE 
520 RETURN 

600 PUT SPRITE 
610 PUT SPRITE 
620 RETURN 


5000 DATA 0,0 , 3, 7 , 127 
» 127 ,7 , 0 , 255 , 255 , 255 
„ 117, 96, 38, 0, 0, 0, 
0 , 128 , 252 , 255 , 255 , 255 
4, 0 , 255 , 255 , 255 , 215 , 

130, 102,0, 0 

5010 DATA 0,0 , 0, 0 , 255 
» 0 , 128 , 0 , 252 , 254 , 255 
+, 94,12,96,0,0,0,3 
2,144, 64,13, 64, 144 , 
32,0,0,0,0,0,0,0 


0, (X,Y),12,0 
1, (X*32,Y),12,4 


0, (X-16,Y),12,5 
1, (X*16,Y),12,3 


‚0 

5020 РАТА 0,4,9, 
v8.9. ‚0,0,0 
10,0,0,0,0, 
255, 0,1,0,63, 
5, 122, 48,6, 0. 
5030 DATA 0,0,1, 
, 255, 255,0, 
255 , 235 , 65 , 
0,0, 192 , 224 , 254 , 254” , 
224 , 0 , 255 , 255 , 255 , 17 
4,6,100,0,0 


A linha 5 estabelece as cores da tela 
— COLOR — e reserva espaço na me- 
mória para acomodar o cordão A$, que 
é muito longo — CLEAR 300. 

A linha 10 seleciona a tela de 32 co- 
lunas, com sprites grandes e em baixa 
resolugáo (32 por 32 pontos). Além dis- 
so, desativa a impressáo das teclas de 
fungáo na parte inferior da tela. 

O FOR...NEXT das linhas 20 a 40 lê 
as linhas DATA do final do programa, 
onde está definido o padráo do tanque. 
Estes valores sáo transferidos para o 
cordão A$ (veja página 188). 

As linhas 50 a 100 criam os sprites 
que montam o tanque. Observe que o 
cordão A$ é “'recortado” pelas funções 
MIDS e LEFTS. Os sprites criados são: 
0, parte posterior do tanque da direita 
da figura 2; 1, parte dianteira atirando; 
2, parte dianteira do tanque da esquer- 
da atirando; 3, parte traseira. Os spri- 
tes 4 e 5 cont&m a parte dianteira do tan- 
que, cada uma apontada para um lado, 
sem o tiro. 

As linhas 110 a 112 desenham o tan- 
que em sua posição inicial. As linhas 120 
a 160 mudam o valor de X e Y, confor- 
me a tecla do cursor pressionada, mo- 


2, 176 
‚0,0 
0,0 

527, Й 25 


6з ‚ 255 
‚ 255, 


vimentando o tanque. As condições que 
se seguem à conjunção AND evitam que 
o tanque ultrapasse os limites da tela. F 
é um sinalizador da direção em que o 
tanque aponta. 

A linha 200 utiliza F para decidir em 
que direção desenhar o tanque. O dese- 
nho propriamente dito é feito pelas sub- 
rotinas 500 e 600. 

Note que os sprites da parte diantei- 
ra e traseira são desenhados em níveis 
de prioridade diferentes. Se ambos esti- 
vessem no mesmo nível, o segundo a ser 
desenhado faria o primeiro desaparecer. 
Esta mesma propriedade responde pelo 
desaparecimento do tanque de sua an- 
tiga posição, quando a nova é desenha- 
da. 


As próximas linhas farão o tanque 
atirar ao toque da barra de espaço. 


170 IF ASC(K$)-32 THEN IF F-1 T 
HEN F*3 ELSE F-4 

200 ON F GOSUB 500,600,700,800 
700 PUT SPRITE 0,(X,Y),12,0 
710 PUT SPRITE 1,(X*32,Y),12,1 
720 FOR I-1 TO 50:NEXT 

730 F-F-2:GOSUB 500:RETURN 
800 PUT SPRITE 0, (X-16,Y),12,2 
810 PUT SPRITE 1,(X*16,Y),12,3 
820 FOR I-1 TO 50:NEXT 

830 F=F-2:GOSUB 600:RETURN 


Para produzir o tiro, o programa usa 
o sinalizador F, Conforme se tenha pres- 
sionado a barra de espaço, também são 
utilizados os sprites 1 e 2, corresponden- 
tes à parte dianteira dando tiro — nos 
dois sentidos. 

Se você quiser sprites grandes em al- 
ta resolução, faça as seguintes modifi- 
cações: 


10 SCREEN 1,2:KEY OFF 

111 PUT SPRITE 0, (X-8,Y),12,5 
112 PUT SPRITE 1, (X*8,Y),12,3 
500 PUT SPRITE 0,(X,Y),12,0 
510 PUT SPRITE 1,(X*16,Y),12,4 
600 PUT SPRITE 0, (X-8,Y),12,5 
610 PUT SPRITE 1, (X* 3 
700 PUT SPRITE 0,(X,Y),12,0 
710 PUT SPRITE 1,(X+16,Y),12,1 
800 PUT SPRITE 0, (X-8,Y),12,2 
810 PUT SPRITE 1,(X*8,Y),12,3 


UM SAPO 


O programa a seguir cria o sapo da 
figura 2 e o faz pular ao toque da barra 
de espaço. 


5 CLEAR 300:COLOR 12,15,12 
10 SCREEN 1,3:KEY OFF 

20 FOR I-1 TO 12*8 

30 READ A:AS=AS+CHRS (A) 

40 NEXT I 

50 SPRITES (0) =LEFTS (AS,32) 
60 SPRITES (1) =MID$(A$,33,32) 
70 SPRITES(2)-MIDS (A$,65,32) 
110 X-50:Y-120 



































PUT SPRITE 0, (X,Y),12,0 
K$-INKEYS:IF K$-"" THEN 120 
IF ASC(K$)=32 THEN GOSUB 50 


GOTO 120 
PUT SPRITE 0, (X*32,Y-64),12 


‚1 

510 PUT SPRITE 1,(X*16,Y-32),12 
‚2 

520 FOR I-1 TO 100:NEXT 

530 PUT SPRITE 0, (X*64,Y-64) ,12 
„l 

540 PUT SPRITE 1, (X+48,Y-32),12 
‚2 

550 FOR I-1 TO 100:NEXT 

560 PUT SPRITE 0,(X+96,Y),12,0 
570 PUT SPRITE 1, (X+48,209),12, 
2 

580 Х-Х%96 

590 RETURN 

5000 DATA 0,0,0,0,0, 
0,1, 1,4, 15,31, 63, 


127 , 254 , 248 , 127, 0,0, 
0,0,0, 128 , 192 , 176 , 
96 , 240 , 224 , 192 , 192 , 32 


, 28 , 0 
5010 DATA 0,0,0,0,0, 
17419 2-7. ҰЛАСА 52307: 9 
4,38, 70 , 70 , 8 , 28 , 27 
» 70 , 255 , 254 , 252 , 249 , 
250, 196, 0, 0, 0, 0, 0, 
0 


5020 DATA OO sN кае 
6,2,0, 0,0,0, 
Зо qu Lo M Hd IM 
32, 32, 48,32, 0,0,0, 
0,0, 0, 0, 0, 0 





A preparação do computador e a 
criação dos sprites a partir das linhas 
DATA são muito parecidas com o pro- 
grama do tanque, só que o laço 
FOR...NEXT é mais curto. 

A diferença é que não precisamos 
mover O sapo, apenas fazê-lo saltar 
quando a tecla de espaço for pressiona- 
da. As linhas 120 e 170 detectam a ocor- 
rência de pressão na tecla. 

A sub-rotina 500 é responsável pela 
trajetória que o sapo descreve. Para en- 
tender como os sprites foram montados, 
use PUT SPRITE no modo imediato, 
após ter parado o programa com 
<CNTRL> <STOP>. 

Para obter o mesmo efeito com spri- 
tes de alta resolução, faça as seguintes 
modificações: 


10 SCREEN 1,2:KEY OFF 
500 PUT SPRITE 0, (X+16,Y-32),12 
510 
2 

530 
‚1 
540 
T 
560 
570 


2 
580 


PUT SPRITE 1,(X*8,Y-16),12, 
0, (X*32,1-32) ,12 
1, (X*24,Y-16),12 


0, (X*48,Y) ,12,0 
1,(X*48,209),12, 


PUT SPRITE 
PUT SPRITE 


PUT SPRITE 
PUT SPRITE 


X-X*48 
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PROGRAMAÇÃO энне мын» 


| 
você não precisa saber linguagem | 
| 
Í 
j 


PARA JOYSTICKS Me uim 


Os jogos vendidos no comércio e os 
produzidos em casa apresentam, em ge- 
ral, uma diferenca evidente: os primei- 
ros oferecem ao usuário a opção de usar 
um joystick; os segundos, não. Todavia, 
não é necessário mergulhar nas profun- 
dezas da programação em código para 
incluir este periférico nos programas de 
jogos. 

Você verá neste artigo como utilizar 
um joystick em programas BASIC, tor- 
nando seus jogos mais profissionais e, 
sobretudo, muito mais divertidos. 

Antes de fazer um programa que o 
inclua, é preciso obter um joystick com- 
patível com o micro em questão. Os pro- 
gramas que-aqui apresentamos devem 
ser utilizados com o joystick padrão dis- 
ponível para cada computador. Obser- 
vações a respeito se encontram antes de 
cada programa. Mais informações sobre 
joysticks em geral podem ser obtidas no 
artigo da página 287. 











Existem vários tipos de joystick com- 
patíveis com o Spectrum. Não é possí- 
vel escrever um programa que funcione 
com todos eles, pois cada um tem sua 
própria maneira de se comunicar com 
a máquina. Assim, optamos por um 
programa que funcione com o tipo mais 
comum de joystick: Atari. 


P e gua iJ 


A primeira parte ao programa permi- 
te a movimentação de uma alça de mira 
na tela do Spectrum. 


100 BORDER 1: PAPER 1: INK 7: 
OVER 1: CLS : INK 8 
110 FOR n-USR "a" TO USR "h*47 
: READ a: POKE n,a: NEXT n 
130 LET s-0: LET x-15: LET y- 
10 
140 PRINT OVER l;AT y,x;CHR$ 
148;CHRS 149;AT y+l,x;CHRS 150 
;CHRS 151 
200 GoSUB 500 
480 GOTO 200 
500 LET iS=INKEYS: IF i$-"" 
THEN RETURN 
505 LET i=CODE 18 

MÍ 510 PRINT OVER 1;AT y,x;CHRS 
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п COMPATIBILIDADE Ш UMA ALÇA DE MIRA ANIMADA 

DOS DIFERENTES TIPOS Ш TORNE SEUS JOGOS 

DE JOYSTICKS MAIS PROFISSIONAIS 

> п COMO UTILIZAR JOYSTICKS W UM TESTE PARA SEU 
EM PROGRAMAS BASIC JOYSTICK 





148;CHR$ 149;AT y+1,x;CHR$ 150 
;CHR$ 151 
520 IF 1-57 AND y>l THEN LET 
y=y-1 
530 IF i=56 AND y<20 THEN LET 
y=y+1 
540 IF i=55 AND x<30 THEN LET 
x=x+1 
550 IF 1=54 AND x>0 THEN LET 
x=x-1 
560 PRINT OVER 1;AT y,x;CHR$ 
148;CHR$ 149;AT y+1,x;CHRS 150 
;CHR$ 151 
570 RETURN 
1000 DATA 14,27,127,31,15,7,15, 
3l 
1010 DATA 0,0,0,0,0,192,112,188 
1020 DATA 31,29,30,15,3,1,1,3 
1030 DATA 206,30,124,248,224,64 
‚64,224 
1040 DATA 12,12,12,12,252,252,0 
‚0 
1050 DATA 48,48,48,48,63,63,0,0 
1060 DATA 0,0,252,252,12,12,12, 
12 
1070 DATA 0,0,63,63,48,48,48,48 

O programa começa estabelecendo as 
cores do vídeo. Em seguida, utilizando 
os valores das linhas DATA 1000 a 
1070, cria oito caracteres definidos pe- 

П ) lo usuário. O programa não usa todos 
e К ^ os caracteres, pois eles desenham não só 
A a alga de mira, mas também um pato. 
" Este será utilizado pela parte restante do 
programa, que apresentaremos num 

próximo artigo. 

Criados os caracteres, a linha 130 
acerta a posicào inicial da mira na tela. 
Além disso, zera o contador de pontos 
— ou escore —, que também aguarda 
a próxima parte do programa para ser 
utilizado. 

A linha 140 usa o comando PRINT 
para colocar na tela a metade superior 
da mira, usando dois caracteres defini- 
dos pelo usuário, Depois, coloca a me- 
tade inferior, usando dois outros carac- 
teres. A alça de mira é controlada pela 
sub-rotina que começa na linha 500, 
chamada linha 200. 

A sub-rotina que controla o joystick 
usa a função INKEYS$ para saber em 
que direção o bastão está virado. Isto é 
possível porque o joystick envia carac- 
teres ao micro, como se fizesse parte do 
teclado. Os códigos desses caracteres es- 
tão na figura 2. As quatro direções prin- 
cipais dão os valores 57, 56, 55 e 54, 





1. A função STICK (n) do MSX assume 
valores diferentes conforme a direção 
dada pelo bastão do joystick. 


A primeira linha da sub-rotina — li- 
nha 500 — verifica se o joystick está na 
posição central, Nenhum caractere será 
enviado se o bastão ocupar esta posição. 
Em seguida, a linha 505 guarda o códi- 
go do caractere na variável i, usando a 
função CODE. 

A linha 510 apaga a mira, pois é a se- 
gunda vez que PRINT OVER 1 foi usa- 
do (a primeira foi na linha 140). OVER 
1 faz com que o gráfico impresso na pri- 
meira vez desapareça quando é usado 
pela segunda vez. 

Agora que a posição antiga foi apa- 
gada, a nova pode ser calculada. Ela vai 
depender da direção em que o bastão do 
joystick for empurrado pelo jogador. A 
linha 520 percebe o movimento para ci- 
ma; a linha 530 percebe os movimentos 
para baixo; e as linhas 540 e 550 perce- 
bem os movimentos laterais. 

A sub-rotina termina colocando a al- 
ça de mira em sua nova posição. Obser- 
ve que, como é a primeira vez que a fi- 
gura é desenhada nesta posição, ela apa- 
rece normalmente. 

Para permitir um movimento contí- 
nuo da mira, a linha 480 traz um GO- 
TO 200, fazendo com que a sub-rotina 
do joystick seja chamada repetidamen- 
te. 


Como o ZX-81 nào permite a movi- 
mentação de figuras usando só o BA- 
SIC, a mira desenhada pelo programa 
a seguir é apenas um ponto gráfico (um 
quarto de caractere). 

O programa deve ser utilizado com 
o joystick do TK-85 da Microdigital, 


10 LET 





2 


2. O joystick do Atari envia caracteres 
ao Spectrum. Os códigos mudam conforme 
a direção. 


20 LET Y-20 

30 GOTO 170 

40 LET LX-X 

50 LET LY-Y 

100 LET AS-INKEYS 

110 IF A$-"" THEN GOTO 100 

115 LET A=CODE A$ 

120 IF A-33 AND X>0 THEN LET X= 
x-1 

130 IF A-36 AND X«63 THEN LET X 
=X+1 

140 IF A=34 AND Y>O THEN LET Y= 
gel 


150 IF A=35 AND Y<40 THEN LET Y 
=Y+1 

160 UNPLOT LX,LY 

170 PLOT X,Y 

180 GOTO 40 

As linhas 10 e 20 armazenam a posi- 
ção central da tela gráfica em X e Y. A 
linha 30 desvia o programa para a linha 
170, para que o primeiro ponto seja im- 
presso. Se ela for suprimida, o primei- 
ro ponto só aparecerá após algum mo- 
vimento do joystick. 

As linhas 40 e 50 guardam os últimos 
valores assumidos por X e Y em LX e 
LY, para que o programa saiba onde 
apagar a última posigáo do ponto. 

As linhas de 100 a 150 controlam o 
joystick. A linha 100 promove uma 
“varredura” do teclado. Isto é necessá- 
rio porque o joystick envia caracteres ao 
micro, como se fizesse parte do teclado. 
A linha 110 repete a linha 100 até que 
algum movimento seja feito no joystick. 
Ao ocorrer o movimento, a linha 115 
guarda o código do caractere enviado na 
variável A, usando CODE. 

Os códigos dos caracteres enviados 
pelo joystick são 35 (para cima), 34 (pa- 
ra baixo), 33 (esquerda) e 36 (direita) 
(veja a figura 3). As linhas 150, 140, 120 
e 130 detectam, respectivamente, estes 
movimentos. As condições sobre X e Y, 





3, Estes são os códigos dos caracteres 
enviados ao computador pelo 
joystick do TK-85. 


que se seguem à conjunção AND nes- 
tas mesmas linhas, evitam que o ponto 
ultrapasse os limites da tela. 

Finalmente, a linha 160 apaga o pon- 
to de sua última posição, usando UN- 
PLOT, e a linha 170 coloca-o em sua 
nova posição com PLOT. A linha 180 
volta ao princípio. 


E 


O MSX tem uma fungáo especial — 
STICK (N) —, que facilita muito o con- 
trole de joysticks por programas em BA- 
SIC. Além disso, essa fungáo permite 
que nosso programa seja utilizado mes- 
mo por quem náo possui um joystick. 


COMO MOVER SPRITES COM O JOYSTICK 


O programa a seguir foi feito para 
funcionar com o joystick do HOTBIT 
conectado á tomada frontal direita. 


10 SCREEN 1,2:KEY OFF 

20 FOR I-1 TO 32 

30 READ A:AS=AS+CHRS (A) 

40 NEXT I 

50 SPRITES(0)=A$ 

60 PUT SPRITE 0,(115,85),15 
170 X-115:Y-85 

200 GOSUB 1000 

210 сото 200 

1000 A=STICK(1) 

1010 ON A GOTO 1030,1040,1050,1 
060,1070,1080,1090,1100 

1020 RETURN 

1030 
1040 
1050 
1060 
1070 
1080 





+1:GOTO 1110 















4. Cada direção corresponde a um 
caractere no joystick do ТК-2000. 
Estes são seus códigos. 


1090 
1100 
1110 


X=X-1:GOTO 1110 
X=X-1:Y=Y-1:GOTO 1110 

PUT SPRITE 0,(X,Y),15 

1120 RETURN 

5000 DATA 3, 12, 16,32,3 
2,64,64,127,64,64,3 
2,32, 16, 12,3, 0, 224 
» 152 , 132, 130, 130, 129, 
129 , 255 , 129, 129, 130, 
130 , 132 , 152, 224,0 


A linha 10 ativa a tela de 32 colunas, 
com sprites grandes em alta resolução 
— SCREEN 1,2. Além disso, impede 
que o conteúdo das teclas de função se- 
ja impresso na parte inferior da tela, 
usando KEY OFF. 

As linhas 20 a 50 criam um sprite 
grande — dezesseis por dezesseis — pa- 
ra a alça de mira. Os números que defi- 
nem o padrão do sprite são lidos na li- 
nha 5000 (veja página 188). A mira é en- 
tão desenhada em sua posição inicial pe- 
la linha 60. A linha 170 guarda esta po- 
sigáo em X e Y. 

A linha 200 chama a sub-rotina de 
controle do joystick, que movimentará 
o sprite uma vez. A linha 210 faz com 
que o processo se repita, possibilitando 
o movimento contínuo. 

As linhas 1000 a 1120 controlam o 
joystick, por meio da função especial 
STICK (1). Esta assume diferentes va- 
lores, conforme a posição do joystick 
número 1 (veja a figura 1). STICK (2) 
é usada com o joystick 2; STICK (0) 
possibilita a substituição do joystick pe- 
las teclas do cursor. 

A linha 1000 armazena o valor cor- 
respondente à posição do joystick em A. 
A linha 1010 usa ON A GOTO para des- 
viar o programa conforme o valor de A 
(veja página 76). Isto pode ser feito por- 
que os números que o joystick envia são: 
0, em repouso; 1, norte; 2, nordeste; 3, 
















5. O joystick do TRS-Color é analógico; 
cada um dos seus dois potenciómetros 
fornece um valor entre 0 e 63. 


6. A leitura do joystick analógico do 
Apple só pode ser feita por um programa 
em linguagem de máquina. 





leste; 4, sudeste; 5, sul; 6, sudoeste; 7, 
oeste e 8, noroeste. As linhas para onde 
o programa é desviado calculam os no- 
vos valores de X e Y — linhas 1030 a 
1100. Quando A é igual a zero, o pro- 
grama vai para a linha 1020. 

Depois que a nova posição foi calcu- 
lada, a linha 1110 desenha o sprite ne- 
la. A linha 1120 provoca o retorno da 
sub-rotina. 


КЕ... 


Por meio do comando PDL (paddle 
— em inglês, raquete) controla-se ade- 
quadamente o joystick do Apple. Este 
micro possui uma entrada de joystick 
que, na verdade, é uma tomada, onde 
quase todo tipo de aparelho analógico 
ou digital pode ser conectado sem maio- 
res dificuldades. 

O programa a seguir foi feito total- 
mente em BASIC; por isso, nào controla 
muito bem o joystick analógico. 





DESCUBRA OS CÓDIGOS 


Se seu joystick é de outra marca, 
experimente este pequeno programa 
para descobrir quais são os códigos dos 
caracteres enviados por ele. 

Caso você tenha um Apple, não uti- 
lize nenhum programa. Pode ser que 
seu joystick utilize outro byte analógi- 
co. Existem quatro desses bytes, en- 
derecos —16284 a —16281. Tente to- 
das as combinações possíveis nas li- 
nhas 510 e 520. 


10 LET AS = INKEYS 

20 IF AS - "" THEN GOTO 10 
30 PRINT CODE A$ 

40 GOTO 10 


na 


Conecte o joystick na tomada direi- 
ta do HOTBIT. Se nào funcionar no seu 
MSX, troque a tomada ou substitua o 
número 1 por 2 na função STICK: 


10 PRINTSTICK(1);:GOTO 10 


[d] 


10 GET A$ 
20 PRINT ASC(AS) 








30 бото 10 


10 HOME :E = 35000: HIMEM: E 
20 F = INT (E / 256): POKE 232 
,E - F * 256: POKE 233,F 

30 FORI=ETOE+4+5*3 


2 

40 READ А: РОКЕ І,А 

50 МЕХТ 

60 НОА : SCALE= 1: ROT= 0:X = 
130:Y = 90 

200 GOSUB 500 

210 GOTO 200 

500 LX = X:LY = Y 

510 A = PDL (1):B = PDL (0) 
530 IFA = 0 AND Y > 8 THEN Y 
- Y - 8: GOTO 580 

540 IF A - 255 AND Y < 144 THE 
N Y = Y + 8: GOTO 580 

550 IF B - 0 AND X > 8 THEN X 
= X - 8: GOTO 580 

560 IF B - 255 AND X « 266 THE 
N X = X * 8: GOTO 580 

580  HCOLOR- 0 

590 DRAW 5 AT LX,LY 

600 HCOLOR= 3 

610 DRAW 5 AT X,Y 








Podemos usar joysticks nos outros | 
programas de jogos já publicados em 
INPUT? | 

A parte principal do programa forne 
cido neste artigo pode ser adicionada 
à maioria dos programas que usam 
GET$ ou INKEY$ para “ler” o teclado. 
Assim, você poderá aperfeiçoar seus jo 
gos, pois é muito mais conveniente e 
divertido usar joysticks do que teclado. 

As linhas importantes destes pro 
gramas são: para o Spectrum, linhas 
520 a 550; para o ZX81, linhas 100 a 
150; para o MSX, linhas 1000 a 1120; 
para o TK-2000 e Apple, linhas 500 a | 
530; е para o TR$-Color, as linhas 
1000 a 1070, chamadas como sub- | 
rotina (alguns valores terão que ser mo- | 
dificados, conforme o tamanho da fi- | 


gura) 
620 RETURN 


2000 DATA 20,0 ,42 ‚0 ‚74 ‚0 









,106 ,0 ,138 ,0 ,170 ,0 ,202 , 
0 ‚234 ‚0 .10 ‚1 ‚42 ‚1 ‚74 ‚1 
+106 ‚1 ‚138 ‚1 ‚170 ‚1 ‚202 ‚1 


„234,1 ‚10,2,42,2,24.2, 
106 ,2 ,138 .2 
2010 БАТА 0 ,72 ,9 ,45 ,141 
„59 ,31 ,255 ,83 ,45 ,45 ,45 ,2 
13 ,63 ,63 .223 ,74 ,9 ,45 ,173 
‚59 ‚25% ‚219 ,74 ,9 ,45 ,173 
+59 ,63 ,255 ,19 ,0 
2020 DATA 0 ,72 ,4l ,45 ,173 
‚251 „63 ‚223 ‚74 ‚41 ‚45 ‚141 
+59 +63 ,223 ,83 ,73 ‚73. ‚213 
,219 ,219 „83 ,73 ‚73 ‚209 ,255 
+219 ,19 ,0 ,0 ,0 ,0 
2030 DATA 0 ‚72 ‚73 ‚73 ‚218 
‚219,219 ‚74 ‚73 ‚73 ‚21в ‚21 
9 ‚219 ‚74 ‚73 ‚73 ‚218 ‚219,2 
7 ,119 ,45 ,77 ,137 ,219 ,63 ,2 
55 ,6 ,0 ,0 ,0 ,0 ,0 
2040 DATA 0 ,40 ,77 ,45 ‚141 
+27 ,63 ,255 ,83 ,45 ,45 477 » 
218 ,27 ,63 ,63 ,46 ,109 ,73 ,2 
09 ,219 ,27 ,31 ,110 ,77 ,73 ,2 
18 ,219 ,63 ,55 ,0 ,0 
2050 DATA 0 ,72 ,73 ,73 ,218 
+27 .223 ,83 ‚73 ‚77 ‚209 ‚219 
„223 ‚83 ,45 ,45 ,45 ,213 ,219 
,223 ,83 ,73 ,77 ,209 .219 ,22 
3,19 ,0 ,0 ,0 ,0 ,0 

As linhas 10 a 50 criam uma tabela 
de figuras a partir das linhas DATA cal- 
culadas com o editor da página 316. 

A linha 60 estabelece as condições ini- 
ciais de posição, cor e escala na tela grá- 
fica. 





A sub-rotina 500 controla o joystick. 
A linha 210 chama repetidamente a sub- 
rotina, possibilitando um movimento 
contínuo. 

As linhas 510 e 520 lêem o status dos 
dois paddles conectados ao joystick, por 
meio dos comandos PDL(0) e PDL(1). 

As linhas 530 а 560 deslocam a mira. 
continuamente para a esquerda e para 
cima, a menos que um movimento para 
baixo ou para a direita seja executado. 
Isto é o máximo que se pode fazer utili- 
zando apenas o BASIC. 

As condições que sé seguem às con- 
junções AND evitam que a mira ultra- 
passe os limites da tela. 

As linhas 580 e 590 apagam a mira 
de sua última posição; as linhas 600 e 
610 refazem o desenho na nova. 

A tabela de figuras criada a partir das 
linhas DATA inclui um pato, além da 
mira, Ele será utilizado num próximo 
artigo. Р 


г o 


O programa anterior não funciona- 
rá no TK-2000. Faça as modificações in- 
dicadas a seguir e use o joystick da Mi- 
crodigital ou as setas do teclado. 


510 GET AS 

520 A = ASC (AS) 

530 IF À = 112 AND Y > 8 THEN 
Y = Y - 8: GOTO 570 

540 IF A = 113 AND Y < 144 THE 
N Y = Y + 8: GOTO 570 

550 IF A 8 AND X > 8 THEN X 
= X - 8: GOTO 570 

560 IF A = 21 AND X < 266 THEN 
X = X + 8: GOTO 570 

570 REM 


O joystick envia caracteres ao micro, 
como se fizesse parte de seu teclado: as- 
sim, à linha 510 utiliza GET$ A$ para 
obter a nova posição do joystick. A li- 
nha 120 guarda o código do caractere 
enviado em A. 

Os códigos correspondentes aos mo- 
vimentos do joystick estão na figura 4. 
Esses códigos são os mesmos das setas 
do teclado, motivo pelo qual não é ne- 
cessário dispor de um joystick para usar 
o programa. 

A linha 530 detecta o movimento pa- 
ra cima; a 540, para baixo; a 550 para 
a esquerda e a 560 para a direita. As 
condições que se seguem à conjunção 
AND nestas linhas evitam que a mira ul- 
trapasse os limites da tela. 

As operações após THEN calculam 
as novas coordenadas. 

Note que o joystick do TK-2000 não 
é auto-repetitivo. A tecla REPEAT con- 
torna parcialmente o problema. 





O TRS-Color tem uma função em 
BASIC para controlar o joystick — 
JOYSTK — que facilita muito em- 
prego deste periférico. O computador 
admite a utilização de dois joysticks, 
mas o programa abaixo só usa um. 

Antes de passar ao programa, conec- 
te seu joystick na tomada traseira mar- 
cada com JOY-DIR. O programa não 
funcionará se o drive de disquetes esti- 
ver conectado. 


JA ALCA DE MIRA ANIMADA 


Digite a primeira seção do programa 
e depois rode-a. Você verá uma alça de 
mira surgir na tela, 


10 PMODE 3,1 

20 FOR K=1536 TO 1868 STEP 32 
30 FOR J=0 TO 2 

40 READ A:POKE K+J,A 

50 NEXT J,K 

160 SCREEN 1,0 

170 GOTO 170 

4000 DATA 252,15,192,192,0,192, 
48,3,0,12,12,0,3,48,0 

4010 DATA 0,0,0,3,48,0,12,12,0, 
48,3,0,192,0,192,251,15,192 


Esta parte do programa é bem sim- 
ples. As linhas 20 e 50 usam POKE para 
colocar a mira na tela, com os valores da- 
dos pelas linhas DATA 4000 e 4010. 

A linha 160 ativa a tela de alta reso- 
lução. A linha 170 é temporária e serve 
para manter a tela gráfica ligada. 

Depois de digitar a segunda parte do 
programa, você poderá movimentar a 
mira pela tela usando o joystick. 


60 DIM 8(5),B(5).D(4),H(4) 

70 GET (0,0)-(17,11),8,G 

130 PCLS 

140 LINE(0,0)-(255,191),PSET,B 
170 X=127:Y=95 

200 GOSUB 1000 

210 GOTO 200 

1000 JO=JOYSTK (0) :J1=JOYSTK (1) 
1010 IF J0>58 THEN J0=58 

1020 IF J1>59 THEN J1=59 

1030 IF X=J0*4+10 AND Y-J1*346 
THEN 1070 

1040 PUT(X-B,Y-5)-(X*9, Y*5) , B, P. 
SET 
1050 
1060 


ов 
1070 RETURN 


Embora o programa empregue ape- 
nas duas matrizes para armazenar dese- 
nhos, a linha 60 dimensiona quatro de- 
las — duas para uso futuro. A linha 70, 
com GET, armazena o desenho da mi- 
ra na matriz S. Esta matriz é usada jun- 
tamente com a matriz B — em branco 


X*J0*4*10:Y7J1*3*6 
PUT (X-8,Y-5)-(X*9, Y*5),8, 
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Em artigo anterior, napágina 334, vi- 
mos algumas das fungóes matemáticas 
existentes nos computadores, bem como 
sua utilidade enquánto ferramentas grá- 
ficas. Agora, examinaremos mais de 
perto sua atuação eindicaremos outros 
usos para elas. 

As funções que nos interessam no 
momento são o seno eso cosseno; caso 
ainda não esteja familiarizado com ela 
aconselhamos consultar à artigo citado. 
Nele, você verá como estas funçi es- 
tão relacionadas com a posição de шту 
ponto do redor de um cirêulo, e comg 
usá-las/para calcular as coordenadas de 
qualquer ponto. O programa da bússo- 
la, no artigo da página 334, jutiliza o se- 
no e o cosseno para posicionar as mar- 
cações de número em seus devidos Ih- 
gares, ao redor da bússol 


COMO DESENHAR UM RELÓGIO 


Os programas apresentados até agb- 
ra não têm muita utilidade prática. Pò- 
rém, cómo veremos detalhatlamente nos 
próximos artigos trigonomé 
tricas oferecem variadas possibilidades 
de uso, Por enquanto, vamos nos con- 
centrar no desenho de um relógio. Vo- 
cê já deve ter pelo menos uma idéia de 
como fazê-lo, com base ho primeiro ar- 
tigo da série. 

O principio é o mesmo que orientou 
o desenho da bússola, com uma diferen- 
qa: em vez de fornecermos um ángulo, 
© computador precisará selecionar sozi- 
nho os ângulos a/serem mostrados, 
aumentando-os com o tempo. 

Os programas à seguir calculam as 
posições dos ponteiros, usando SIN e 
COS, para que mostrem a hora certa. 

Embora seja/fácil montar um relógio 
de doze horas, este;programa desenha 
um relógio de'24 horas, com numeração 
de 1 a 24 em'seu mostrador. Dessa ma- 
neira, podéremos examinar melhor as 
rotinas que imprimem oè números. De- 
pois de digitar e rodar o programa, ves 
remos/0 que SIN e COS fazem exata- 
mente. 

No programa da bússola, ðs míme- 
10s,ao redor do aparelho marcavam os 
váriós.graus; no relógio, mareâm as ho- 
ras. Os Números de 1.a-24 são selecio- 


Já aprendemos a usar funções 
matemáticas para fazer gráficos 
circulares. Veremos agora como 
empregar SIN e COS na elaboração 
de desenhos mais sofisticados. 



































ШШ FAÇA UMRELÓGIO MECÂNICO Ш „COMO ADICIONAR 
п COMO POSICIONAR NUMEROS ROMANOS 

OS NÚMEROS E DESENHOS ABSTRATOS 
п DESENHE OS PONTEIROS E O USO DE SIN E COS EM 
м ACRESCENTE UM ALARME DESENHOS MAIS ELABORADOS 




































































nados por um laço. FOR...NEXT e im- 
pressos na tela em coordenadas deter- 
minadas por SIN e COS. 

Parte do programa pata o TRS- 
Color e o MSX pareceráo familiares 
a quem usou a rotina para desenhar ca- 
racteres na tela de alta'resolução, dada 
no artigo da página 232. Repetimos es- 
ta rotina no programa dado à seguir 
porque o computador não imprime ca- 
racteres na tela em PMODE 4 ou 
SCREEN 2 e 3, mas com ela podemos 
colocar os números ao redor do marca- 
dor do relógio. 

Se você salvou a rotina citada, carre- 
gue-a no seu computador para não pre- 
cisar digitá-la novamente. Depois, acres- 
cente essas linhas ao programa abaixo. 

A mesma rotina também serve para 
colocar números no programa da bús- 
sola visto anteriormente; basta adaptá- 
lo para isso. Quando o marcador é de- 
senhado, o computador automaticamen- 
te desenha o ponteiro de segundos doire- 
lógio; este funciona como o ponteiro de 
segundos de um relógio real. O ângulo 
inicial, no topo do círculo, é de O graus, 
e aumenta gradualmente até chegar nos 
360 graus, novamente no topo. A velo- 
cidade do ponteiro de segundos é deter- 
minada por um comando PAUSE ди ре- 
lo'temporizador no computador, 

Os ponteiros do relógio são/movi- 
mentados por meio de um laço 
FOR...NEXT, no Spectrum. O progra- 
ma do TRS-Color usa uma /variável 
que é atualizada pelo temporizador ca- 
da vez que se roda o programa (este é 
um laço contínuo). O ponteiro de segun- 
dos movimenta-se sempre que a variá- 
vel acusa que já se passou um segundo. 


5 CIRCLE 134,92,70 

6 LET q--1 

10 FOR n=1 TO 24 

20 PRINT AT 10-10*COS (n/12* 
PI),16*10*SIN (n/12*PI);n 

30 NEXT n 

40 FOR t-0 TO 20000 

50 LET a-t/30*PI 

60 LET.Sx-65*8IN a; LET sy-65 
*COS a 

70 PLOT 134,92: DRAW OVER 1; 
sx, sy 

80 PAUSE 42 





90 PLOT 134,92: DRAW OVER 1; 
sx,sy 
100 NEXT t 





10 PMODE 4,1 

20 DIM LES(26) 

30 PCLS 

40 FOR K=0 TO 26:READ LES(K):NE 


50 FOR K=0 TO 9:READ NUS (K) :NEX 


60 DATA BR2,ND4R3D2NL3ND2BE2,ND 
4R3DGNL2FDNL 3BU4BR2 , NR3D4R3BU4B 
R2,ND4R2FD2GL2BE4BR , NR3D2NR2D2R 
3BU4BR2 

70 DATA NR3D2NR2D2BE4BR, NR3D4R3 
U2LBE2BR,D4BR3U2NL 3U2BR2 ,ND4BR2 
+BD4REU3L2K3BR2,D2ND2NF2E2BR2 
80 DATA D4R3BU4BR2,ND4FREND4BR2 
, ND4F 3DU4BR2 , NR3D4R3U4BR2 , NDAR3 
D2NL3BE2,NR3D4R3NHU4BR2 

90 DATA ND4R3D2L2F2BU4BR2 , BD4R3 
U2L3U2R3BR2 , RND4RBR2, D4R2U4BR2 , 
D3FEU3BR2,D4EFU4BR2 

100 DATA DF2DBL2UE2UBR2,DFND2EU 
BR2,R3G3DR3BU4BR2 

110 DATA NR2D4R2U4BR2,BDEND4BR2 
, R2D2L2D2R2BU4BR2 , NR2BD2NR2BD2R 
2U4BR2, D2R2D2U4BR2 ,NR2D2R2D2L2B 
E4,D4R2U2L2BE2BR2, R2ND4BR2 , NR2D 
4R2U2NL2U2BR2,NR2D2R2D2U4BR2 
200 MX=127:SX=127:MY=95:8Y=95 
210 SCREEN 1,1 

220 CIRCLE (127,95),60,1 

230 PI=ATN(1)/15 

240 FOR K-5 TO 120 STEP 5 

250 LINE(127*55*SIN(K*PI),95-55 
X*COS (K*PT) ) - (127*59*SIN(K*PI),9 
5-59*COS (K*PI))', PSET 

260 AS-MIDS(STRS(K/5),2) :DRAW"B 
M"*STR$ (INT (123*68*SIN(K*PI)))* 
","*STR$ (INT (92-68*COS (K*PI) )) * 
"C586" :GOSUB. 1000 

270 NEXT K 

280 IF TIMER<50 THEN 280 

290 TIMER=0:T=T+1 

300 IF T-86400 THEN T=0 

310 H=T/3600 

320 M=T/60-INT (H)*60 

330 S-T-INT (M) *60-INT (H) *3600 
340 LX*SX:LY=SY 

350 SX=127+45*SIN(S*XPI*2):SY=95 
-45*C0S (S*PI*2) 

360' LINE (127,95)- (SX,SY) , PSET 
370 LINE (127,95)-(LX,LY) ,PRESET 
380 І.ІМЕ(127,95)-(МХ,МҮ).,РВЕЗЕТ 
390 MX=127+30*SIN(M*PI*2):MY=95 
-30*COS (M*PI*2) 

400 LINE(127,95)-(MX,MY) , PSET 





410 LINE(127,95)*- (HX, HY) , PRESET 


420 HX=127+20*SIN(H*PIX*5): 
-20*C0S (A*PI*5) 

430 LINÉ(127,95)- (HX, HY) , PSET 
440 GOTO 280 

1000 FOR M=1 TO LEN(AS) 

1010 B$=MIDS(A$,M,1) 

1020 ІҒ В5>-"0” АМО В5<-"9"/ТНЕ 
N/^DRAW NUS (VAL (B$)) :GOTO 1050 
1030 IF B$-"" THEN N-0 ELSE, N-A 
SC(B$)-64 

1040 DRAW-LES(N) 


Y=95 


1050 NEXT 
1060 RETURN 


20 DIM LE$ (26) 

30 сїз 

40 FOR K=0 TO 26:READ LES$(K):NE 
xT 

50 FOR K-0 TO-9:READ NUS (K) :NEX 
T 


60 DATA BR2,ND4R3D2NL3ND2BE2 , ND 
4R3DGNL2FDNL 3BU4BR2 , NR3D4R3BU4B 
R2,ND4R2FD2GL2BE4BR,NR3D2NR2D2R 
3BU4BR2 

70 DATA NR3D2NR2D2BE4BR,NR3D4R3 
U2LBE2BR,D4BR3U2NL3U2BR2,ND4BR2 
+BD4REU3L2RIBR2,D2ND2NF2E2BR2 
80 DATA D4R3BU4BRZ, ND4FREND4BRZ 
+ND4F 3DU4BR2 ,NR3DAR3U4ABR2,ND4R3 
D2NL3BEZ, NR3D4R3NHU4BRZ 

90 DATA ND4R3D2L2F2BU4BR2,BD4R3 
'U2L3U2R3BR2, RND4RBR2, D4R2UTBR2 , 





D3FEU3BR2,D4EFU4BR2 

100 DATA DF2DBL2UE2UBR2,DFND2EU 
BR2,R3G3DR3BU4BR2 

110 DATA NR2D4R2U4BR2,BDEND4BR2 
,R2D2L2D2R2BU4BR2 , NR2BD2NR2BD2R 
2U4BR2 , D2R2D2U4BR2 , NR2D2R2D2L2B 
E4,D4R2U2L2BE2BR2 , R2ND4BR2 , NR2D 
4R2U2NL2U2BR2 , NR2D2R2D2U4BR2 

200 МХ-127:5Х-127:МҮ-95:5Ү-95 
210 SCREEN2 

220 CIRCLE (12, 


430 LINE (127, 
440 GOTO 280 
1000 FOR M=1 


1030 IFB$-" 
(C (B$) -64 


1050 NEXT 
1060 RETURN 


O ZX-81 nào possui o comando 
DRAW; assim, para fazer o relógio, 
precisaríamos desenhar os ponteiros 
ponto por ponto, via comando PLOT. 
Além disso, sua tela gráfica não é de al- 

ta resolução, como nos outros compu- 


O capítulo 19 do 1 
contém um programa de 


pode, por exemplo, ajustar uma variá- 
vel extra para o ángulo, em vez de usar 
Q*PI/n) no PRINT AT. 

A rotina do Spectrum segue a mes- 
ma fórmula das outras, mas parece di- 
ferente, porque utiliza um método dis- 
tinto para o PRINT AT numa posição 
da tela: em vez do primeiro número de- 
pois do comando ser a ESA X é 
1"сбо denada у. m. disse 


AT cada vez qu 
ividindo o circulo 


como o Spectrum mas, 
rotina especial para dgsenhar letras na 














tela gráfica, seus programas são um 
pouco diferentes. Na verdade, eles não 
imprimem um número relacionado com 
o STEP que controla suas posições an- 
gulares. O que imprimem é acessado — 
ou chamado — pelo comando STRS, na 
linha que controla a impressão. STR$ 
simplesmente consulta a rotina que de- 
senha letras; não está relacionado com 
a posição onde os números são desenha- 
dos, a qual é determinada pela variável 
K 


Como o círculo tem 360 graus, para 
se imprimir 24 números ao redor do re- 
lógio, em intervalos iguais, eles devem 
ser posicionados a cada 360/24 (15) 
graus. Do mesmo modo, como há 2*PI 
radianos num círculo completo, os nú- 
meros estão posicionados a cada 
2*PI/24, ou PI/12 radianos. 

Observe que em todos os laços o pri- 
meiro número é o primeiro salto, e não 
o 0 (1 no Spectrum, 5 no TRS-Color e 
MSX). Por isso, o primeiro número im- 
presso — ou desenhado, como é o caso 
do TRS-Color e do MSX — estará em 
1 hora e não em 24 horas, 

O restante do programa usa SIN e 
COS para calcular as posições dos pon- 
teiros, e uma variável ou o temporiza- 
dor interno do computador para acom- 
panhar o tempo, garantindo, assim, que 
o ponteiro de segundos se movimente a 
cada segundo. 


СОМО АСЕ$$АВ 0$ i 


O método para dizer ao computador 
o que ele deve imprimir não precisa ser 
aquele utilizado no exemplo do relógio. 
Poderíamos armazenar Os números em 
DATA e depois ler (READ) estes núme- 
ros, um de cada vez, à medida que 


o computador passasse pelo laço 
FOR...NEXT. 

Pode parecer um desperdício de me- 
mória mas, na verdade, este método nos 
permite fazer mudanças interessantes. 
Por exemplo: existem relógios com alga- 
rismos romanos no lugar dos números 
convencionais. Usando uma variável de 
cadeia, e armazenando em DATA as le- 
tras, e não os números, poderemos so- 
fisticar ainda-mais nosso relógio. 

Talvez seja preciso mudar o tamanho” 
e/ou a posição do círculo para que os 
algarismos romanos caibam na tela (o 
número 8, por exemplo, é VIII, o queto- 
ma bastante espaço!). 

Também poderíamos fazer um reló- 
gio de 24 horas em algarismos romanos. 
E é fácil, usando este método, mudar 
um relógio de 12 para um de 24 horas, 

Adicionar um alarme ao programa 
também não será difícil. Para isso, pre- 
cisaríamos calcular, usando SIN e CO! 
a posição exata em que o ponteiro vai 
estar na hora ajustada para o disparo do 
alarme, Uma nova linha com um 
IF... THEN avisaria ao computador que 
a variável que ajusta a posição do pon- 
teiro é igual à calculada para o alarme 
e, então, o computador emitiria algum 
som. 

Usando os mesmos princípios, seria 
possível não só fazer um relógio de 12 
horas ou de um dia, mas de uma sema- 
na, um mês ou até mesmo um ano. O 
único limite é a quantidade de informa- 
ção que podemos colocar na tela. 


DESENH0S ABSTRATI 


Até agora, empregamos SIN e COS 
para coisas úteis como relógios, bússo- 
las e gráficos. Mas talvez seu uso mais 











spirit o spectrum, 


Flor no MSX. 

















interessante esteja na elaboração de grá- 
ficos abstratos, obtidos com a manipu- 
lação adequada das duas funções. 

Desenhando séries de círculos e elip- 
ses, já produzimos algumas figuras in- 
teressantes. Se, por exemplo, movêsse- 
mos o centro do círculo ou, então, au- 
mentássemos seu raio a cada volta, o re- 
sultado seria ainda melhor. Essas mu- 
danças são muito fáceis de fazer: preci- 
saremos apenas acrescentar algumas li- 
nhas às rotinas conhecidas. 


COMO FAZER UMA ESPIRAI 


No artigo anterior, “apresentamos 
uma rotina que desenha um círculo pon- 
to a ponto. Com algumas mudanças — 
por exemplo, o aumento gradativo do 
raio —, poderemos obter uma espiral, 


em vez de um círculo. As versões a se- 
guir fazem exatamente isto. 


10 LET z=0 

50 FOR n=0 TO B*PI STEP PI/10 
60 PLOT 128+(5+z)*SIN n,88+(5 
*z)*COS n 

70 ГЕТ 2=2+1 

80 МЕХТ п 





10 PMODE 4,1 

20 PCLS 

30 SCREEN 1,1 

40 PI=4*ATN (1) 

50 FOR N=0 TO 10*PI STEP PI/10 
60 PSET(127*(5*2) *SIN(N) ,95* (5* 
Z)*COS (N) , 5) 





70 2=2+1 
80 NEXT N 
90 сото 90 


(411%) 


10 HGR2 

20 HCOLOR= 3 

30 PI = 4 # ATN (1) 

40 FOR N = 0 TO 8 * PI STEP PI 
/ 10 

50 HPLOT 140 + (5 + Z) * 
(N),80 + (5 + Z) * COS (N) 
60 2 =/2 + 1 

70 МЕХТ М 

80 бото 80 


УЧ 


10 SCREEN 2 
20 COLOR 1,15 
30 CLS 


SIN 





40 PI-4*ATN(1) 

50 FOR М-0 TO 10*PI STEP PI/10 
60 PSET(128* (5*2) *SIN(N) ,96* (5* 
Z)*COS(N)),1 

70 2-2%1 

80 NEXT N 

90 сото 90 




















A diferença entre este programa e o 
que desenha um círculo é a variável Z. 
Esta começa em 0, aumentando cada 
vez que o computador passa pelo laço. 
A mudança que ela traz está nos cálcu- 
los da linha 60 no Sinclair, TRS-Color 
e MSX e da linha 50 no Apple. 

O ponto desenhado é controlado, co- 
mo no círculo, pelo SIN e COS da va- 
riável de controle no laco. O aumento 
do nümero que multiplica o SIN e COS, 
quando o computador passa pelo laco, 
faz com que os pontos sejam desenha- 
dos cada vez mais longe do centro. A va- 
riável Z é responsável pelos consecuti- 
vos aumentos, que resultam na espiral 
crescendo para fora. 

Como no programa do círculo, po- 
demos obter resultados diferentes se mu- 
darmos o salto (STEP) — linha 40 no 
Apple e 50 nos outros — ou a dimen- 
sào do aumento de Z. Alguns STEP in- 
teressantes são 2, 5,PI e 2*PI. Experi- 
mente-os e descubra porque os resulta- 
dos são diferentes (lembre-se de que os 
computadores trabalham com radianos, 
e que um círculo tem 2*PI radianos). 

Podemos fazer espirais elípticas do 
mesmo modo que fizemos elipses na pri- 
meira versão deste programa: basta mu- 
dar o número dentro dos parênteses na 
linha 60 (linha 50 no Apple). 


SOFISTIQUE OS DESENHOS 


Existe um brinquedo infantil que uti- 
liza rodas de plástico para desenhar. A 
criança coloca uma roda menor dentro 
de uma maior, e a ponta de uma caneta 
num dos furos da roda menor; moven- 
do a roda menor pelo lado interno da 
maior, a caneta gira. O desenho obtido 
é muito interessante. 

O centro da roda menor está sempre 
se movendo quando a criança está de- 
senhando, o que resulta numa série de 
espirais contínuas. O computador con- 
segue um efeito semelhante, desenhan- 
do círculos cujos centros estão em cons- 
tante movimento. 

Os programas que se seguem fazem 
isso, sendo que, para o Spectrum, a es- 
colha da cor é aleatória. 


10 CLS : LET x=0: LET p=0: 
LET q=0 


20 LET z-INT (RND*7): INK z: 
LET a-INT (RND*50) 

30 LET b-INT (RND*50) 

40 FOR n=0 TO 200*PI STEP b/ 
100 

50 IF INKEYSX»"" THEN GOTO 
10 

60 LET p-128*(a-b)*SIN n: LET 
q-88*(a-b)*COS n 

70 PLOT p*b*SIN x,q*b*COS x 
80 LET x-x-a/1074 

90 NEXT n 

110 сото 20 





10 PMODE 4,1:PCLS:SCREEN 1,1 

20 PI=4*ATN(1) 

30 A=RND(50)-1:B=RND(50)-1 

40 FOR N=0 TO 200*PI STEP B/100 
50 IF INKEYS<>”"” THEN 10 

60 P=128+(A-B) *SIN(N) :Q=95+(A-B 
)*COS (N) 

70 PSET (P*B*SIN(X) ,Q*BX*COS(X) , 
5) 

80 X=X-A/1074 


90 NEXT 

100 GOTO 30 

10 HGR2 : HCOLOR= 3 

20 PI *4 * АТН (1) 

30 A = INT ( RND (1) * 100) 


40 B * INT ( RND (1) * 40) 

50 FOR N = 0 TO 200 * PI STEP 
B / 100 

60 W = PEEK ( - 16384) 

70 РОКЕ - 16368,0 

80 IF W > 127 ТНЕМ 10 

90 p = 140 +B * SIN (N):Q = 8 
0+ вж COS (N) 

100 HPLOT P + B * 
B * cos (X) 

110 X = X - À / 1000 
120 NEXT N 

130 GOTO 30 


nau 


10 SCREEN2:COLOR1,15:CLS 

20 PI-4*ATN(1) 

30 A=INT(RND(1)*200)+20 

40 B-INT(RND(1)*40)*10 

50 FOR N=0 TO 200*PI STEP B/100 
60 IF INKEYS<>”" THEN 10 

70 P-128*B*SIN(N) :Q=96+B*COS (N) 
80 PSET(P*B*SIN(X) , Q*B*COS(X)) , 


SIN (0,0 * 


90 X-X-A/1000 
100 NEXT N 
110 coTo 30 


Nota-se facilmente que o laço 
FOR...NEXT é uma rotina criadora de 
círculos: os laços para cada computador 
são 
FOR N=0 TO 200*PI 

Como nos outros programas deste ar- 


tigo que usam SIN e COS, essas duas 
funções também estão inclusas no laço. 
Elas calculam a posição do próximo 
ponto a ser desenhado, embora, é cla- 
ro, os cálculos sejam um pouco mais 
complicados do que um simples **SIN 
N” ou “COS N”. 

Os demais cálculos nesta linha servem 
para incrementar o resultado da expres- 
sào do SIN ou COS, para que ele possa 
representar uma posição na tela. Por es- 
sa razão, o centro da tela gráfica de ca- 
da computador também faz parte dos 
cálculos. Se olharmos com atenção, en- 
contraremos o centro da coordenada 
“Х” пшпа metade da linha e o centro 
da coordenada “Y” na outra. 

O cálculo envolve ainda duas variá- 
veis; como elas recebem valores aleató- 
rios no início de cada programa, este 
sempre executa desenhos diferentes ao 
ser rodado. Tente mudar o valor dessas 
variáveis e observe a diferença. 


Podemos fazer outro tipo de alte- 
ração: mudar o STEP do laço 
FOR...NEXT. O resultado será o au- 
mento ou a diminuição da densidade dos 
pontos, conforme o STEP seja aumen- 
tado ou diminuído. Para a obtenção do 
desenho, o centro do círculo deve mu- 
dar cada vez que um ponto é desenha- 
do. Para isso, colocamos o próprio cen- 
tro do círculo num outro circulo, que gi- 
ra a cada passo do laço. O efeito é pro- 
duzido pelo segundo grupo de cálculos 
do SIN e COS, baseado em x. Essa va- 
riável decresce levemente cada vez que 
o computador passa pelo laço. 

Tente alterar o tanto que a variável 
(x) diminui e veja o que acontece com 
os desenhos. Estes seis valores trazem 
resultados interessantes: A/10,/A/-10, 
А/-50, A/0.5, A/0.1, A/0.001. 

Todas as versões permitem que rei- 
niciemos o programa a qualquer hora, 
bastando apertar uma tecla. O Spec- 
trum, o TRS-Color e o MSX usam o 
INKEYS para verificar se alguma tecla 
foi pressionada, enquanto o Apple bus- 
ca essa informação na memória (linhas 
60 a 80, já comentadas em artigos ante- 
riores sobre PEEK e POKE). 

Examinaremos ainda diferentes usos 
para funções trigonométricas e angula- 
res. No próximo artigo desta série, tra- 
taremos de quadrados, cubos, raízes 
quadradas e outras ferramentas podero- 
sas para controlar o comportamento das 
variáveis. Você terá, assim, novas opor- 
tunidades de dar às funções empregos 
que, à primeira vista, não parecem es- 
tar relacionados com a matemática. 





TRA 


ALHE COM O 


CÓDIGO ASCII 


Conjunto de códigos alfanuméricos 
padronizados, o código ASCII 

foi concebido com o objetivo de tornar 
possível a transferência de 

dados de um computador para outro. 


Cada tecla ou combinação de teclas 

seu micro corresponde a um código 

ônico dentro do computador. Em 

C, códigos desse tipo são represen- 
tados por valores decimais entre 0 е 2. 


A letra A, por exemplo, tem o código 
decimal 65, B é 66, e assim por diante 
Toda vez que uma letra ou palavra é di- 
gitada, o computador armazena os có 
digos correspondentes. 

Os valores e caracteres corresponden- 
tes não são, porém, os mesmos em to- 
dos os computadores; mas felizmente 
existe alguma padronização no modo 
com que eles são usados. 

Os valores de código são referidos pe: 
la sigla ASCII (que vem de American 
Standard Code for Information Inter- 
change, ou seja, Código Padráo Ame- 
ricano para Troca de Informação). Es 


O QUE E O CODIGO ASCII? 
USE NUMEROS EM VEZ 

— DE CARACTERES 
PROGRAMA PARA CODIFICAR 
E DECODIFICAR MENSAGENS 


se código foi montado com o objetivo 
de possibilitar a transferência de dados 
de um computador para outro. Os mi- 
cros TRS, MSX, Apple e Spectrum cos- 
tumam empregá-lo, pelo menos em par- 
te. Apenas o ZX-81 tem um código com- 
pletamente diferente 


0 CÓDIGO ASCII 


O conjunto completo de caracteres 
ASCII náo se apresenta do mesmo mo- 
do em todos os computadores. Mas há 
semelhanças entre os diversos conjun- 





tos. A maior delas está na faixa de 33 
a 90, que cobre os símbolos mais co 
muns — pontuação, números e letras 
maiúsculas. Existe um modo muito sim 
ples de descobrir o código ASCII de um 
caractere: basta digitar PRINT ASC 
(“X”) (ou PRINT CODE “X” no Spec 
trum). Você terá, assim, o código de X 
ou de qualquer outro caractere que for 
colocado em seu lugar. O próximo 

grama facilita as coisas para você 


10 PRINT"DIGITE QUALQUER LETRA, 


NUMERO OU CARACTER” 

20 INPUT AS 

30 PRINT"O CODIGO ASCII 
AS; 

40 


PARA 


No Spectrum, mude a linha 30 para 


30 PRINT 
"¡AS;" E 


CODIGO ASCII PARA 
CODE AS 


O oposto de ASC ou CODE é CHRS, 
que converte o número de código para 
o caractere correspondente. O próximo 


programa converte todos os códigos AS 
CII de 33 a 90 em caracteres 


10 PRINT"CODIGO ASCII","CARACTE 
R” 
20 FOR N=33 TO 90 
30 PRINT N,CHR$ (N) 
40 FOR D=1 TO 500:NEXT D 
50 NEXT N 

As letras minüsculas estào na faixa de 
97 a 122 e podem ser vistas mudando- 
se o ültimo nümero da linha 20 para 122 


Ao substituirmos este último por 25 





| 


=, 
































teremos uma visão do conjunto comple- 
to de caracteres. A listagem dos carac- 
teres e códigos correspondentes está no 
manual do seu micro. 

No TRS-Color, os caracteres minús- 
culos aparecerão na tela iguais aos 
maiúsculos, só que invertidos. A impres- 
sora ligada ao micro provavelmente in- 
terpretará esses caracteres como minús- 
culos de verdade. O TK-2000 não pos- 
sui letras minúsculas. 


MO USAR O 160 АЅСІІ 


A vantagem de se usar um número 
em lugar de uma letra é que se pode 
alterá-lo matematicamente de várias ma- 
neiras. Então, ao se imprimir o CHR$ 
do novo número, o que se obtém é uma 
letra diferente. Base para muitos progra- 
mas codificadores, essa possibilidade de 
conversão é muito interessante, visto 
que não se pode manipular uma letra 
por meio de regras matemáticas. 

Códigos simples apenas adicionam 
um valor constante a cada número, 
modo a fazer com que a letra ““viaj 
pelo alfabeto. Por exemplo, a letra A 
ra G,o B torna-se H, etc. Um códi- 
go desse tipo é tão fácil de mon- 

tar quanto de decifrar. Assim, 
um programa bem simples po- 
de tentar as 26 combinações 
possíveis; um rápido exame 
determinará qual dessas combi- 
nações é a correta. 
Para ser útil, contudo, o programa 
deve fazer coisas mais complicadas. O 
programa abaixo, por exemplo, usa uma 
palavra de código que funciona como 
chave. Assim, cada letra da mensagem 
é modificada de uma forma diferente. 
Muito mais difícil de ser decifrado, es- 
se código exige que se conheça a pala- 
vra-chave. 


10 POKE 23658,8: LET CP=0: 
LET PM-0: LET D$-"" 

20 cLs 

30 INPUT "QUAL E A SENHA? "; 
LINE C$ 

40 PRINT "INTRODUZA A MENSAGE 
м" 





50 INPUT LINE M$ 

60 LET CP-CP*1: IF CP>LEN C$ 
THEN LET СР-1 

70 LET PM=PM+1 

80 IF PM>LEN MS THEN GOTO 
200 

90 LET F$=MS (PM) 

100 IF FS<"A” OR FS>"Z” THEN 
GOTO 150 

110 LET F-CODE F$*CODE C$(CP)- 
65 


120 IF F>90 THEN LET F=F-26 
130 LET DS=DS+CHRS F 

140 сото 60 

150 IF FS<"0” OR F$>"9” THEN 
LET D$=DS+F$: GOTO 70 

160 LET F=CODE FS+CODE CS(CP)- 
48 


170 IF F>57 THEN LET F=F-10: 
GOTO 170 

180 LET D$-DS*CHR$ F 

190 GOTO 60 


200 PRINT '"A MENSAGEM CODIFIC 
ADA E :" 

210 PRINT 'D$ 

220 STOP 


10 CLEAR 300 

20 CLS 

30 LINEINPUT"QUAL E A SENHA?";C 
5 

40 PRINT"INTRODUZA A MENSAGEM” 
50 LINEINPUT MSS 

60 CP=CP+1:IF CP>LEN(CS) THEN CP 


70 PM=PM+1 

80 IF PM>LEN(MS$) THEN 200 

90 FS=MIDS (MSS$,PM,1) 

100 IF FS<"A” OR FS>"Z” THEN 15 


0 

110 F=ASC(FS)+ASC(MIDS(CS,CP,1) 
)-65 

120 IF F>90 THEN F=F-26 

130 CD$=CDS+CHRS (F) 

140 GOTO 60 

150 IF F$<”0” OR F$>”9"” THEN CD 
$=CDS+F$:GOTO 70 

160 F=ASC(FS$)+ASC (MIDS (C$,CP,1) 
)-48 

170 IF F>57 THEN F=F-10:GOTO 17 
0 


180 CD$=CDS+CHRS (F) 

190 GOTO 60 

200 PRINT:PRINT"A MENSAGEM CODI 
FICADA E: " 

210 PRINT:PRINT CD$ 

220 END 


15) 


10 НОМЕ 

30 INPUT "Palavra chave? ";С$ 
40 PRINT "Digite a mensagem:” 
50 INPUT MS$ 
60 СР = CP + 1: 
$) THEN CP = 1 
70 РМ = РМ + 1 


IF CP > LEN (C 


80 IF PM > LEN (MSS) THEN 200 
90 FS = MIDS (М5$,РМ,1) 

100 IF F$ < "A" OR FS > "2" TH 
ЕМ 150 

110 F = ASC (FS) + ASC ( MIDS 
(C$,CP,1)) - 65 

120 IF F 5 90 THEN F - F - 26 
130 CD$ - CDS + CHRS (F) 


140 сото 60 

150 IF F$ < "0" OR FS > "9" ТН 
EN CDS = CDS + FS: GOTO 70 

160 F = ASC (FS) + ASC ( MIDS 
(C$,CP,1)) - 48 








170 IF F > 57 THEN F * F - 10: 
бото 170 

180 CDS = CDS + 
190 GOTO 60 
200 PRINT 
codificada e: 
210 PRINT : 
220 END 


nu 


20 CLS 

30 LINEINPUT"Palavra de código? 
"cs 

40 PRINT"Digite a mensagem:” 
50 LINEINPUT MS$ 

60 CP=CP+1:IFCP>LEN(CS) THENCP=1 
70 PM=PM+1 

80 IFPM>LEN (MSS) THEN200 

90 FS=MIDS (MSS,PM,1) 

100 IFFS<"A"ORFS$>"Z"THEN150 
110 F=ASC(FS)+ASC(MIDS(CS,CP,1) 
2-65 

120 IFF>90THENF=F-26 

130 CDS=CDS+CHRS (F) 

140 GOTO60 

150 IFFS<"0"ORFS>"9"THENCDS=CDS 
*F$:GOTO70 

160 F=ASC(FS)+ASC(MIDS(CS,CP,1) 
)-48 

170 IFF>57THENF=F-10:GOTO170 
180 CD$=CD$+CHR$ (F) 

190 607060 

200 PRINT:PRINT"A mensagem codi 
ficada é:" 

210 PRINT:PRINTCDS 

220 END 


Depois de pedir que sejam digitadas 
a palavra-chave e a mensagem, o pro- 
grama faz a codificação, mostrando-a 
na tela. A mensagem ficará então pre- 
servada (ou seja, somente alguém que 
conheça o código poderá decifrá-la). 

O modo como isso funciona é bastan- 
te simples, assemelhando-se muito ao 
método descrito anteriormente. A dife- | 
rença está no fato de que, em vez de adi- 
cionar um valor fixo a cada letra; o có- 
digo ASCII da primeira letra da palavra- 
chave é acrescentado à primeira letra da 
mensagem; a segunda letra da palavra- 
chave é adicionada à segunda da men- 
sagem, e assim por diante. Quando o 
fim da palavra-código é encontrado, o 
ciclo recomeça. 

Se o resultado de algumas das adições 
for maior do que 90 (o que significa que 
a letra correspondente ficará situada 
além do Z), devemos subtrair 26, de mo- 
do a trazer o caractere para dentro do 
alfabeto. Os números são manipulados 
separadamente nas linhas 150 a 180 pa- 
ra manter o código entre 48 e 57, que 
corresponde a 0 e 9. 

O programa decodificador é muito 
semelhante ao primeiro, diferindo ape- 
nas em alguns sinais + e — que foram 
mudados, além de certos valores. Os nú: 
meros das linhas não coincidem; assim E 


CHRS (F) 
PRINT “A mensagem 


PRINT CDS 











pode-se usar o programa combinado 
com o anterior. Algumas linhas foram 
colocadas de modo que se possa esco- 
lher entre codificar e decodificar uma 
mensagem 

Se você está familiarizado com os co- 
mandos de remuneração e edição de li 
nhas do seu computador, tente usá-los 
para transformar o programa anterior 
no programa que apresentamos agora 
Depois, junte-os (MERGE). 


12 INPUT "(C)ODIFICAR OU (D)E 
CODIFICAR?"; LINE A$ 

14 IF AS="D” THEN GOTO 400 
16 IF AS<>"C” THEN СОТО 12 
400 CLS 

410 INPUT "QUAL E A SENHA? "; 
LINE C$ 

420 PRINT "INTRODUZA A MENSAGE 
M CODIFICADA ” 

430 INPUT LINE M$ 

440 LET CP=CP+1: IF CP>LEN CS 
THEN LET CP=1 

450 LET P Mtl 

460 IF PM>LEN MS THEN GOTO 
580 

470 LET F$=M$ (PM) 

480 IF FS<"A” OR F$>"Z” THEN 
бото 530 

490 LET F=CODE FS-CODE CS(CP)+ 
65 

500 IF F<65 THEN LET F=F+26 
510 LET D$=DS+CHRS F 

520 GOTO 440 

530 IF F$<”"0" OR FS>"9” THEN 
LET DS=DS+F$: GOTO 450 

540 LET F=CODE F$-CODE CS(CP)+ 
48 

550 IF F<48 THEN F=F+10 
GOTO 550 

560 LET D$-D$*CHR$ F 

570 GOTO 440 

580 PRINT '"A MENSAGEM DECODIF 
ICADA E " 

590 PRINT 'D$ 

600 STOP 


12 INPUT (C)ODIFICAR OU (D)ECOD 
IFICARPRINT;AS 

14 IF AS="D” THEN GOTO 400 

16 IF AS<>"C” THEN GOTO 12 

400 CLS 

410 LINEINPUT"QUAL E A SENHA?” ; 
cs 

420 PRINT"INTRODUZA A MENSAGEM 
CODIFICADA” 

430 LINEINPUT М55 

440 CP=CP+1:IF CP>LEN(CS) THEN 
CP-1 

450 PM=PM+1 

460 IF PM>LEN(MSS) THEN 580 

470 F$=MIDS (MSS,PM,1) 

480 IF FS<"A” OR FS>”Z" THEN 53 
[] 

490 F*ASC(FS$)-ASC(MIDS (CS$,CP,1) 
)*65 

500 IF F<65 THEN F=F+26 





510 CD$=CDS+CHRS (F) 

520 GOTO 440 

530 IF FS<”0” OR F$>"9” THEN CD 
$*CD$*F$:GOTO 450 

540 F=ASC(FS)-ASC(MIDS (C$,CP,1) 
)+48 

550 IF F<48 THEN F=F+10:GOTO 55 
0 


560 CD$-CD$*CHR$(F) 

570 GOTO 440 

580 PRINT"A MENSAGEM DECODIFICA 
DA E: " 

590 PRINT:PRINT CDS 

600 END 


[#15] 


12 INPUT "[C]odificar ou [D]ec 
odificar ";A$ 

14 IF AS = "D” THEN 410 

16 IF A$ < "С" ТНЕМ 12 

400 НОМЕ 

410 INPUT "Palavra chave? 5 


420 PRINT "Digite a mensagem:” 


430 INPUT MSS 

440 CP = CP + 1: IF CP > LEN ( 
CS) THEN CP = 1 

450 РМ = РМ + 1 

460 IF PM > ГЕМ (М55) THEN 58 
0 

470 F$ = MIDS (MSS,PM,1) 

480 IF F$ < "A” OR F$ > "2" ТН 
EN 530 

490 F = ASC (F$) - ASC ( MID$ 
(CS,CP,1)) + 65 

500 IF F < 65 THEN F = F + 26 
510 CDS = CDS + CHR$ (F) 

520 сото 440 

530 IF FS < "0” OR FS > "9” TH 
EN CDS = CDS + FS: GOTO 450 
540 F ASC (F$) - ASC ( MIDS 
(CS,CP,1)) + 48 

550 IF F < 48 THEN F = F + 10 
GoTo 550 

560 CDS = CDS + CHR$ (F) 

570 GOTO 440 

580 PRINT : PRINT "A mensagem 
decodificada e: " 

590 PRINT : PRINT CDS 

600 END 


nau 


12 INPUT” (C)odificar ou (D)ecod 
ificar? "¡AS 

14 IF AS-"D"THEN400 

16 IF AS<>"C"THEN12 

400 CLS 

410 LINEINPUT"Palavra de código 
? ";C$ 

420 PRINT"Digite a mensagem:" 
430 LINEINPUT MS$ 

440 CP=CP+1:IFCP>LEN (CS) THENCP= 
1 

450 PM=PM+1 

460 IFPM>LEN(MSS) THENS80 

470 FS=MIDS(MSS,PM,1) 

480 IFFS<"A"ORFS>"Z"THENS30 
490 F=ASC(F$)-ASC(MIDS(CS,CK,1) 














)*65 
500 
510 
520 
530 
ЖЕЗ 
540 
)+48 

550 IFF<48THENF=F+10:GOTO550 
560 CDS=CDS+CHRS (F) 

570 GOTO440 

580 PRINT:PRINT^A mensagem deco 
dificada é:" 

590 PRINT:PRINTCDS 

600 END 


Se vocé quer que o seu código seja 
realmente indecifrável, codifique a men- 
sagem usando uma segunda palavra- 
chave. Desse modo, ele se tornará à pro- 
va de espiões. Mas tenha o cuidado de 
não trocar a ordem das duas palavras- 
chave na hora de decodificar. Do con- 
trário, você poderá causar uma confu- 
são monumental, 


COMPARAÇÕES 


Uma das funções mais importantes 
do código ASCII consiste em facilitar a 
comparação de palavras (veja página 
241 e seguintes). 

Essa operação é feita letra por letra 
pelo computador. 

Suponhamos, por exemplo, que se 
queira comparar as palavras COSMO- 
NAUTA e COSMOPOLITA. O com- 
putador comecará confrontando os dois 
C; em seguida, ele passará sucessiva- 
mente para os dois O, os dois S, os dois 
M, os dois O, até chegar ao N e ao P. 

Vale lembrar que o que está sendo 
comparado não são posições alfabéticas 
arbitrárias, mas os códigos ASCII de ca- 
da caractere. 

Como P tem um valor ASCII maior 

que N, nesta comparação, a palavra 
COSMOPOLITA tem um valor maior 
do que a expressão COSMONAUTA. 
Note que nem a soma dos códigos nem 
o número de letras sáo levados em 
conta. 

Cada letra é comparada individual- 
mente com a sua correspondente (para 
um aprofundamento do tema, veja ou- 
tros exemplos de comparações de pala- 
vras e cordões no artigo Cadeia de Ca- 
racteres, página 241). 

A seguir, apresentamos alguns exem- 
plos de comparações de vários valores 
possíveis para A$ e B$, juntamente com 
os códigos ASCII envolvidos. É impor- 
tante comparar os valores do código de 
cada caractere aos pares: o primeiro ca- 
ractere de A$ com o primeiro de B$ e 
assim por diante, até o fim da palavra 
mais curta. 


IFF<65THENF=F+26 
CD$=CDS+CHRS (F) 

GoT0440 
IFF$<"0"ORFS$>"9"THENCD$=CDS 
:GOTO450 

F=ASC(FS)-ASC (MIDS (CS,CP,1) 


A$ ASCII B$ ASCII RELAÇÃO 


ABC 65,66,67 ABC 65,66,67 A$ = B$ 
ABD 65,66,68 ABCD 65,66,67 A$ >B$ 
ABD 65,66,68 ABCD 65,66,67 

A$< >B$ 

ABC 65,66,67 Abc 65,97,98 A$ < B$ 
COSMI 67,79,83 COSMO 67,79,83 


A$<B$ 
7М311119 
$1 36,49 581.0 36,49,46 А$<В% 


Note que no segundo e terceiro exem- 
plos é possível escrever a relação de vá- 
rias maneiras. No último exemplo, co- 
mo todos os caracteres são iguais, a pa- 
lavra mais longa é a de maior valor. 


VERIFIQUE AS ENTI 





А5 


As funções ASC e CODE funcionam 
apenas no primeiro caractere de uma va- 
riável alfanumérica. Assim, PRINT 
ASC (“BRASIL”) — ou PRINT CO- 
DE “BRASIL”, no Spectrum — mos- 
trará 65, o código de B. Isto é muito útil 
para se checar comandos INPUT do 
programa. Veja, por exemplo, o progra- 
ma anterior. A linha 12 pede que você 
digite um “С” para codificar, ou um 
“р” para decodificar. As duas linhas 
seguintes direcionam o programa da for- 
ma adequada. Mas, para evitar que o 
computador não aceite as entradas CO- 
DIFICAR ou DECODIFICAR, escritas 
por extenso, pode-se reescrever as linhas 
14 e 16 como se segue: 


анин S 01405] 


14 IF ASC(A$)-68 THEN GOTO 400 
16 IF ASC(AS)<>67 THEN GOTO 12 


14 IF CODE A$-68 THEN GOTO 
400 
16 IF CODE A$<>67 THEN СОТО 


)DIGOS DE CONTR! 


Alguns códigos ASCII nào tém ca- 
racteres associados. Quando vocé tecla 
«ENTER» ou « RETURN » o micro 
identifica o valor 13; mas, em vez de im- 
primir um caractere na tela, o cursor é 
colocado no início da linha seguinte; ou, 
como acontece no Spectrum, o progra- 
ma é listado. O código 13 é chamado de 
código de retorno do carro (Carriage 
Return; daí o « CR» dos modelos Ap- 
ple). Experimente colocar no computa- 
dor PRINT “A”; CHRS (13); “В”. О 
P será impresso na linha abaixo do 


Este programa permite ver os códi- 
gos de controle: 


10 PRINT CODE INKEYS 
20 GOTO 10 


тт 


5 AS=INKEYS:IF AS="" THEN 5 
10 PRINT ASC(AS) 
20 GoTO 10 


[ф [d] 


5 GET A$ 
10 PRINT ASC (AS) 
20 GOTO 5 


Tente teclar <ENTER> ou <ESC> 
ou pressionar a tecla de retrocesso, ou 
qualquer outra do teclado, sozinha ou 
simultaneamente com <SHIFT> ou 
<CTRL>, e vá descobrindo os códigos 
que seu micro utiliza. 

Alguns computadores usam mais es- 
ses códigos do que outros. Afinal, exis- 
tem muitos números disponíveis entre O 
e 31 e alguns acima de 90. Tais códigos 
foram originalmente definidos quando 
os computadores trabalhavam apenas 
com as antigas impressoras. Atualmen- 
te, o computador é ligado a um televi- 
sor ou monitor de vídeo e muitos des- 
ses códigos tornaram-se obsoletos. 


O Spectrum teve muitos de seus an- 
tigos códigos redefinidos, de forma a 
trabalhar com a tela de TV. A instru- 
ção PAPER tem código 17 e INK, 16. 
Assim, para escrever a palavra * “ТІТУ- 
LO” em vermelho sobre fundo verde, 
é preciso digitar o seguinte: 

10 LET AS=CHR$ 17+CHRS 4+CHRS 
l6*CHRS 2*"TITULO" 
20 PRINT A$ 

Usado muitas vezes em um progra- 
ma, esse cabeçalho precisa ser definido 
apenas uma vez. Sempre que se quiser 
usá-lo basta digitar PRINT А8. 


[é] 


O Apple também usa caracteres de 
controle, tanto a nível operacional co- 
mo a nível de programas. Assim, você 
deve conhecer muito bem o CTRL-S, o 
CTRL-C ou o CTRL-D. Nesse compu- 
tador, os códigos dos caracteres de con- 
trole de CTRL-A até CTRL-Z ocupam 
os números de 1 a 26. Desta forma, 
CHR$ (1) equivale a CTRL-A; CHR$ 
(2), a CTRL-B, etc. 

















Muito úteis para uma série de truques 
de programação, os códigos 

de controle ocupam o espaço que vai 
de 0 a 31 no código ASCII. 

Aprenda a usá-los nos micros MSX. 


Os códigos de controle correspon- 
dem, na maioria dos microcomputado- 
res, aos números entre 0 e 31 no siste- 
ma ASCII, e servem para realizar uma 
série de funções relacionadas principal- 
mente com o controle do vídeo. Em ar- 
tigos anteriores desta série, mostramos 
como os diferentes fabricantes de micros 
aproveitam a faixa de códigos de 0 a 31 
para implementar essas funções de con- 
trole. Ao contrário do espaço de códi- 
go ASCII que vai de 32 em diante, não 
há nessa faixa qualquer padronização 
entre os diversos modelos de computa- 
dores. Vejamos agora como os usuários 
de micros da linha MSX podem explo- 
rar os seus códigos de controle. 


A FUNCÀ0 CHR$ 


Embora o MSX disponha de uma te- 
cla <CONTROL>, que serve para ge- 
rar os códigos de 0 a 31 (por exemplo, 
pressionando-se as teclas <CON- 
TROL> e <A> simultaneamente 
obtém-se o código 1), um programa BA- 
SIC só pode acionar os códigos de con- 
trole por intermédio da função CHR$ 
(abreviatura de character). Essa função 
permite converter um código numérico 
inteiro entre O e 255 em seu caractere 
correspondente. Por exemplo, PRINT 
CHRS (65) escreverá na tela a letra A. 

Usando o PRINT CHRS$ dessa for- 
ma, podemos controlar diversas funções 
do vídeo, por meio dos códigos de O a 
31. A seguir, apresentamos os códigos 
que proporcionam os efeitos mais inte- 
ressantes no MSX: 

1 - determina caractere gráfico 

7 - aciona o alarma sonoro 

8 - apaga o caractere antes do cursor 
9 - tabula 
10 - pula uma linha (LINEFEED) 
11 - coloca o cursor na posição 1,1 
(HOME) 








12 - equivale ao CLS 
13 - retorno de carro (RETURN). 

Ao contrário dos códigos ASCII de 
32 em diante, a fungáo CHR$ associa- 
da aos códigos de 0 a 31 nào imprime 
qualquer caractere visível na tela, cau- 
sando apenas um efeito imediato. 

O programa a seguir mostra uma 
aplicação interessante dos códigos de 
controle. Ele está estruturado de tal mo- 
do que, toda vez que uma mensagem de 
erro for mostrada na tela, o computa- 
dor acionará o alarma sonoro interno 
(bipe) e pulará uma linha em branco an- 
tes da mensagem. Em vez de repetir a 
mesma seqiiéncia de comandos para ca- 
da mensagem de erro, definimos uma 
variável C$, que contém os códigos 7 e 
10. Depois, basta usar o PRINT da 
mensagem, precedendo-a com essa va- 
riável. 


1» CS7CHR$ (10) «CHR$ (7) &"*** ERR 


20 CLS:PRINT "Cálculo da raiz q 
uadrada" 

30 PRINT 

35 x$-7" 

40 LINE INPUT 
"XS 

45 IF X$-"" THEN END 

50 X=VAL (X$) 

60 IF X=0 THEN PRINT C$;"Entrad 
a deve ser um número” :GOTO 40 
70 IF X«0 THEN PRINT C$;"Numero 
deve ser maior do que zero":GO 
TO 40 

80 PRINT 

90 PRINT "A raiz quadrada de";X 
;"é igual a";SQR(X) 

100 PRINT 

110 GOTO 40 


|0 РА$$ЕАН РЕ1О \ЇШЕО 


Outra aplicação interessante dos có- 
digos de controle é a manipulação do 
cursor de texto. Assim, os códigos 28 a 
31 movimentam o cursor da seguinte 
maneira: 


"ENTRE UM NUMERO: 


28 - move o cursor para a direita 
29 - move o cursor para a esquerda 
30 - move o cursor para cima 

31 - move o cursor para baixo. 


Um pequeno programa, que ilustra 
bem o uso destes códigos é mostrado a 
seguir: 








O QUE SÃO OS CÓDIGOS 
DE CONTROLE 

COMO UTILIZÁ-LOS 

EM PROGRAMAS BASIC 
MENSAGENS COM SONS 











5 CLS 

10 LOCATE 10,15 

20 FOR I=1 TO 1000 

30 R=INT(RND(1)*4) 

35 PRINT CHR$(28+R) ;".”;CHRS (29 
di 

40 NEXT 1 


Este é um curtíssimo exemplo do cha- 
mado ““passeio aleatório em duas di- 
mensóes'*'. Com a execução do progra- 
ma, O cursor passará a se deslocar pela 
tela nas quatro direções possíveis. 

As linhas 5 e 10 limpam a tela e co- 
locam o cursor em seu centro. O laço 
que vai das linhas 20 a 40 coloca 1 000 
pontos aleatoriamente na tela. A linha 
30 sorteia um número entre 0 e 3. A li- 
nha 35 movimenta o cursor com a aju- 
da da função CHR$(28 + R) (que gera 
um número entre 28 e 31), imprime um 
ponto e recua o cursor de novo com a 
função CHR$(29). 


A TECLA DE CONTI 





Como foi explicado, a tecla < CON- 
TROL> serve apenas para acionar os 
códigos de controle diretamente a par- 
tir do teclado (ou seja, não é possível 
“enxertar” códigos de controle dentro 
de mensagens entre aspas, como é feito 
com os micros da linha Apple). Por ou- 
tro lado, diversas teclas já existentes no 
MSX para limpeza de tela, controle do 
cursor, etc. são duplicadas por uma com- 
binação de <CONTROL > com outra 
tecla. Por exemplo, <CONTROL> 
<I> avança uma posição de tabulação 
na tela, e equivale à tecla <TAB>. 

Entretanto, algumas funções — co- 
mo o apagamento total ou parcial de 
uma linha, o avanço do cursor até a pa- 
lavra seguinte, etc. — não têm teclas 
correspondentes, e podem ser usadas 
com vantagem na edição de programas. 

Para gerar um código de controle por 
meio da tecla <CONTROL>, basta 
lembrar-se da seguinte relação: o códi- 
go 1 corresponde à letra' A, o código 2 
corresponde à letra B, e assim por dian- 
te. Por exemplo, para fazer o cursor des- 
cer uma linha (caractere de controle cha- 
mado LINEFEED, LF, ou ““alimenta- 
ção de linha”), basta pressionar conjun- 
tamente as teclas « CONTROL» e J. 













IRADO E 108 0 08 nanda Rama DEVO OS 15 TE 
UM JOGO Pratique tiro ao alvo, caçando patos 
« no computador. Mas, na vida 


real, respeite o direito dos bichinhos 
DE TIRO AO PATO | 55 
saborear os doces frutos da liberdade. 


Se você leu o artigo anterior de Pro- 144;CHR$ 145;AT dy+1,dx;CHR$ 
gramação de Jogos, já deve ter grava- 146;CHRS 147 
do em fita o programa que movimenta 420 NEXT n 
uma alça de mira pela tela com auxílio 430 IF s>hs THEN LET hs=s 
do joystick. No entanto, embora sejain- 440 PRINT OVER 0; PAPER 3;AT 
teressante ver como se faz isso em BA- 0,8;в;АТ 0,23;hs 


SIC, o programa não terá muito senti- 450 PRINT OVER 0; PAPER 3; 
RR Da ao senti- pLASH 1;AT 10,2;"QUALQUER TECL 


Agora, mostraremos como incluir a o КАСАС а. NEXT n 


sub-rotina de controle do joystick em 470 IF INKEYS="" THEN GOTO 
programas de jogos. Isso é feito acres- 470 
Eniac o Ee ao programa original os 480 CLS : GOTO 125 
subprogramas apresentados a seguir. Ë Қ 
Белі forma, AREA um jogo de ti- As linhas 120, 125 e 135 cuidam da 
ro ao pato. contagem de pontos. Como o jogo ape- 
Um de cada vez, dez patos aparece- "as começou, O recorde do momento é 
rào por um breve momento na tela. O 7670; ele é mostrado junto com o score. 
objetivo do jogo é alvejá-los antes que A variável i, de entrada do joystick, 
eles desapareçam. A contagem de pon- também torna-se zero. 
tos depende da velocidade e da ponta- 
ria do jogador; a cada tiro perdido são 
descontados alguns pontos. A esse des- 
conto daremos o nome de multa. 
Carregue ou digite o programa ante- 
rior no computador e acrescente as li- 
nhas a seguir (evidentemente, estas va- 
riarão de acordo com o tipo de compu- 
tador ao qual estão destinadas), 


Acrescente as próximas linhas ao pro- 
grama que movimenta o joystick. 


120 LET hs=0 

125 LET i-0: PRINT PAPER 2; 
INK 7;" SCORE";TAB 14;"RECORDE 
*;TAB 31;" " 

135 PRINT PAPER 3; OVER O;AT 
0,23;hs 

145 LET s=0 

150 РОЙ п=1 ТО 10 

160 LET dx=INT (RND*31) 

170 LET dy=INT (RND*20)+1 

180 PRINT INK 6;AT dy,dx;CHRS 
144;CHR$ 145;AT dy*l,dx;CHR$ 
146;CHR$ 147 

190 POKE 23672,0: POKE 23673,0 
205 PRINT OVER 0; PAPER 3;AT 
0,8;s;" " 

210 IF 1<>48 THEN GOTO 400 
220 IF ATTR (y,x)=14 AND ATTR 
(y+1,x+1)=14 THEN LET в=в+260 
-(PEEK 23672): SOUND .02,30: 
GOTO 410 

230 LET s-s-20: LET i-0 

400 IF PEEK 23572*256*PEEK 
23673<240 THEN GOTO 200 

410 PRINT INK 7;AT dy, dx; CHR$ 














































































Ш COMOUSARASUBROTINADE ІШ COMO SABER SE O BOTÃO DO 

CONTROLE DO JOYSTICK JOYSTICK FOI PRESSIONADO 
C O DESENHO DO PATO Mi COMO SABER SE O TIRO 
п MOSTRE OS PATOS NA TELA ATINGIU O ALVO 
п MARQUE O TEMPO B CONTE PONTOS E RECORDES 





O laço FOR... NEXT entre as linhas 
150 e 420 coloca na tela uma série de dez 
patos que o jogador tentará acertar. A 
cada volta do laço, as linhas 160 e 170 
escolhem uma nova posição para o pa- 
to. A linha 180 coloca a ave na tela, im- 
primindo os quatro caracteres (UDG) 
que formam o desenho. 

A linha 190 coloca o valor zero no 
contador de tempo. Este será usado pa- 
ra medir os segundos que o pato perma- 
necerá na tela. Quando esse tempo se es- 
gotar, o pato será desenhado em outra 
posição. 

Depois que o programa retornar da 
sub-rotina de controle do joystick, 
a linha 205 apagará o primeiro 
caractere do score. Esta é uma 
precaução para quando o score esti- 
ver diminuindo; assim, nenhuma parte 
do score anterior permanecerá na tela. 

O joystick do Atari tem um botão pa- 

ra atirar; quando acionado, esse botã: 
envia ao computador o caractere de có- 
digo 48. A linha 210 detecta o tiro, mas 
só com a mira parada. É possível veri- 
ficar se foi dado um tiro com a mira em 
movimento, mas isto ocuparia mais qua- 
tro comandos IF — um para cada dire- 
ção. Não é aconselhável fazer isso em 
BASIC porque diminuiríamos a veloci- 
dade do programa. 
Caso um tiro tenha sido disparado, 
o programa verificará se o pato foi atin- 
gido, usando ATTR na linha 220. 
ATTR verifica a cor de determinada 
porção da tela. Se a cor for a do pato, 
o tiro será considerado certeiro, e o jo- 
gador ganhará pontos. O cálculo desses 
pontos é baseado no tempo gasto pelo 
jogador para acertar o pato. Cada tiro 
bem-sucedido é anunciado por um bip 
do computador. 























Se ATTR não fornecer a cor do pa- 
10, о programa continuará na linha 230, 
onde uma multa de vinte pontos será 
subtraída do total, e o valor de i, igua- 
lado a zero para que a multa não seja 
cobrada novamente (o que só acontece- 
rá quando outro tiro for desperdiçado). 
A linha 400 verifica se o limite de tem- 
po foi ultrapassado, saltando para a li- 
nha 200, se isto ainda não tiver aconte- 
cido. Caso mais de cinco segundos te- 
nham se passado, a linha 410 fará o pa- 
to desaparecer. 

Depois que os dez patos forem colo- 
cados na tela, o programa alcançará a 





linha 430, que fará a comparação entre 
o score do jogador e o recorde atual, Se 
for o caso, o recorde será atualizado. O 
recorde e-o score são mostrados pela li- 
nha 440. O programa termina com a fra- 
se usual: “Qualquer tecla para re- 
começar”. 

O nível de dificuldade do jogo pode 
ser alterado modificando-se, na linha 
400, o limite de tempo que o jogador 
tem para acertar o pato. Valores com- 
patíveis para a conquista de pontos e pa- 
ra a multa devem ser colocados nas li- 
nhas 220 e 230. 


ТТА 





Não há programa de tiro ao pato pa- 
rao ZX-81, mas as modificações que se 
seguem permitirão que você movimen- 
te o monstro do programa da página 316 
usando o joystick. O botão do joystick 
provoca a inversão da tela (você deve 
usar a versão completa do programa). 


115 LET A=CODE AS 

120 IF A-33 AND X>0 THEN LET X= 
152 IF A-36 AND Х<28 THEN LET X 
140 ir A=35 AND Y>O THEN LET Y= 
150 IF A=34 AND Y<20 THEN LET Y 
rm A-28 THEN RAND USR 16606 











28 é o código enviado ao computador 
pelo botão do joystick. 


UN 


O programa do MSX é completado 
pelas seguintes linhas e modificações. 


10 SCREEN 1,2:KEY OFF:COLOR 15, 
1,10:R=RND(-TIME) 

20 FOR I=1 TO 64 

55 SPRITES (1) =RIGHTS (AS, 32, 

70 FOR I=4 TO 10 

80 VPOKE BASE (6)+1,15*16+1 

90 NEXT 

100 VPOKE BASE (6)+30,1*16+1 

105 УРОКЕ ВАЗЕ (6) +31,6*16+6 

110 CLS:STRIG(1) ON:SC=0 

120 GOSUB 4000 

130 FOR I=0 TO 32:VPOKE BASE(5) 
+1,255:NEXT 

140 FOR I=1 ТО 22:УРОКЕ ВАЗЕ(5) 
+31+1*32,255:UPOKE BASE (5)+32+1 
*32,255:NEXT 

150 FOR I=0 TO 31:VPOKE BASE(5) 
+234*32+1, 255: NEXT 

160 GOSUB 3000 

180 D=10 

190 TIME=0 

210 PUT SPRITE 1, (DX,DY),10 

220 ON STRIG GOSUB 2000,2000,20 
00,2000,2000:IF D<1 THEN 250 
230 IF TIME<500 THEN 200 

240 D-D-1:IF D»0 THEN GOSUB 300 
0:GOTO 190 

250 GOSUB 4000 

260 FOR 1=257 TO 286:VPOKE BASE 
(5) *1,245:NEXT 

280 LOCATE 1,2:PRINT 
R NOVAMENTE (S/N) ?" 
290 AS=INKEYS:IF AS<>"S” AND AS 
<>"N" THEN 290 

300 IF A$-"S" THEN 110 

310 SCREEN 0:COLOR 15,4,4:END 
2000 IF ABS(X-DX)>1 AND ABS(Y-D 
Y)>1 THEN 2070 

2010 PUT SPRITE 1,(DX,209) 

2020 PLAY "T25506CL32EG" 

2030 GOSUB 3000 

2040 SC-SC*550-TIME:GOSUB 4000 
2050 D=D-1:TIME=0 

2060 RETURN 

2070 PLAY "T25501DDE” 

2080 SC=SC-25:GOSUB 4000 

2090 RETURN 

3000 DX=INT (RND(1)*220+10) :DY=1 
NT (RND (1) *145*25) : RETURN 

4000 FOR 1=33 TO 62:VPOKE BASE( 
5)+1,245:NEXT 





"QUER JOGA 


4010 LOCATE 0,1:PRINT "SCORE:"; 
:LOCATE 7,1:PRINTSC; 

4020 IF SC>HI THEN HI=SC 

4030 LOCATE 14,1:PRINT "RECORDE 
:";:LOCATE 24,1:PRINT HI; 

4040 RETURN 

5000 DATA 3, 12, 16,32,3 
2, 64, 64 , 127 , 64 , 64 , 3 
2,32,16,12, 3, 0 , 224 





, 352 , 132 , 130 , 130 , 129 , 
129 , 255 , 129 , 129 , 130, 
130 , 132 , 152 , 224 , 0 

5010 DATA 14, 27, 127, 31, 15, 


31, 29, 30, 15, 3, 
+ 0, 0, 0, 0, 192, 11 
206, 30, 124, 248, 224, 
64, 224 


A linha 10 foi modificada para mu- 
dar as cores da tela e iniciar o gerador 
de números aleatórios. 

A linha 20 foi alterada para poder ler 
os dados adicionais da linha 5010. O 
sprite do pato é criado pela linha 55. 

As linhas 70 a 105 mudam a tabela 
de cores — BASE (6) — com o objetivo 
de alterar as cores dos caracteres. Isto 
não é essencial ao nosso programa, mas 
permitirá que você modifique os valo- 
res Pe T do comando VPOKE BASE 
(6) + 1, T* 16,P (P é a cor de fundo 
e T, a cor de frente). 

A linha 110 apaga a tela e liga a fun- 
ção STRIG (1) que permite a detecção 
de um tiro (ela também reduz o score a 
zero). Quando o botão de tiro do joys- 
tick 1 é pressionado, a função STRIG 
(N) ON desvia o curso do programa pa- 
ra o endereço do comando ON STRIG 
GOSUB. N determina o joystick: 1 e 3, 
joystick da direita; 2 e 4, joystick da es- 
querda. O número 0 permite à tecla de 
espaços disparar tiros. 

A linha 120 chama a sub-rotina 4000, 
que coloca o score e o recorde na tela, 

As linhas 130 a 150 desenham uma 
moldura vermelha, colocando na tela 
uma série de caracteres com VPOKE. A 
cor da moldura é determinada pela li- 
nha 105. 

A posigáo em que o pato vai apare- 
cer é escolhida ao acaso pela linha 160. 
As linhas 180 e 190 estabelecem as con- 
dições iniciais: dez patos na variável D, 
score zero e contador de tempo — TI- 
ME, uma variável interna do MSX — 





64, 








também igual a zero. 

A linha 210 desenha o pato. A linha 
220 diz ao programa para onde ir, caso 
o botão de tiro seja pressionado. São ne- 
cessários cinco endereços após ON 
STRIG para cobrir os valores de 0 a 4. 
Se, ao retornar da sub-rotina 2000, on- 
de é verificado se o tiro atingiu o alvo, 
não houver mais patos — ou seja, D<1 
— O programa irá para a linha 250. 

A linha 230 verifica se o tempo que 
cada pato pode ficar na tela foi ultra- 
passado. Se isto ainda não aconteceu, 
o programa voltará à linha 200. 

Caso o pato não seja atingido den- 
tro do prazo, a linha 240 diminuirá o nú- 
mero de aves. Se ainda houver patos, a 
nova posição será calculada pela sub- 
rotina 3000 e o programa voltará para 
a linha 190. 

Quando não houver mais patos, a li- 
nha 250 chamará a sub-rotina 4000, que 
mostrará o placar. 

A linha 280 faz então a velha pergun- 
ta: “Quer jogar novamente?” (a linha 
260 apaga a região onde é escrita a men- 
sagem). Caso a resposta seja afirmati- 
va, a linha 300 recomeçará o jogo. Ca- 
so seja negativa, a linha 310 terminará 
com ele. À linha 290 cuida das outras 
respostas. 

A sub-rotina 2000 verifica se o tiro 
dado acertou o pato. Na linha 2000, as 
condições ABS (X-DX)>1 e ABS (Y- 
DY)>1 dáo uma certa margem de erro 
à posição da mira. Se exigirmos que as 
coordenadas do pato — DX, DY — se- 
jam exatamente iguais às coordenadas 
da mira — X, Y —, o jogo ficará muito 
difícil. 

A linha 2010 faz com que o sprite do 
pato desapareça da tela, pois torna sua 
coordenada vertical igual a 209, Uma 
pequena melodia celebra o sucesso do 
jogador, na linha 2020. A linha 2030 
chama a sub-rotina 3000 que calcula 
uma nova posição para O pato. 

Os pontos a que o jogador fez jus são 
calculados pela linha 2040 com base no 
tempo que ele levou para acertar o pa- 
to. A sub-rotina 4000 mostra o novo 
placar. A linha 2050 reduz em 1 o nú- 
mero de patos e faz o contador de tem- 
po comegar novamente do 0. 














Caso o jogador erre o tiro, a linha 
2070 produzirá algumas notas dissonan- 
tes. Uma multa de 25 pontos será então 
cobrada e o placar, modificado e mos- 
trado ao jogador. 

A linha 3000 chamada como sub- 
rotina calcula ao acaso a nova posição 
do pato. 

A sub-rotina que começa na linha 
4000 mostra na tela o score, atualizan- 
do e exibindo o recorde. 

Os valores da linha 5010 contêm o 
padrão do sprite do pato. 

O nível de dificuldade do jogo pode 
ser modificado alterando-se o prazo 
que o jogador tem para acertar o pato. 
Isso é feito na linha 230. Acompanhan- 
do essa alteração, o cálculo dos pontos 
(na linha 2040) e da multa (na linha 
2080) deve sofrer modificações pro- 
porcionais. 


[é] 


Complete o programa anterior com 
* as linhas: 


60 HOME : HGR : SCALE= l: ROT= 
0:X = 130:Y = 90 

100 DX = INT ( RND (1) * 256): 
DY = INT ( RND (1) * 138) 

110 D = 10:SC = 0 

120 cv = 0 

210 HCOLOR- 3: GOSUB 700 

220 IF PEEK ( - 16287) > 127 
OR PEEK (16286) > 127 THEN GO 
SUB 1000: IF D « 1 THEN 250 

230 ІР СУ < 40 THEN 200 

240 D=D- 1: IF D > 0 THEN G 
OSUB 1500: GOTO 120 

250 : HOME : HTAB 5: VTAB 23: P 
RINT "SCORE - ";5С; 

260 IF SC > HI THEN HI = SC 
270 PRINT TAB( 20);"RECORDE ~ 
"ІНІ 

280 PRINT TAB( 5);"QUER JOGAR 
NOVAMENTE (S/N) ? " 





290 GET AS: IF AS < > "S” AND 
AS < > "N” THEN 290 

300 IF A$ - "S" THEN 60 

310 HOME : TEXT : END 

500 LX = X:LY = 

700 DRAW 1 AT DX,DY 

710 DRAW 2 AT DX,DY + 8 

720 DRAW 3 AT DX + 8,DY 

730 DRAW 4 AT DX + 8,DY + 8 


740 RETURN 





1000 IF ABS (X - DX - 4) > 8 
OR ABS (Y - DY - 4) > 8 THEN 1 
070 


1010 FOR I = 1 TO 20 

1020 P = PEEK ( - 16336): NEXT 
1030 GOSUB 1500 

1040 SC = SC + 50 - CU 

1050 D = D- 1:CV = O 

1060 RETURN 

1070 FOR I = 1 TO 3 

1080 P = PEEK ( - 16336): NEXT 
1090 5С = 5С - 5 

1100 RETURN 

1500 HCOLOR= 0: GOSUB 700 
1510 HCOLOR= 3: DRAW 5 AT X,Y 
1520 DX * INT ( RND (1) * 256) 
¿DY = INT ( RND (1) * 138) 


1530 RETURN 


O HOME da linha 60 foi acrescenta- 
do para que o placar pudesse ser mos- 
trado. A linha 110 calcula ao acaso uma 
posição para o pato. As linhas 120 e 130 
estabelecem condicóes iniciais para o 
nümero de patos (D), para o score (S) 
e para o contador de tempo (CV). 

A linha 210 desenha o pato. A linha 
220 verifica se o botào do joystick foi 
pressionado — neste caso, o valor de um 
dos enderecos dos comandos PEEK se 
torna maior que 127. Caso o programa 
nào funcione, o joystick pode vir a uti- 
lizar o endereço — 16285. 

A linha 230 verifica se o prazo que 
o jogador tem para acertar o pato se es- 
gotou, voltando para a linha 200, se is- 
to ainda não aconteceu. 

Caso um dos patos não tenha sido 
abatido dentro do limite de tempo, seu 
número diminuirá em um. Se ainda so- 
brarem patos, a sub-rotina 1500 dese- 
nhará um deles na tela e o jogo conti- 
nuará na linha 190. 

Se os dez patos já foram desenhados, 
o jogo terminará e o score será exibido 
na porção inferior do vídeo. A linha 260 
atualiza o recorde, que é impresso pela 
linha 270. Uma opção de jogar nova- 
mente é então oferecida ao jogador. 

A linha 500 foi modificada para in- 
cluir um contador de tempo. A sub- 
rotina 700 desenha ou apaga o pato da 
tela, conforme a definição de cor atual. 

As linhas de 1000 a 1100 verificam se 


o tiro foi certeiro. As condições do IF 
da linha 1000 permitem uma certa mar- 
gem de erro ao tiro. Se exigirmos que 
as coordenadas do pato coincidam com 
as da mira, o jogo se tornará muito difí- 
cil (lembre-se de que não conseguimos 
controlar totalmente o cursor em BA- 
SIC; além disso, a mira se move de oito 
em oito pontos). 

As linhas 1020 e 1030 produzem uma 
série de vinte “cliques"” no alto-falante, 
informando o sucesso do tiro. Um no- 
vo pato é gerado pela linha 1030. Os 
pontos ganhos são então calculados, 
com base no tempo gasto pelo jogador 
para abater a ave. O número de patos 
é diminuído e o contador de tempo vol- 
ta а zero. 

Se o tiro não atingir o pato, as linhas 
1070 e 1080 emitirão três “cliques” e 
qua multa de cinco pontos será cobra- 

а. 

A sub-rotina 1500 apaga o pato de 
sua antiga posição — linha 1500 — e de- 
senha a mira nesse lugar, calculando ao 
acaso uma nova posição. 

O nível de dificuldade do jogo pode 
ser alterado, modificando-se o limite de 
tempo na linha 230. A contagem de pon- 
tos e a multa devem ser alteradas pro- 
porcionalmente, nas linhas 1040 e 1090. 


[d] 


Para o TK-2000, acrescente as linhas 

válidas para o Apple, com as seguintes 
modificações: 
220 IF A = 46 OR À = 76 THEN 
GOSUB 1000: IF D < 1 THEN 250 
570 IF A - 46 OR A - 76 THEN 
RETURN 


Essas linhas verificam se um dos bo- 
tões de tiro do joystick da microdigital 
foi pressionado. 46 e 76 sào os códigos 
que os botóes de tiro enviam ao micro. 





Ao adicionar as próximas linhas, vo- 
cé terá o jogo completo. 
80 FOR K=1536 TO 2272 STEP 32 
90 READ A,B:POKE K,A:POKE K+1,B 
100 NEXT 


JN O 





110 
120 
150 
180 
190 
210 
ов 
220 IF (PEEK(65280)AND1)=0 GOSU 
B 2000:IF D<1 THEN 250 

230 IF TIMER<200 THEN 200 

240 D=D-1:IF D>0 GOSUB 3000:60Т 
0 190 

250 CLS:PRINT €139,"SCORE= 
260 IF SC>HI THEN HI-SC 
270 PRINT €234,"RECORDE=";HI 
280 PRINT 6389,"QUER RECOMECAR 
(S/N)?" 

290 AS=INKEY$S:IF AS<>"S” AND AS 


GET(0,0)-(13,11),D,G 
GET(0,12)-(13,23),H,G 
DX=RND (239)+1:DY=RND(178)+1 
D=10:8C=0 

TIMER=0 

PUT (DX, DY) - (DX*13, DY*11) ,D, 


¡sc 


€«»"N" THEN 290 

300 IF A$-"S" THEN 130 

310 END 

2000 IF PPOINT(X,Y)*1 THEN 2070 
2010 PUT(X-6,Y-5)-(X*7, Y*5) , H,P 
SET 

2020 PLAY "T5004CEEEG" 

2030 GOSUB 3000 

2040 SC-SC*250-TIMER 


2050 
2060 
2070 
2080 
2090 
3000 
,PSET 
3010 PUT(X-8,Y-5)-(X*9,Y*5),8,P 
SET 

3020 DX=RND(239)+1:DY=RND(178)+ 
1:RETURN 

4020 DATA 4,0,25,0,149,0,21,0,5 
,0,5,64,5,80,21,148,22,148,22,8 
4,21,84,5,80 

4030 DATA 48,48,0,0,195,12,51,4 
8,15,192,51,48,204,204,15,192,5 
1,48,192,12,0,0,51,48 


D=D-1:TIMER=0 

RETURN 

PLAY "T25001DDE” 

SC-SC-10 

RETURN 

PUT (DX, DY) - (DX*13, DY*11),B 


Dois desenhos estão contidos nas li- 
nhas DATA 4020 e 4030: o pato e o que 
restou dele após ser atingido pelo tiro. 
Os números são lidos e colocados na tela 
pelas linhas 80 a 100 com auxílio de co- 
mandos POKE. Dois comandos GET 
são usados para colocar o pato na ma- 
triz D e o efeito do tiro em H. 

A linha 150 seleciona ao acaso uma 
posição para o pato, enquanto a linha 
210 utiliza os valores de DX e DY para 
desenhá-lo na tela. 

Os valores iniciais do número de pa- 





tos, do score e do contador de tempo são 
estabelecidos pelas linhas 180 e 190. 

Os tiros são detectados pela linha 
220. Se o botão da direita for pressio- 
nado, o bit O do endereço 65280 da me- 
mória mudará de 1 para 0; se o botão 
pressionado for o da esquerda, o bit mu- 
dará de O para 1. A linha 220 mostra co- 
mo verificar essas mudanças em 65280. 
Se utilizarmos os comandos PEEK e 
ANDI e pressionarmos o botão da di- 
reita, teremos o valor zero. PEEK e 
AND? verificam o botão da esquerda. 
Tal como está, a linha 220 se refere ao 
botão da direita. Se ele for pressionado, 
o programa será desviado para a sub- 
rotina 2000, que verificará se o tiro acer- 
tou o alvo. 

A parte final da linha 220 averigua 
se os dez patos já foram desenhados; se 
a resposta for positiva, o programa irá 
para a linha 250. 

Uma vez pressionado o botão do 
joystick, a linha 2000 verifica a cor do 
ponto que está no centro da mira. Se a 
função PPOINT sugerir que a cor é ver- 
de, isso significa que o jogador errou o 
alvo, e o programa irá para a linha 2070, 
que produzirá um som de erro. Uma 
multa de dez pontos será cobrada e a 
sub-rotina terminará na linha 2090. 

Se a cor no centro da mira não for 
verde, isso quer dizer que o tiro atingiu 
o alvo. Um desenho será colocado so- 
bre o pato, e se ouvirá um som de su- 
cesso. A seguir, é chamada a sub-rotina 
3000. Sua função é apagar o que restou 
do pato e desenhar a mira no mesmo lo- 
cal. A linha 3020 calcula ao acaso a no- 
va posição do pato. 

A linha 2040 calcula o score. Este de- 
pende do tempo levado para acertar o 
pato. O número de aves é diminuído de 
um a cada exemplar abatido e o conta- 
dor de tempo recomeça de zero. 

Após completar a sub-rotina, o pro- 
grama retorna à linha 230, onde é veri- 
ficado o prazo para o pato ser atingido. 
Se a variável TIMER for menor que 
200, o programa voltará à linha 200. Ca- 
so contrário, a linha 240 diminuirá o nú- 
mero de patos, verificando se sobrou al- 
gum. Em caso positivo, a sub-rotina 
3000 apagará a ave restante e a linha 
3020 desenhará um novo pato. 


Se os patos tiverem acabado, o score 
eo recorde serão mostrados pelas linhas 
250 a 270. Estas também atualizam o 
recorde. 

As linhas 280 a 310 oferecem ao jo- 
gador a possibilidade de jogar no- 
vamente. 





O que fazer para transformar o dese- 
nho do pato em um alvo diferente? 
A resposta depende do computador 
que estamos usando. Basicamente, de: 
vemos alterar as linhas DATA e, talvez, 


as linhas que colocam caracteres 
(UDG) na tela. 

O programa do Spectrum usa um 
conjunto de quatro UDG definidos nas 
linhas 1000 a 1030. Para conjuntos 
maiores, a linha 180, que coloca o de- 
senho na tela, usando PRINT, deve ser 
modificada. 

Usuários do MSX também precisa- 
ráo mudar as linhas DATA. Se usarem 
mais de um sprite, o tamanho do FOR 
da linha 20 deverá ser alterado e no; 
vos PUT SPRITE, acrescentados. É 
possível também que sejam necessá- 
rias algumas modificações nos coman- 
dos que contêm coordenadas. O pro- 
grama editor de sprites que fornecemos 
pode ser útil como ponto de referência. 

A chave da modificação das linhas 
DATA do Apple e do TK-2000 está no 
programa editor de tabelas de figuras. 
A sub-rotina 700 deve ser alterada em 
caso de modificação do tamanho da fi- 
gura. Neste caso, todos os comandos 
que lidam com coordenadas devem ser 
igualmente alterados. 

Já no TRS-Color é muito simples 
criar caracteres UDG de qualquer tama- 
nho. Mude as linhas DATA e os 
FOR...NEXT que as lêem. Talvez seja 
necessário mudar também as coorde- 


nadas dos comandos PUT e GET. 














Adotado pela maioria dos países do a amas. 
mundo ocidental, o sistema mé: À seguir faz conversões 
cimal de pesos e medidas tem contribuí- 
do, desde o seu surgimento no século 
XVIII, para facilitar as relações comer- 
ciais e.o intercâmbio cultural entre o; 





































menu de opções aparecerá 

ente. A primeira delas (SAIR) 

'que vocé retorne ao BASIC, en- 

D as outras se referem aos tipos de 
des que podem ser convertidas. As 
as possíveis são: comprimento, 

à, volume, massa (ou peso), pressão 


nicos, e grande parte das mi 
e ferramentas em circulação ng 


As opções são precedidas por núme- 

os situados à sua esquerda. Para sele- 
cionar uma delas, pressione a tecla com 
o número correspondente. Para conver- 
ter, por exemplo, unidades de compri- 


Bae 


Ж 


Você tem dificuldade para descobrir 
quantas polegadas há em um 

metro ou quantos litros contém um 
galão? O programa conversor 

de INPUT resolve esse problema. 


mento, pressione a tecla **1'”, Náo im- 
porta, por enquanto, se a conversão se- 
rá do sistema métrico decimal para o sis- 
tema britânico ou vice-versa. 


QUAIS UNIDADES 


Depois de fazer sua escolha a respei- 
to do gênero de conversão, pressione a 
tecla com o número correspondente. O 
computador mostrará então um segun- 
do menu, que lhe permitirá definir a uni- 
dade a ser convertida. 

Assim, se você pressionou a tecla **1” 
para converter unidades de comprimen- 
Lo, tem agora uma lista de todas as uni- 
dades possíveis (polegadas, pés, milime- 
tros, centímetros, metros, etc.). Se qui- 
ser converter polegadas em unidades de- 
cimais, pressione ''1"* novamente edi: 
gite o número de polegadas Não se es- 
queça de teclar <ENTER> ou <RE- 
RN > depois disso. 





ENCONTRE AS RESPOSTAS 





O computador faz as conversões с а 
guir mostra os resultados em todas as 
nidades de um dos sistemas de medi- 
las (métrico decimal ou britânico), Des- 
forma, se você digitar um valor em 
olegadas, terá a resposta em milime- 
os, centimetros, metros e quilômetros. 
* Depois de mostrar todos os valores, 
omputador esperará até que uma te- 
la seja pressionada para prosseguir. Se 
а for <ENTER> ou <RETURN>, 

programa voltará a mostrar o menu 
incipal. Se você quiser continuar a 
lonverter o mesmo tipo de unidade, 
quer outra tecla o levará ao menu 
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е m CONVERSÃO DO SISTEMA ÁREA, PESO, COMPRIMENTO, 
————— MÉTRICO PARA O SISTEMA 
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VOLUME, PRESSÃO E 
TEMPERA 








MISTAS E FRAÇÕES 











Para interromper o programa, retor- 
ne ao menu principal e tecle **O'* para 
a opção SAIR. 


UNIDADES MISTAS 


É possível ainda que você precise con- 
verter o valor de uma medida britânica 
em que haja unidades e subunidades. 
Tomemos, por exemplo, dois pés e seis 
polegadas. Há duas maneiras de resol- 
ver o problema. 

O programa aceita números que não 
sejam inteiros; assim, se você souber 
quantas polegadas há em um pé, pode 
calcular a fração decimal corresponden- 
te e digitá-la no computador. Neste ca- 
so não há dificuldade, visto que seis po- 
legadas são exatamente meio pé. Assim, 
você digitaria 2.5. 

O segundo método (mais empregado 
no caso de frações de cálculo difícil) 
Eonsiste em converter o valor em duas 
Sapas Dessa forma, passe para O sis- 

e em DU lugar, o va- 
























" húmero não inteiro (9% do sistema 
- mal, calcule a fração conveniente e c 
- loque-a no computado: 4 


pe oue. v 


^6 7: Шы 


ETROS,39370,KILOMETROS 

40 FOR K*0 TO 6:READ A(K),AS(K) 
:NEXT 

50 DATA 1,POLEGADAS QUADRADAS, 1 
44,PES QUADRADOS, 6272640,ACRES, 
4.0145E9,MILHAS QUADRADAS, . 155, 
CENTIMETROS QUADRADOS, 1550,METR 
OS QUADRADOS,1.55E7,HECTARES 

60 FOR K=0 TO 6: у(к),У5(к) 
¿NEXT 

70 DATA 1,POLEGADAS CUBICAS,172 
8,PES CUBICOS,34.67,PINTAS,277. 
36,GALOES, .06102,CENTIMETROS CU 
BICOS,61.024,LITROS,61024,METRO 
8 CUBICOS 

80 FOR K=0 TO 5:READ M(K) MS (K) 
¿NEXT 

90 DATA 1,ONCAS,16,LIBRAS, 35840 
+ TON. INGLESAS, .03527,GRAMAS, 35 
.27,KILOGRAMAS,35270,TON. METRI 
cas 

100 FOR K=0 TO 4: READ P(K),PS( 
K) :NEXT 


AN 
| 






















110 DATA 1,PSI,51.73,MM HG,6895 
+N/METRO QUADRADO, . 0681, ATMOSFE 
RAS,68.95,MILIBARES 

QUAL CATEGOR 


120 CLS:PRINT" 

IA (0-6)?" 

130 PRINT 672,"0- SAIDA":PRINT 
€136,"1- COMPRIMENTO” : PRINT 820 
0,”2- AREA”:PRINT €264,”3- VOLU 
ME”: PRINT €328,"4- PESO”:PRINT 
6$392,"5- PRESSAO":PRINT 6456,"6 
7 TEMPERATURA" 

140 AS=INKEYS:IF AS<"0” OR AS>” 
6" THEN 140 

150 IF AS="0” THEN CLS:END 

160 CLS:ON VAL(AS) GOSUB 1000,1 
500,2000,2500,3000,3500 

170 GOTO 120 

1000 PRINT €9,"comprimento”:PRI 
NT €34," SELECIONE UNIDADE ORIGI 
NAL”: FOR K=0 TO 7:PRINT €136+32 
*K,K*1;"- ";L$(K):NEXT 

1010 BS=INKEYS:IF BS<”1” OR BS> 
"8" ТНЕМ 1010 


| 
mind-——— 1 
| 4 
l 








1020 B=VAL(BS)-1:CLS:PRINT” INT 
RODUZA O NUMERO DE ";LS(B) 

1030 INPUT VL 

1040 CLS:PRINT UL;L$(B);” EQUIV 
ALEA” 

1050 IF B>3 THEN 1080 

1060 FOR K=0 TO 3:PRINT €96+K%6 
4,UL*L (B) /L(K*4) , L$ (K*4) : NEXT 
1070 GOTO 1090 

1080 FOR K=0 TO 3:PRINT €96+K*6 
4,VL*L (B) /L(K) , L$ (K) : NEXT 

1090 AS-INKEYS:IF A$-"" THEN 10 
90 


1100 IF AS-CHR$(13) THEN RETURN 
ELSE CLS:GOTO 1000 

1500 PRINT 613,"area":PRINT 835 
+ "SELECIONE UNIDADE ORIGINAL":F 
ов TO 6:PRINT 8131*32*K,K*1 
ұта AS (K) :NEXT 

1510 B$-INKEYS:IF B$«"1" OR BS> 
"7" THEN 1510 

1520 B=VAL (B$)-1:CLS:PRINT” INT 

RODUZA O NUMERO DE ";AS(B) 

1530 INPUT VL 

1540 CLS:PRINT VL;AS(B);” EQUIV 

ALEA” 

1550 IF B>3 THEN 1580 

1560 FOR K=0 TO 2:PRINT 896*K*6 

4,UL*A(B) /A(K+4) ,AS (K+4) :NEXT 
1570 GOTO 1590 

1580 FOR K=0 TO 3:PRINT €96+K*6 
4, VL*À (B) /A(K) , AS (K) :NEXT 

1590 AS=INKEYS:IF AS="" THEN 15 
90 

1600 IF AS=CHR$(13) THEN RETURN 
ELSE CLS:GOTO 1500 

2000 PRINT €12,"volume”: PRINT € 
35,"SELECIONE UNIDADE ORIGINAL” 
:FOR K=0 TO 6:PRINT €133+32*K,K 
*l;"- ";V$(K 
2010 BS=INKEYS:IF BS<"1” OR B$> 
"7" ТНЕМ 2010 

2020 B=VAL (B$)-1:CLS:PRINT” INT 
RODUZA O NUMERO DE ";VS(B) 

2030 INPUT VL 

2040 CLS:PRINT UL;V$(B);" EQUIV 

ALE A " 

2050 IF B>3 THEN 2080 

2060 FOR K=0 TO 2:PRINT €96+K*6 
4,VL*V (B) /V (K*4) , US (K*4) :NEXT 
2070 GOTO 2090 

2080 FOR K=0 TO 3:PRINT @96+К*6 
4,VL*V (B) /V(K) , V$ (K) :NEXT 

2090 AS-INKEYS:IF A$-"" THEN 20 
90 

2100 IF AS=CHR$(13) THEN RETURN 
ELSE CLS:GOTO 2000 

2500 PRINT €13,"peso”:PRINT €35 
+ "SELECIONE UNIDADE ORIGINAL” :F 
OR K=0 TO 5:PRINT €136+32*K,K+1 
¡"- "¡MS(K) :NEXT 

2510 B$=INKEYS:1F B$<"1” OR B$> 
"6" THEN 2510 

2520 B=VAL (B$)-1:CLS:PRINT” INT 
RODUZA O NUMERO DE ";M$(B) 

2530 INPUT VL 

2540 CLS:PRINT VL;M$(B);" EQUIV 
АЕА" 

2550 IF B>2 THEN 2580 

2560 FOR K-0 TO 2:PRINT 696*K*6 
4, VL*M(B) /M(K+3) , M3 (K*3) :NEXT 
2570 GOTO 2590 

2580 FOR K=0 TO 2:PRINT €96+K*6 











4, VL*M (B) /M(K) , M$ (K) : NEXT 

2590 AS=INKEYS:IF AS="" THEN 25 
90 

2600 IF AS=CHR$(13) THEN RETURN 
ELSE CLS:GOTO 2500 

3000 PRINT €11,"pressao”:PRINT 
€36,"SELECIONE UNIDADE ORIGINAL 
":FOR K-0 TO 4:PRINT 6134*32*K, 
K*l;"- ";P$(K):NEXT 


3010 BS=INKEYS:IF B$<”1" OR B$>' 


"5" ТНЕМ 3010 

3020 B=VAL(BS)-1:CLS:PRINT” INT 
RODUZA O NUMERO DE ";P$(B) 

3030 INPUT VL 

3040 CLS:PRINT VL;P$(B);" EQUIV 
ALE A” 

3050 T=0:FOR K=0 TO 4:IF K=B TH 
EN 3070 

3060 PRINT €96+T*64,UL*P (K) /P(B 
) ¿PS (K) :T=T+1 

3070 NEXT 

3080 AS=INKEYS:IF A$="" THEN 30 
0 


3090 IF AS=CHR$(13) THEN RETURN 
ELSE CLS:GOTO 3000 

3500 CLS:PRINT 610,"temperatura 
":PRINT 637,"SELECIONE CONVERSA 
O : ":PRINT" CENTIGRADOS PARA F 
AHRENHEIT (C) FAHRENHEIT PARA C 
ENTIGRADOS (F)" 

3510 B3=INKEYS:IF B$<>"C" AND B 
$<>"F” THEN 3510 

3520 IF B$-"C" THEN 3560 

3530 PRINT" INTRODUZA GRAUS FAH 
RENHEIT":INPUT VL 

3540 CLS:PRINT €33,UL;”GRAUS FA 
HRENHEIT EQUIVALEM A” 

3550 PRINT €97, (VL-32)*5/9;"GRA 
US CENTIGRADOS” :GOTO 3590 

3560 PRINT” INTRODUZA GRAUS CEN 
TIGRADOS” : INPUT VL 

3570 CLS:PRINT 833,UL;"GRAUS CE 
NTIGRADOS EQUIVALEM A" 

3580 PRINT €97,32+VL*9/5;"GRAUS 
FAHRENHEIT" 

3590 AS=INKEYS:IF AS="" THEN 35 
90 

3600 IF AS=CHR$(13) THEN RETURN 
ELSE CLS:GOTO 3500 


5 POKE 23658,8 

10 DIM L(8): DIM L$(8,12): 
DIM A(7): DIM A$(7,16): DIM V 
(7): DIM V$(7,16): DIM M(6): 
DIM V(7): DIM U$(7,12): DIM M 
(6): DIM M$(6,12): DIM P(5): 
DIM P$(5,17) 

20 FOR K=1 ТО 8: READ L(K),L$ 
(K): NEXT K 

30 DATA 1,"POLEGADAS”,12,"PES 
”,36," JARDAS” ,63360,"MILHAS”, 
«03937, "MILIMETROS”,.3937,"CE 
NTIMETROS",39.37,"METROS", 
39370, "QUILOMETROS" 

40 FOR K-1 TO 7: READ A(K),A$ 
(K): NEXT K 

50 DATA 1,”POL.QUADRADAS” ,144 
,"PES QUADRADOS",6272540,"ACR 
ES",4.0145E9,"MILHAS QUADRADA 
8",.155,"CENT.QUADRADOS" , 
1550,"METROS QUADRADOS", 


1.55E7,"HECTARES" 

60 FOR K=1 TO 7: READ V(K),U$ 
(K): NEXT K 

70 DATA l,"POL.CUBICAS",1728, 
"PES CUBICOS",34.67,"PINTS", 
277.36,"GALOES",.06102,"CENT. 
CUBICOS",61.024,"LITROS", 
61024,"METROS CUBICOS" 

80 FOR K=1 TO 6: READ M(K),MS 
(K): NEXT K 

90 DATA 1,"ONCAS”,16,"LIBRAS” 
, 35840, "TON. INGLESAS”, . 03527, 
"GRAMAS", 35.27, "QUILOGRAMAS", 
35270," TON.METRICAS” 

100 FOR K=1 TO 5: READ P(K),PS 

(K): NEXT K 

110 DATA l,"LIBRA/POL.QUADR.", 

51.73,"mmHG",6895,"N/METRO QUA 

DR.",.0681,"ATMOSFERAS",68.95, 

"MILIBARES" 

120 CLS : PRINT 

TAB 5;"QUE CATEGORIA 

;TAB 31;" " 

130 PRINT AT 6,8;"0- SAIDA";AT 
8;"1- COMPRIMENTO";AT 10,8;" 

2- AREA";AT 12,8;"3- VOLUME"; 

AT 14,8;"4- PESO";AT 16,8;"5- 

PRESSAO";AT 18,8;"6- TEMPERATU 

RA” 

140 LET Z$-INKEY$: IF Z$«"0" 

OR Z$»"6" THEN СОТО 140 


150 IF Z$-"0" THEN CLS : 
STOP 
160 CLS 
)*500 
170 GOTO 120 

1000 PRINT INVERSE 1;AT 0,12;" 
COMPRIMENTO ": PRINT AT 2,6;"5 
ELECIONE UNIDADE ORIGINAL”: PRI 
NT : FOR K-1 TO 8: PRINT 'TAB 1 
0;K;"- ";L$(K): NEXT K 

1010 LET B$-INKEY$: IF B$«"l" O 
R B$»"8" THEN GOTO 1010 

1020 LET B=VAL B$: INPUT "INTRO 
DUZA NUMERO DE "; (LS(B)),VL 
1040 CLS : PRINT AT 2,4;UL;" "; 
L$(B);" EQUIVALE A " 

1050 IF B>4 THEN GOTO 1080 
1060 FOR K-1 TO 4: PRINT AT K*2 
*4,3;VL*L (B) /L(K*4) ; TAB 18;L$(K 
*4): NEXT K 

1070 60Т0 1090 

1080 FOR K-1 TO 4: PRINT AT K*2 
*4,3;UL*L(B)/L(K) ; TAB 18;L$(K): 
NEXT K 

1090 LET Z$-INKEY$: IF Z$-"" TH 
EN GOTO 1090 

1100 IF Z$-CHR$ 13 THEN RETURN 
1110 CLS : GOTO 1000 

1500 PRINT INVERSE l;AT 0,13;" 
AREA ": PRINT AT 2,6;"SELECION 
E UNIDADE ORIGINAL": PRINT РО 
R K-“1 TO 7: PRINT "TAB 10;K;"- 
";AS(K): NEXT К 

1510 LET B$-INKEY$: IF В9<71" О 
R B$»"7" THEN GOTO 1510 

1520 LET B-VAL B$: INPUT "INTRO 
DUZA O NUMERO DE "; (AS(B)),VL 
1540 CLS : PRINT AT 2,4;VL;" "; 
AS(B);" EQUIVALE A " 

1550 IF B>4 THEN GOTO 1580 
1560 FOR K-1 TO 3: PRINT AT K*2 


INVERSE 1;'' 
(0 А 6)?" 


: GOSUB 1000+(VAL Z$-1 
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pt/0:56 litre 














L 

44,3; VL*A(B)/A(K*4);TAB 18;AS(K 2100 IF ZS-CHR$ 13 THEN RETURN 3010 LET BS=INKEYS: IF BS<"1" O 
*4): NEXT K 2110 CLS : GOTO 2000 R B$>"5" THEN GOTO 3010 

1570 GOTO 1590 2500 PRINT ІМУЕНБЕ 1;АТ 0,13;" 3020 LET B=VAL В INPUT “INTRO 





1580 FOR K-1 TO 4: PRINT AT K*2 PESO ": PRINT AT 2,6;"SELECION DUZA O NUMERO DE "; (PS(B)),VL 


*4,3;VL*A(B) ;TAB 18;AS(K): NEXT E UNIDADE ORIGINAL PRINT : FO 3040 CLS : PRINT AT 2,4;VL;" "; 








[4 В К-1 ТО 6: PRINT 'TAB 10;K;"-  PS(B);” EQUIVALE A " 

1590 LET ZS=INKEYS: IF Z$-"" TH  ";M$(K): NEXT K 3050 LET Т-0: FOR K=1 TO 5: IF 
EN GOTO 1590 2510 LET BS-INKEYS: IF B$«"1" O K-B THEN GOTO 3070 

1600 IF Z$-CHR$ 13 THEN RETURN  R B$»"6" THEN СОТО 2510 3060 PRINT AT K*2*4,3;VL*P(K)/P 
1610 CLS : GOTO 1500 2520 LET B-VAL B$: INPUT "INTRO  (B);TAB 18;P$(K): LET T=T+ 
2000 PRINT INVERSE l;AT 0,12;"  DUZA O NUMERO DE "; (M$(B)),VL 3070 NEXT K 

VOLUME ": PRINT AT 2, SELECI 2540 CLS : PRINT AT 2,4;UL;" "; 3080 LET Z$-INKEYS: IF Z$-"" TH 
ONE UNIDADE ORIGINAL": PRINT : M$(B);" EQUIVALE A " EN GOTO 3080 

FOR Kel TO 7: PRINT 'TAB 10;K;” 2550 IF B>3 THEN GOTO 2580 3090 IF Z$-CHR$ 13 THEN RETURN 
- ";U$(K): NEXT K 2560 FOR K-1 TO 3: PRINT AT K*2 

2010 LET BS-INKEYS: IF B$<”1” 0  *4,3;VL*M(B)/M(K*3);TAB 18;M$(K 3100 CLS : GOTO 3000 

R B$>"7” THEN GOTO 2010 +3): NEXT K 3500 PRINT INVERSE l;AT 0,9;" 
2020 LET B-VAL B$: INPUT "INTRO 2570 СОТО 2590 TEMPERATURA ": PRINT AT 3,ll;"C 
DUZA O NUMERO DE "; (V$(B)).VL 2580 FOR K-1 TO 3: PRINT AT K*2  ONVERSAO:": PRINT '" CENTIGRADO 
2040 CLS : PRINT AT 2,4;UL;" ";  *4,3;VL*M(B)/M(K) ;TAB 18;MS(K): РАВА FAHRENHEIT (C)  FAHRENHEI 
V$(B);" EQUIVALE A " NEXT K T PARA CENTIGRADO (F)" 

2050 IF B>4 THEN GOTO 2080 2590 LET ZS-INKEYS: IF Z$-"" TH 3510 LET BS=INKEYS: IF BS<>"C" 
2060 FOR K-1 TO 3: PRINT AT K*2 EN GOTO 2590 AND B$<>"F” THEN СОТО 3510 
+4,3;VL*V(B) /V(K+4); TAB 18;У9(К 2600 IF ZS-CHR$ 13 THEN RETURN 3520 IF B$="C” THEN GOTO 3560 
+4): NEXT K 3530 INPUT "INTRODUZA GRAUS FAH 
2070 GOTO 2090 2610 CLS : GOTO 2500 RENHEIT",VL 

2080 FOR K-1 TO 4: PRINT AT K*2 3000 PRINT INVERSE l;AT 0,11;" 3540 CLS : PRINT AT 1,2;UL;" GR 
*4,3;VL*V(B)/V(K) ; TAB 18;V$(K): PRESSAO ": PRINT AT 2,6;"SELEC AUS FAHRENHEIT EQUIVALEM A ^ 
NEXT K IONE UNIDADE ORIGINAL": PRINT : 3550 PRINT 'TAB 2; (VL-32)*5/9;" 
2090 LET ZS-INKEYS: IF Z$-"" ТН РОВ К-1 TO 5: PRINT 'TAB 10;K; GRAUS CENTIGRADOS ": GOTO 3590 


EN GOTO 2090 "- ";P$(K): NEXT K 3560 INPUT "INTRODUZA GRAUS CEN 
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3% 


TIGRADOS",VL 

3570 CLS PRINT AT 1,2;VL;" GR 
AUS CENTIGRADOS EQUIVALEM A " 
3580 PRINT 'TAB 2;32*UL*9/5;" G 
RAUS FAHRENHEIT" 

3590 PAUSE 0: LET 25-ІМКЕҮ5: ІР 
Z$-"" THEN GOTO 3590 

3600 IF Z$-CHR$ 13 THEN RETURN 
3610 CLS бото 3500 


10 DIM L(7),LS(7),A(6) ,AS(6),V 
(6) ,U$(6) ,M(5) , M3 (5) , P(4) , PS (4) 


20 FOR K = 0 TO 7: 
$(K): NEXT 

30 DATA 1,POLEGADAS,12,PES,36 
+ JARDAS,63360,MILHAS, .03937,MIL 
IMETROS, . 3937, CENTIMETROS, 39.37 
+ METROS, 39370, KILOMETROS 

40 FOR K = 0 TO 6: READ A(K),A 
S(K): NEXT 

50 DATA 1,POLEGADAS QUADRADAS 
+144, PES QUADRADOS, 6272640,ACRE 
S,4.0145E9,MILHAS QUADRADAS, . 15 
5 

55 DATA CENTIMETROS QUADRADO 
S,1550,METROS QUADRADOS, 1.55E7, 
HECTARES 

60 FOR K = 0 TO 6: 
$(K): NEXT 

70 DATA 1,POLEGADAS CUBICAS,1 
728,PES CUBICOS,34.67,PINTAS, 27 
7.36,GALOES 

75 DATA .06102,CENTIMETROS CU 


READ L(K),L 


READ V(K),V 


BICOS,61.024,LITROS,61024,METRO 


S CUBICOS 

80 FOR K = 0 TO 5: 
$(K): NEXT 

90 DATA 1,ONCAS,16,LIBRAS,358 
40, TONS, .03527,GRAMAS, 35.27, KIL 
OGRAMAS, 35270, TONELADAS 

100 FOR K = 0 ТО 4: READ P(K), 
PS(K): NEXT 

110 DATA 1,LIBRAS/POL2,51.73, 
MMHG, 6895, NEWTONS/M2, . 0681, ATMO 
SFERAS,68.95,MILIBARES 

120 HOME HTAB 10: VTAB 5: PR 
INT "QUAL CATEGORIA? (0-6)" 

130 VTAB 10: HTAB 10: PRINT "0 
- SAIR”: HTAB 10: PRINT "1 - € 
OMPRIMENTO": HTAB 10: PRINT "2 
- AREA” 

140 HTAB 10: PRINT "3 - VOLUME 
^: HTAB 10: PRINT "4 - PESO": Н 
TAB 10: PRINT "5 - PRESSAO" 

150 HTAB 10: PRINT "6 - TEMPER 


READ M(K),M 


GET AS: IF AS < "0" 
THEN 160 


HOME : IF AS = 


OR AS 





"0" THEN E 


170 
ND 

180 
00,2000,2500,3000,3500 


ON VAL (AS) GOSUB 1000,15 


190 GOTO 120 

1000 INVERSE PRINT SPC( 39) 
і: НТАВ 14: PRINT “COMPRIMENTO” 
NORMAL 

1010 PRINT HTAB 5: PRINT 
COLHA A UNIDADE”: PRINT 
1020 FOR K - 0 TO 7: PRINT : H 





"ES 





TAB 5: PRINT K * 1;*- ";L$(K): 
NEXT 
1030 GET BS: IF B$ < 
> "B8" THEN 1030 

1040 B * VAL (B$) - 1: HOME 
PRINT "NUMERO DE ";L$(B);"?" 
1050 INPUT VL 

1060 HOME PRINT W! 

);L$(B);” EQUIVALEM A: 
1070 IF B > 3 THEN 1100 

1080 УТАВ 10: FOR K = 0 TO 3: 

PRINT : PRINT VL * L(B) / L(K * 
4);: HTAB 20: PRINT LS(K + 4): 
NEXT 
1090 


"1" OR B$ 


CHRS (32 


GOTO 1110 
1100 VTAB 10: FOR K = 
PRINT : PRINT VL * L(B) 
HTAB 20: PRINT L$(K): NEXT 
1110 GET A$: IF A$ < > CHR$ 
(13) THEN HOME GOTO 1000 
1120 RETURN 
1500 INVERSE 
HTAB 18: 


0 TO 3: 
/ L(K); 


PRINT SPC( 39) 
PRINT "AREA”: NORMA 


L 
1510 PRINT HTAB 5: PRINT "ES 


y 


COLHA A UNIDADE” : 
1520 FOR K = 0 TO 6: 
TAB 5: PRINT K * 1;"- 
NEXT 

1530 GET BS: IF B$ < 
» "7" THEN 1530 
1540 B = VAL (B$) - 1: HOME 
PRINT "NUMERO DE ”;AS(B);"?" 
1550 INPUT UL 

1560 HOME PRINT VL; 
J;AS(B);” EQUIVALEM A:” 
1570 IF B> 3 THEN 1600 

1580 VTAB 10: FORK = 0 TO 2: 
PRINT PRINT UL * A(B) / A(K + 
4);: HTAB 19: PRINT AS(K + 4): 
NEXT 

1590 GOTO 1610 

1600 VUTAB 10: FOR K = 
PRINT.: PRINT UL * A(B) 
: HTAB 19: PRINT AS(K): NEXT 
1610 GET A$: IF A$ < > CHR$ 
(13) THEN HOME : GOTO 1500 
1620 RETURN 

2000 INVERSE PRINT 
і: НТАВ 17: PRINT 


PRINT 
PRINT : H 
"ҘА5(К): 


"1" OR B$ 


CHRS (32 


0 TO 3: 
/ A(K 





SPC( 39) 
"VOLUME": NOR 








MAL 
2010 PRINT : HTAB 5: PRINT "ES 
COLHA A UNIDADE”: PRINT 
2020 FOR K = 0 TO 6: PRINT: H 
TAB 5: PRINT K * 1;"- ";US(K): 
NEXT 
2030 GET B$: IF B$ € "1" OR B$ 
» "7" THEN 2030 
2040 B = VAL (B$) - 1: HOME 
PRINT "NUMERO DE ";US(B);"?" 
2050 INPUT VL 
2060 HOME : PRINT VL; CHRS (32 
S(B);” EQUIVALEM A 
IF B > 3 THEN 2100 
VTAB 10: FOR K = 0 TO 2: 
PRINT UL * V(B) / V(K * 
HTAB 19: PRINT US(K + 4): 


GOTO 2110 
VTAB 10: FOR K = 0 TO 3: 
PRINT VI? * V(B) / V(K 
HTAB 19: PRINT US(K): NEXT 
2110 GET A$: IF A$ < > CHRS 
(13) THEN HOME : GOTO 2000 
2120 RETURN 
2500 INVERSE : PRINT SPC( 39) 
i: HTAB 18: PRINT "PESO": NORMA 
L 
2510 PRINT : HTAB 5: PRINT "ES 
COLHA A UNIDADE”: PRINT 
2520 FOR K = 0 TOS: PRINT : H 
TAB 5: PRINT K + 1;"- "¡MS(K) 
NEXT 
2530 GET BS: IF B$ « "1" OR B$ 
> "6" THEN 2530 
2540 В = VAL (B$) - l: HOME 
PRINT "NUMERO DE ";M$(B);"? 
2550 INPUT VL 
2560 HOME : PRINT VL; CHR$ (32 
);MS(B);” EQUIVALEM А:" 
2570 IF B > 2 THEN 2600 
2580 VTAB 10: FORK = 0 TO 2: 
PRINT VL * M(B) / M(K + 
НТАВ 19: PRINT MS(K + 3 


GOTO 2610 
VTAB 10: FOR K * 0 TO 3 

PRINT : PRINT ЧІ. * М(В) / M(K 
: HTAB 19: PRINT M$(K): NEXT 
2610 GET A$: IF A$ < > CHR$ 
(13) THEN HOME : GOTO 2500 
2620 RETURN 
3000 INVERSE : PRINT SPC( 39) 

HTAB 16: PRINT "PRESSAO": NO 
RMAL 
3010 PRINT : HTAB 5: PRINT "ES 
COLHA A UNIDADE": PRINT 
3020 FOR K * 0 TO 4: PRINT : H 
TAB 5: PRINT K * 1;"- ";P$(K): 
NEXT 
3030 GET BS: IF B$ < "1” OR BS 
> "5" THEN 3030 
3040 В = VAL (B$) - 1: HOME 
PRINT "NUMERO DE $(B);"?" 
3050 INPUT VL 
3060 HOME : PRINT VL HRS (32 
);P$(B);" EQUIVALEM A 
3070 T = VTAB 10: FOR K = 0 
TO 4: ІР К = В THEN 3100 
3090 PRINT : PRINT UL * P(K) / 
P(B);: HTAB 19: PRINT PS(K):T 
e, k. 
3100 NEXT 





3110 GET AS: 
(13) THEN HOME 
3120 RETURN 
3500 INVERSE : PRINT SPC( 39) 
;: HTAB 14: PRINT "TEMPERATURA" 
: NORMAL 

3510 PRINT : HTAB 5: 
NVERTER:": PRINT 

3520 PRINT : HTAB 5: PRINT 
NTIGRADO PARA FARENHEIT (C)" 
3530 PRINT : HTAB 5: PRINT 


IF AS < > CHR$ 
: GOTO 3000 


PRINT "CO 
"СЕ 


"РА 







RENHEIT PARA CENTIGRADO (F)” 
3540 GET B$: IF B$ < > "C" AN 
D B$ < > "Е" ТНЕМ 3540 


3550 IF B$ - "C" THEN 3590 


3560 HOME : INPUT "GRAUS FAREN 
HEIT? ";VL 
3570 PRINT : PRINT VL;" GRAUS 


FARENHEIT EQUIVALEM A ";(VL - 3 
2) * 5 / 9;" GRAUS CENTIGRADOS. 
”: GOTO 3620 
3590 HOME : 
GRADOS? ";VL 
3600 PRINT : PRINT VL;” GRAUS 
CENTIGRADOS EQUIVALEM A ";32 + 
UL * 9 / 5;" GRAUS FARENHEIT." 


INPUT "GRAUS CENTI 


3620 GET A$: IF A$ < > CHR$ 
(13) THEN HOME : GOTO 3500 
3630 RETURN 

5 DEFSNG A 


10 DIM L(7),L5(7) ,A(6) ,AS(6) ,V( 
6) ,US(6) ,M(5) MS (5) ,P (4) , PS (4) 
20 FORK=0TO7:READ L(K),LS(K):NE 
хт 

30 БАТА 1,ро1едадав,12,р6в,36,3 
ardas,63360,milhas,.03937,milím 
etros,.3937,centímetros,39.37,m 
etros,39370,kilômetros 

40 FORK=0TO6:READ A(K),AS(K) :NE 
xT 

50 DATA 1,polegadas quadradas,1 
44,pés quadrados,6272640,acres, 
4.0145e9,milhas quadradas,.155, 
centímetros quadrados,1550,metr 
os quadrados,1.55e7,hectares 

60 FORK-0TO6:READ V(K),V$(K):NE 
xT 

70 DATA 1,polegadas cúbicas,172 
8,pés cúbicos,34.67,pintas,277. 
36,9alóes,.06102,centímetros cu 
bicos,61.024,1itros,61024,metro 
sa cúbicos 

80 FORK=0TO5:READ M(K) ,MS(K) :NE 
хт 

90 DATA l,oncas,ló6,libras,35840 
,tons,.03527,9ramas,35.27,kilog 
ramas,35270,toneladas 

100 FORK-0TO4:READ P(K),P$(K):N 
EXT 

110 DATA l,libras/pol ,51.73,mm 
Hg,6895,nevwtons/m ,.0681,atmosf 
eras,68.95,milibares 

120 CLS:COLOR 15,4,4:PRINT” Qu 
al categoria? (0-6)" 

130 LOCATE 5,5:PRINT"O - Sair": 
LOCATE 5,7:PRINT"l - Compriment 
O":LOCATE 5,9:PRINT"2 - Área" 
135 LOCATE 5,11:PRINT"^3 - Volum 
e":LOCATE 5,13:PRINT"4 - Peso": 
LOCATE 5,15:PRINT"5 - Presso": 








LOCATE 5,17:PRINT"6 - Temperatu 
ra" 

140 AS=INKEYS:IFAS<"0"ORAS>"6"T 
НЕМ140 

150 IFAS="0"THENCLS: END 

160 CLS:ON VAL(AS) GOSUB 1000,1 
500,2000,2500,3000,3500 

170 GOTO 120 

1000 COLOR 15,6,6:PRINT"Comprim 
ento”: PRINTSTRINGS (39,195) :LOCA 
TE 5,3:PRINT"Selecione a unidad 
е:" 

1010 FORK-0TO7:LOCATE 5,6*2*K:P 
RINTK+1 ";L$(K) :NEXT 

1020 B$=INKEYS: IFB$<"1”ORBS>”8" 
THEN1020 

1030 B=VAL(BS)-1:CLS:PRINT"D101 
te o número de ";LS(B) 

1040 INPUT UL 

1050 CLS:PRINTVL;CHR$(32);LS(B) 
;" equivalem a:" 

1060 IFB>3THEN1090 

1070 FORK=0TO3:LOCATE 1,6+2*K:A 
=ULXL (B) /L(K+4) :PRINTA; TAB (14); 
LS (K+4) :NEXT 

1080 GOTO 1100 

1090 FORK-0TO3:LOCATE 1,6+2*K:A 
*VL*L (B) /L(K) : PRINTA; TAB(14) ;L$ 
(K) :NEXT 

1100 AS*INKEYS:IFAS-""THEN1100 
1110 IFAS-CHR$(13)THEN RETURN E 
LSE CLS:GOTO1000 

1500 COLOR 15,10,10:PRINT"Area” 
: PRINTSTRINGS (39,195) :LOCATE 5, 
3:PRINT"Selecione a unidade:" 
1510 FORK=0T06:LOCATE 5,6+2*K:P 
RINTK+1 "AS (K) : NEXT 

1520 B$=INKEYS: IFBS<"1"ORB$>"7" 
THEN1520 

1530 B=VAL (B$)-1:CLS:PRINT"Digi 
te o número de ";AS(B) 

1540 INPUT VL 

1550 CLS:PRINTVL;CHRS (32) ;AS(B) 
¡” equivalem a:” 

1560 IFB>3THEN1590 

1570 FORK=0TOZ:LOCATE 1,6+2*K:A 
*UL*A(B) /A(K*4) : PRINTA; TAB(14) ; 
AS (K+4) : NEXT 

1580 GOTO 1600 

1590 FORK*0TO3:LOCATE 1,6*2*K:A 
*VL*A (B) /A(K) : PRINTA; TAB (14) ; A$ 
(K) :NEXT 

1600 AS-INKEYS:IFAS-""THEN1600 
1610 IFAS*CHR$(13)THEN RETURN E 
LSE CLS:GOTO1500 

2000 COLOR 15,12,12:PRINT"Volum 
e":PRINTSTRING$ (39,195) : LOCATE 
5,3:PRINT"Selecione a unidade:" 
2010 FORK-0TO6:LOCATE 5,6*2*K:P 
RINTK*1;"- ";US(K):NEXT 

2020 B$=INKEYS: IFBS<"1"ORBS>"7” 
THEN2020 

2030 B-VAL (B$)-1:CLS:PRINT"Digi 
te o nümero de V$ (B) 

2040 INPUT VL 

2050 CLS:PRINTVL;CHR$ (32) ;V$ (B) 
¡” equivalem a:” 

2060 IFB>3THEN2090 

2070 FORK-0TO2:LOCATE 1,6*2*K:A 
=VL*V(B) /V(K+4) :PRINTA;TAB (14); 
VS (K+4) : NEXT 

2080 GOTO 2100 

2090 FORK-0TO3:LOCATE 1,6*2*K:A 














=VL*U(B) /U(K) : PRINTA; TAB (14) ;U$ 
(K) :NEXT 

2100 AS-INKEYS:IFAS-""THEN2100 
2110 IFAS=CHRS (13) THEN RETURN E 
LSE CLS:GOTO2000 

2500 COLOR 15,13,13:PRINT"Peso” 
: PRINTSTRINGS (39,195) :LOCATE 5, 
3:PRINT"Selecione a unidade:” 
2510 FORK=0TO5:LOCATE 5,6+2*K:P 
RINTK*1;"- ";M$(K):NEXT 

2520 BS=INKEYS:IFBS<"1"ORBS>"6" 
THEN2520 

2530 B=VAL (B$)-1:CLS:PRINT"Digi 
te o número de ";M$(B) 

2540 INPUT UL 

2550 CLS:PRINTUL;CHRS (32) ;M$ (B) 
;" equivalem a:" 

2560 ІЕВ>2ТНЕМ2590 

2570 FORK-0TO2:LOCATE 1,6*2*K:A 
*UL*M (B) /M(K*3) : PRINTA; TAB(14) ; 
M$ (K*3) :NEXT 

2580 GOTO 2600 

2590 FORK=0TOZ:LOCATE 1,6+2*K:A 
=ULAM(B) /M(K) : PRINTA; TAB (14) ¡MS 
(К) :МЕХТ 

2600 AS=INKEYS: IFAS=""THEN2600 
2610 IFAS-CHRS(13)THEN RETURN E 
LSE CLS:GOTO2500 

3000 COLOR 15,14,14:PRINT"Press 
ão”; PRINTSTRINGS (39,195) : LOCATE 
5,3:PRINT"Selecione a unidade: 





3010 FORK=0TO4:LOCATE 5,6*2*K:P 
RINTK+1;"- "¡PS(K):NEXT 

3020 BS=INKEYS: IFBS<”1”ORBS>"5" 
THEN3020 

3030 B=VAL (B$)-1:CLS:PRINT"Digi 
te o número de ";P$(B) 

3040 INPUT VL 

3050 CLS:PRINTUL;CHR$(32) ; PS (B) 
;" equivalem E 

3060 T=0:FORK=0T04:IFK=BTHEN308 











0 

3070 LOCATE 1,6+2*T:A=VL*P(K)/P 
(B) : PRINTA;TAB (14) ;PS(K):T=T+1 
3080 NEXT 

3090 AS=INKEYS: IFAS=""THEN3090 
3100 IFAS=CHR$ (13) THEN RETURN E 
LSE CLS:GOTO3000 

3500 COLOR 15,6,6:PRINT"Tempera 
tura” : PRINTSTRINGS (39,195) :LOCA 
TE 5,3:PRINT"Converter:" 

3510 LOCATE 5,6:PRINT"Ceniígrad 
os para Farenheit (C)":LOCATE 5 
,8:PRINT"Farenheit para Centígr 
ados (F)" 

3520 BS$=INKEYS: IFBS<>"C”ANDBS<> 
"Е"ТНЕМ3520 

3530 IFB$="C"THEN3560 

3540 CLS: INPUT"Graus Farenheit” 


¿UL 
3550 LOCATE 3,7:PRINTUL;" graus 
Farenheit equivalem a ":PRINT( 
VL-32)*5/9;" graus Centígrados. 
":GOTO 3580 
3560 CLS:INPUT"Graus Centígrado 
s";VL 
3570 LOCATE 3,7:PRINTVL;” graus 
Centígrados equivalem a":PRINT 
32+VL*9/5;" graus Farenheit.” 
3580 AS=INKEYS:1F AS=""THEN3580 
3590 IFA$=CHR$ (13) THEN RETURN E 
LSE CLS:GOTO 3500 
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RASTREAMENTO 
NO SPECTRUM 


O QUE FAZ UM 
PROGRAMA RASTREADOR 
A BUSCA DOS ERROS 
FUNCIONAMENTO 

E USOS DO PROGRAMA 











Descubra onde se escondem aquelas 
linhas mal escritas. Interrogue o 
programa marginal que náo funciona. 
Localize erro por erro com a ajuda 
do nosso programa rastreador. 


É praticamente impossível digitar um 
programa longo — tal como o Assem- 
bler — sem cometer alguns erros. Mes- 
mo que tenhamos conferido com todo 


o cuidado uma listagem, ás vezes surgem 
erros que desafiam até programadores 
experientes, se náo forem investigados 
com um recurso especial. 

Para prosseguir no curso de lingua- 
gem de máquina, é essencial que seu As- 
sembler funcione. Por isso, antes de 
mais nada, você deve encontrar todos os 
erros nele existentes. INPUT traz para 
os usuários do Spectrum de 48 K de me- 
mória um programa rastreador que se- 
rá muito útil na busca dos erros even- 
tualmente cometidos na digitação do 





Assembler. O TRS-Color, o TRS-80, o 
MSX e o Apple possuem programas ras- 
treadores embutidos — sáo as fungóes 
TRACE, TRACE ON ou TRON. 

O programa “TRACE” que apresen- 
tamos a seguir vem tanto em Assembly 
como em código hexadecimal. Assim, se 
seu Assembler não está funcionando, 
você pode usar o monitor da página 92 
para entrar os códigos. Caso funcione 
bem, monte o programa TRACE com 
sua ajuda e grave-o em fita, para usá-lo 
em outros programas que contenham er- 








ros. Se você não sabe se o Assembler es- 
tá funcionando, use a montagem deste 
programa rastreador como um teste. 


У5АЯ 0 РНООНАМА 


Quando um programa BASIC tem 
um erro, seu micro geralmente informa 
em que linha está o problema. Isso po- 
de ser suficiente para corrigir um erro 
em um programa simples e curto. Po- 
rém, quando se trata de um programa 
maior e mais complicado, a mensagem 
de erro muitas vezes é inútil. Uma linha 
sempre executada com sucesso pode, de 
repente, causar um erro porque em ou- 
tro local do programa uma variável que 
ela usa assumiu um valor inadequado. 

O programa rastreador aqui apresen- 
tado simplesmente escreve na tela o nú- 
mero da linha que está sendo executa- 
da. Ao contrário das instruções TRA- 
CE dos demais micros, nosso programa 
também escreve o código interno do co- 
mando BASIC usado no momento. 

Para facilitar o uso do programa, 
convém ter à mão uma listagem do pro- 
grama, seja ela sua ou de INPUT. Vo- 
cê poderá, assim, acompanhar o progra- 
ma passo a passo, até atingir o ponto 
onde ocorreu o erro. Ficará mais fácil 
também descobrir os valores das variá- 
veis e, ainda, se as condições dos 
IF...THEN estão sendo satisfeitas e se 
os GOTO estão indo para as linhas 
certas. 


ҒОМСІОМАМЕМТО 00 ТААСЕ 


Um programa TRACE é um tipo 
muito especial de rotina em linguagem 
de máquina, pois funciona simultanea- 
mente à outro programa — o seu, que 
está em BASIC. Normalmente, não se 
pode rodar dois programas ao mesmo 
tempo no computador. O TRACE, na 
verdade, não constitui uma exceção: ele 
não roda ao mesmo tempo que o pro- 
grama em BASIC, mas utiliza um atri- 
buto do microprocessador que é a inter- 
rupção. 

Rotinas que empregam esse artifício 
interrompem o programa principal a ca- 
da 20 milésimos de segundo — no Spec- 
trum — e são executadas na fração de 
segundo que dura essa interrupção. De- 
pois disso, o programa principal conti- 
nua como se nada tivesse ocorrido, até 
a interrupção seguinte. 

Programas BASIC são sempre inter- 
rompidos a cada 0,02 segundo enquan- 
to estão funcionando, para que o com- 
putador verifique se alguma tecla foi 
pressionada. Rotinas que usam interrup- 





ções aproveitam-se desse padrão. A in- 
terrupção pode não ocorrer, tal como 
foi explicada, se houver algo conectado 
na expansão da memória. 

Se uma linha BASIC for muito lon- 
ga, ela poderá ser interrompida mais de 
uma vez durante sua execução. Nesse ca- 
so, o TRACE fornecerá o mesmo núme- 
ro de linha várias vezes. Por outro la- 
do, se uma linha for muito curta — 
PRINT ou RETURN isolados, por 
exemplo — existe uma pequena chance 
de que TRACE não a detecte. Se isso 
acontecer, tente provocar uma pausa 
usando um FOR...NEXT. 


O Spectrum tem dificuldade em im- 
primir na tela durante uma interrupção. 
Dois canais diferentes são usados para 
imprimir na parte superior da tela ou 
nas duas linhas inferiores, e, se mudar- 
mos de canal enquanto o programa em 
BASIC está rodando, pode haver com- 
plicações. 

Para contornar o problema, vamos co- 
locar o número da linha diretamente na 
tela. Como cada caractere consome oito 
bytes, simplificamos a parte do programa 
que cuida disso, fazendo com que os nú- 
meros das linhas sejam sempre colocados 
no mesmo local da tela, fora da área que 
o BASIC costuma usar. Ao lado do nú- 
mero, coloca-se o código do comando BA- 
SIC que está sendo executado. 

O programa TRACE não é chama- 
do de dentro do BASIC, mas por meio 
de outra rotina em código que, por sua 
vez, é chamada pelo BASIC. E esta ro- 
tina que transfere o controle para o 
TRACE, durante as interrupções. 

Não se esqueça de resguardar o topo 
da memória — os endereços a partir de 
65109 devem estar livres e protegidos 
por CLEAR 65109. Se for usado o As- 
sembler, as origens — ou endereços ini- 
ciais — estarão listadas. Se seu Assem- 
bler não funcionar, utilize o programa 
monitor da página 92. O endereço ini- 
cial é 65110. 

Não se assuste se as traduções das li- 
nhas contendo saltos para rótulos que 
estão adiante da listagem, bem como das 
linhas que utilizam variáveis e bytes ain- 
da não definidos, saírem erradas na te- 
la. Elas são posteriormente corrigidas 
pelo próprio Assembler. 

Não estranhe também se o Assembler 
parar a montagem antes de end, quan- 
do a parte inicial do programa, que con- 
tém as linhas REM com o programa- 
fonte, foi muito editada ou teve muitas 
linhas apagadas. Nesses casos, pode so- 
brar algum “lixo” no meio da listagem. 


Este não prejudica a interpretação pelo 
BASIC, mas confunde a do Assembler. 
Para contornar o problema, redigite a 
linha imediatamente posterior à última 
traduzida, e rode o programa novamen- 
te. Às vezes é necessário digitar várias 
linhas de novo. 


org 65110 

ld a,9 3E 09 
ld 1,a ED 47 
im 2 ED SE 
ret c9 
org 65120 00 00 00 
1d a,62 3E 3E 
ld 1,a ED 47 
іші ЕП 56 
ret c9 
org 65129 00 00 
rst 56 FF 
push af. F5 
ld a, (23622) ЗА 46 5С 
bit 7.a CB 7F 
3r z,90 28 02 
pop af Fl 
ret c9 
9o di F3 
push bc c5 
push de D5 
push hl ES 
push ix DD ES 
ld de,20726 11 F6 50 
ld (posn),de ED 53 FE FE 
19 Һ1, (23621) 2А 45 5С 
call 11пепо CD B5 FE 
ld de,20731 11 FB 50 
14 (ровп),де ED 53 FE FE 
1а Һ1, (23623) 2А 47 5С 
ld h,0 26 00 
call statno CD BB FE 
19 ћ1,23286 21 Еб 5А 
ld (h1),71 36 47 
ld de,23287 11 Е7 5А 
ld bc,9 01 09 00 
ldir ED BO 
Кеуір 14 а,127 3E 7F 
in a,254 DB FE 
or 224 F6 EO 
cp 252 FE FC 
Jr z,keylp 28 F6 
pop ix DD El 
pop hl El 
pop de Dl 
pop bc сї 
pop af Fl 
el FB 
ret c9 
lineno ld bc,-1000 01 18 FC 
call prt CD CE FE 
statno ld bc,-100 01 9C FF 
call prt CD CE FE 
1d bc,-10 01 F6 FF 
call prt CD CE FE 
1d bc,-1 01 FF FF 
call prt CD CE FE 
ret c9 
prt xor a AF 
prtlp add hl,bc 09 
inc a 3c 
Jr c,prtlp 38 FC 
sbc hl,bc ED 42 
dec a 3D 
add a,48 c6 30 








push hl 

call print CD 
1d hl,posn 21 
inc (hl) 

1d hl,(posn) 2А 
call prtout cD 
рор Һ1 

ret 


print ld bc, (23606) ED 4B 
14 һ,0 

ld 1,a 

add hl,hl 

add hl,hl 

add hl,hl 


ЕВ 
РЕ 


FE 
FS 


36 
26 


ES 
FE 
FE 
34 
FE 
FE 
El 
c9 
5c 
00 
6F 
29 
29 
29 


add hl,bc 09 
ex de,hl EB 
ret c9 
prtout ld b,8 06 08 
loop 1d a, (de) 1A 
ld (hl),a 77 
inc h 24 
inc de 13 
d3nz loop 10 FA 
ret c9 
розп defw 0 00 00 


A listagem inclui trés programas, e nào 
apenas um. Cada um tem seu próprio 


endereco inicial. O primeiro, que come- 
ça em 65110, ativa o programa principal. 
O segundo, que começa em 65120, des- 
liga o programa TRACE. O terceiro, que 
começa em 65129, faz o rastreamento. 

As instruções ld a, 9 e Id i,a colo- 
cam o número 9 dentro do registro I. 
Não há uma instrução que carregue o re- 
gistro I diretamente com um número. O 
9 é interpretado como o byte mais sig- 
nificativo de um vetor de interrupção 
que possui dois bytes. O byte menos sig- 
nificativo é fornecido pelo computador, 


Quen SEM RUMO PELAS 
RUAS NÃO ME LEVARIA A 
LUGAR NENHUM. 





sendo geralmente igual a 255. Assim, o 
vetor de interrupção aponta para o en- 
dereço 9*256 + 255, que é igual a 2559. 
O valor contido nos endereços 2559 e 
2560 é 65129, o endereço inicial do nos- 
so programa TRACE. 

O processo pode parecer confuso, 
mas rotinas com interrupções devem ser 
endereçadas indiretamente. Note que o 
endereço 2559 fica na ROM. Se colocás- 
semos no registro 1 um número maior 
que 64, para apontarmos pa- 
ra um endereço da RAM, on- 
de poderíamos colocar o nú- 
mero que quiséssemos — 

65129 já estava lá —, vería- 
mos que os caracteres se des- 
manchariam no vídeo. 

O mnemônico im 2 altera o 
modo de interrupção. A roti- 
na que desliga o programa 
principal coloca o valor 62 no registro 
I; 62 era o conteúdo original desse re- 
gistro. im 1 restabelece o modo de in- 
terrupção normal. 

O programa principal começa com a 
instrução rts 56. Ela determina que o mi- 
croprocessador execute sua rotina nor- 
mal de interrupção — fazendo a varre- 
dura do teclado e atualizando o relógio 
do sistema. 

Ao programar uma rotina com inter- 
rupção, deve-se levar em conta que, ao 
final de sua execução, é essencial que o 
conteúdo de todos os registros seja exa- 
tamente igual ao que havia antes da in- 
terrupção. A única maneira de garantir 
isso é colocar o conteúdo dos registros 
na pilha, usando push, no início do pro- 
grama, e retirá-lo de lá usando pop, 
quando o programa acabar. Os conteú- 
dos de BC, DE, HL e IX são todos co- 
locados na pilha. O conteúdo de AF en- 
tra antes porque o acumulador e o re- 
gistro F — que contêm os sinalizadores 
— são utilizados para verificar se о рго- 
grama BASIC está sendo rodado. Sem 
um programa BASIC funcionando, 
não há nada a ser rastreado. 

Para verificar se existe um 
programa em curso, coloca-se o 
conteúdo da posição 23622 no 
acumulador. As posições 23621 
e 23622 contêm o número da li- 
nha BASIC que está sendo exe- 
cutada. Embora os números das 
linhas BASIC sejam armazenados 
em formato alto-baixo na área do 
programa, aqui eles são armazenados 
no formato baixo-alto. 

Se nenhum programa está sendo exe- 
cutado, o número contido nas duas po- 
sições será muito elevado para perten- 
cer a uma linha BASIC — 9999 é o 
¡maior número de linha que o Spectrum 
aceita. Assim, o conteúdo de 23622 (o 


byte mais significativo) é colocado no 
acumulador e a instrução bit 7,a exami- 
na o bit mais significativo do conteúdo 
de A. Se esse bit for 1, o programa não 
está sendo executado. Uma instrução bit 
verifica o valor de determinado bit de 
uma posição ou registro. Por exemplo, 
bit 4,a testa о quarto bit do acumulador. 

Se o bit mais significativo do byte 
mais significativo da linha BASIC que 
está sendo executada for 0, o sinaliza- 


dor zero é estabelecido e jr z,go faz com 
que o programa vá para a próxima ocor- 
rência do rótulo go. Se o bit 7 do acu- 
mulador for 1, o sinalizador não é esta- 
belecido e o saldo não ocorre. O progra- 
ma continua na próxima instrução, que 
recupera o valor de AF da pilha e retor- 
na ao interpretador BASIC. 

Uma vez que haja um programa sen- 
do rodado e que ele tenha sido transfe- 
rido para o rótulo go, a instrução di de- 
sabilita interrupções, garantindo o fun- 








cionamento contínuo de nossa rotina de 
interrupção. 

A instrução Id de,20726 coloca no re- 
gistro DE o endereço da posição da tela 
imediatamente anterior àquela onde co- 
locaremos um caractere. Como o pro- 
grama usará muito esse endereco, ele é 
colocado na variável posn, por meio do 
comando Id posn,de. Nosso Assembler 
interpreta a variável posn como uma po- 
sição de memória que tem um nome. 
Como nenhuma instrução permite colo- 
car um número diretamente dentro de 
uma variável ou posição de memória, 
usamos um registro como intermediário. 

Coloca-se no par HL o conteúdo das 
posições 23621 e 23622, que é o núme- 
ro da linha BASIC que está sendo exe- 
cutada no momento. Podemos então 
chamar a sub-rotina de rótulo lineno. 

O número da linha BASIC em HL es- 
tá em hex. Para convertê-lo para deci- 


VET LO 





mal, começamos por calcular o algaris- 
mo dos milhares: subtraímos 1000 do 
número em HL repetidamente, contan- 
do quantas vezes foi possível fazer tal 
operação. Colocamos, assim, o valor 
—1000 no par BC e chamamos a sub- 
rotina prt, que faz as subtrações. Nessa 
sub-rotina, a primeira coisa que o mi- 
croprocessador faz é xor a — isto é, um 
ou exclusivo. Em linguagem de máqui- 
na, um xor sempre age no registro A; 
assim, xor a faz um ou exclusivo do acu- 
mulador com ele mesmo, o que sempre 
resulta em 0. Esta é uma maneira rápi- 
da de colocar 0 no acumulador, já que 
ld a,0 tem um byte a mais. 

add hl,bc subtrai 1000 do conteüdo 
de HL. Somar —1000 é mais rápido que 
subtrair 1000, já que dispensa cuidar do 
sinalizador carry (“vai um"). O acumu- 
lador é, então, incrementado e atua co- 
mo contador. jr e,prtlp verifica o sina- 











































































































PELAS 10, FUI APANHADO EM UM LAÇO 
SEM FIM E, коно VI, ESTAVA CERCADO POR 
VÍRGULAS ROUBADAS, VARIÁVEIS DE VIDA ГА Е 


VM BANDO DE GOTO MAL ENCARADOS 
















lizador carry e salta quando ele é esta- 
belecido. 

Se considerarmos o conteüdo de BC 
entenderemos como tudo funciona. Vi- 
mos no artigo da página 142 que os 
números negativos são representados 
dentro do computador por números po- 
sitivos muito grandes, mas de compri- 
mento limitado. O par de registros BC 
contém dezesseis números 1 binários, 
menos 1000 em decimal. Se qualquer 
número maior que 1000 for somado a 
BC, o valor do resultado ultrapassará a 
capacidade do par HL e o sinalizador 
carry será estabelecido. 

Quando isso ocorre, há um salto, 
1000 é novamente subtraído de HL, o 
contador é incrementado e o processo 
recomeça, Ele se repete até que o con- 
teúdo de HL seja menor que 1000; a adi- 
ção com BC, então, não estabelece o si- 
nalizador carry. Neste ponto, porém, a 
subtração já foi feita e a incrementação 
do contador ocorreu uma vez mais que 
o necessário. Assim, somamos 1000 a 
HL — na realidade subtraímos —1000 
— e decrementamos o acumulador. 

O acumulador contém, agora, o al- 
garismo dos milhares. Adicionando 48, 
obtemos o código ASCII do caractere. 
O conteúdo de HL é reservado na pilha 
para quando formos calcular as cente- 
nas, dezenas e unidades. Em seguida, 
chamamos a sub-rotina print. 

A primeira instrução dessa sub-rotina 
é Id be, (23606), que coloca o conteúdo 
das posições 23606 e 23607 em BC. Es- 
sas posições contêm a variável do siste- 
ma que aponta para o endereço inicial 
do conjunto de caracteres da ROM. O 
conteúdo de H é reduzido a zero e o do 
acumulador é transferido para L, que 
conterá, assim, o código ASCII do ca- 
ractere que queremos escrever. O regis- 
tro HL é usado, então, como um acu- 
mulador de 16 bits. 

Para colocar na tela o caractere de- 
sejado, temos que obter seu formato 
dentro do conjunto de caracteres que fi- 
ca na ROM. Como cada caractere tem 
oito bytes, o endereço inicial dos oito 
bytes que fornecem o padrão do carac- 
tere é oito vezes o código ASCII do ca- 
ractere, mais o endereço inicial do con- 
junto de caracteres. 

Em vez de multiplicar o código AS- 
CII por oito, é mais fácil duplicá-lo — 
somando-o consigo mesmo — três ve- 
zes. Observe que a operação não é feita 
no registro A porque o valor certamen- 
te ultrapassará oito bits — 48 X B = 
384, posição inicial do caractere 0, é 
maior que 255, máxima capacidade de 
um registro de oito bits. Essa conta, 
porém, não ultrapassaráos dezesseis 
bits. 
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Para obter o endereço do primeiro 
byte do caractere desejado, adiciona-se 
o resultado da operação ao conteúdo de 
BC. Os conteúdos de HL e DE são in- 
tercambiados para que HL possa ser 
usado novamente. 

ret determina o retorno do micropro- 
cessador da sub-rotina e ld hl, posn co- 
loca a posicáo da tela contida em posn 
no registro HL. A instrução indireta ine 
(hl) incrementa o conteúdo de posn. A 
sub-rotina que coloca o caractere na te- 
la — prtout — é, então, chamada. 

A primeira instrução dessa sub-rotina 
é ld b, 8, que coloca 8 no registro B. Ele 
será usado como contador para os oito 
bytes do caractere que seráo transferi- 
dos para a tela. O acumulador é carre- 
gado com o conteúdo da memória cujo 
endereço está em DE, ou seja, com o 
primeiro byte do caractere, O conteúdo 
do acumulador é transferido para a po- 
sição de memória cujo endereço está em 
HL (o local apropriado da tela). Exce- 
to em um comando de ação em bloco, 
não se pode transferir o conteúdo de 
uma posição de memória diretamente 
para outra sem utilizar um registro co- 
mo intermediário. Não há uma instru- 
ção do tipo Id (hl), (de), por exemplo. 
Essa transferência requer, portanto, 
duas instruções, e o que ela realmente 
faz é colocar a primeira linha de oito 
pontos do caractere na tela. 

O conteúdo do registro H é, então, 
incrementado. Como H contém o byte 
mais significativo do par HL, o conteú- 
do desse par aumenta em 256, de for- 
ma a corresponder ao endereço da pró- 
xima linha do caractere. 

Incrementando o conteúdo de DE, 
obtemos o endereço da próxima linha do 
caractere, dentro do conjunto de carac- 
teres, e djnz loop faz o microprocessa- 
dor voltar à sub-rotina prtout, para co- 
locar na tela os outros bytes do caracte- 
re. Este laço é repetido oito vezes, in- 
crementando H a cada volta, para co- 
locar na tela o próximo byte abaixo do 
anterior, e incrementando DE, para ob- 
ter o padrão dos oitos pontos a serem 
colocados na tela, do conjunto de carac- 
teres da ROM. Ao mesmo tempo, a ins- 
trução djnz (decrementa saltando se não 
for zero) decrementa o registro B. As- 
sim, quando o processo estiver na oita- 
va repetição — e os oito bytes que com- 
põem o caractere tiverem sido coloca- 
dos na tela —, o caractere correspon- 
dente ao algarismo dos milhares estará 
no vídeo, o registro B conterá zero, a 
condição não-zero do comando djnz 
não será satisfeita e o microprocessador 
passará à próxima instrução, que é ret, 
EEE retornando para onde foi chamada a 

sub-rotina. 



















O comando pop hl recupera os dois 
ültimos bytes colocados na pilha. Se 
olharmos para trás, veremos que se tra- 
ta do resto que ficou em HL após o cál- 
culo do algarismo dos milhares. ret 
manda o microprocessador de volta à li- 
nha onde está statno ld bc, —100 e o 
processo se repete para calcular o alga- 
rismo das centenas. Quando este for co- 
locado na tela ao lado do algarismo dos 
milhares, o algarismo das dezenas — e, 
depois, o das unidades — é calculado da 
mesma maneira e colocado na tela na 
posição adequada. 

Depois disso, o microprocessador re- 
torna para onde a sub-rotina lineno foi 
chamada. O valor 23731 é colocado em 
posn, um endereço da tela um pouco à 
direita de onde foi colocado o número 
da linha. Obtém-se, assim, espaço sufi- 
ciente para quatro dígitos do número e 
um espago em branco. 

O conteúdo das posições 23623 e 
23624 é colocado em HL; estas posicóes 
contém o número da instrugáo BASIC 
que está sendo executada no momento. 
O valor máximo que o código de uma 
instrugáo BASIC pode assumir é 128; o 
byte mais significativo é, portanto, des- 
necessário e deve ser reduzido a zero pe- 
la instrução Id hl, 0. A sub-rotina que 
cuida da conversão do número para de- 
cimal, bem como de sua impressão na 
tela, é executada novamente, só que des 
ta vez é chamada por meio do rótulo 
statno, já que-são necessários apenas 
três dígitos. 

Quando o código da instrução BA- 
SIC é novamente impresso na tela, o mi- 
croprocessador volta ao programa prin- 
cipal, onde executa uma pequena sub- 
rotina que coloca no vídeo os caracte- 
res invertidos. Como a rotina leva me- 
nos de 20 milésimos de segundo, não há 
a menor chance de percebermos que um 
caractere foi desenhado normalmente e 
depois invertido. 

14 h1,23286 é o endereço da posição 
anteriorjao primeiro dígito na tabela de 
atributos, que fornece uma “moldura” 
ao número. O número 71 — que pro- 
duz fundo preto e caracteres brancos — 
é colocado nesta posição. O endereço da 
próxima posição é colocado em DE e 9, 
no par BC, que será usado como 
contador. 

A instrução de armazenamento em 
bloco Idir coloca o conteúdo da posição 
de memória dada por HL na posição da- 
da por DE, deçrementa B e verifica se 
o valor de B foi reduzido a zero. Se não 
foi, o processo é repetido. Em outras pa- 
lavras, a instrução copia os atributos 
fundo preto e caracteres brancos do pri- 
meiro caractere nos outros nove carac- 
teres adjacentes. 

































As nove instruções seguintes permi- 
tem parar temporariamente o programa 
TRACE — e, também, o programa BA- 
SIC — a qualquer momento. A instru- 
ção in recebe informações vindas de 
uma das portas de entrada. No nosso ca- 
so, estamos interessados no teclado, que 
envia dados ao microprocessador pela 
porta 254. Queremos verificar se algu- 
ma tecla da porção inferior direita do te- 
clado — de B até BREAK/SPACE — 
foi pressionada. Assim, Id a,127 coloca 
127 dentro do acumulador para ser usa- 
do como parâmetro da instrução in. 
Juntos, os comandos ld a,127 ein a, 254 
colocam o valor enviado pela porção 
tada do teclado no acumulador. 

De Ba BREAK/SPACE existem ape- 
nas cinco teclas, cada qual representa- 
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da por um bit dentro do número envia- 
do ao microprocessador. Sobram, por- 
tanto, três bits. Se executarmos a ope- 
ração lógica or entre o conteúdo do acu- 
mulador e 224, faremos com que os três 
bits mais significativos se tornem | — 
224 é 11100000 em binário. 

Quando uma tecla não está sendo pres- 
sionada, seu bit dentro do valor enviado 
é 1. Quando ela é pressionada, este valor 
muda para zero. Para provocar uma pau- 
sano TRACE, deve-se pressionar duas te- 
clas simultaneamente: <SIMBOL 
SHIFT > e <BREAK/SPACE >. Coma 
pausa, o teclado pode ser usado normal-a 
mente para editar linhas, mesmo que o 
programa esteja “ligado”. 

Quando pressionamos <BREAK/ 
SPACE>, o bit zero do número envia- 
do passa de 1 para 0. <SIMBOL 
SHIFT > faz o mesmo ao bit um. Se nào 
pressionarmos nenhuma das duas teclas 
e cada um dos três bits mais altos for 
transformado em um, o número envia- 
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do pela porção do teclado em questão 
será 255, ou 11111111. Mas, se pressionar- 
mos as duas teclas ao mesmo tempo, o 
número enviado será 252, ou 11111100. 

Assim, quando o número enviado pe- 
la porta 254 entta no acumulador, é 
comparado com 252 pela instrução cp 
252. Se o acumulador contiver 252, e si- 
nalizador zero será estabelecido. Então, 
jr z (salto relativo se zero) faz com que 
a rotina seja repetida. Enquanto as duas 
teclas permanecerem pressionadas, as 
repetições prosseguirão. Como o nosso 
programa interrompeu o programa prin- 
cipal, este também não prosseguirá en- 
quanto o microprocessador não termi- 
nar a execução da rotina. 

Se nenhuma tecla é pressionada, o 
processador passa às instruções pop ix, 
pop hi, pop de, pop bc e pop af, que re- 
cuperam o conteúdo original dos regis- 
tros anteriores à interrupção. 

A instrução ei habilita a ocorrência 
de interrupções e ret faz o microproces- 
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sador voltar ao interpretador BASIC, 
que continuará a execução do progra- 
ma principal. 

A última instrução da listagem As- 
sembly, defw posn, não terá códigos 
correspondentes no programa-objeto 
que o Assembler vai criar. Esse tipo de 
instrução é usado pelo Assembler ape- 
nas para reservar dois bytes, onde serão 
colocados números utilizados pelo pro- 
grama. No nosso caso, o que fica arma- 
zenado ali é o valor de posn. 

A instrução defw (definir dois bytes) 
reserva um espaço para colocar dados, 
permitindo também que se dê um nome 
a ele — posn, por exemplo. Outra ins- 
trução semelhante é defb, que “define 
um byte”. 


COMO ENCONTRAR 0S ERROS 


Para usar o TRACE, carregue o pro- 
grama BASIC a ser corrigido. Em segui- 
da, reserve o topo da memória com 
CLEAR 65109 e carregue o TRACE. 

Antes de rodar o programa rastrea- 
dor, grave-o em fita. Se o seu Assembler 
estiver funcionando, faça-o pela via 
usual. Assim, você gravará o programa- 
fonte, das linhas REM, junto com o res- 
to do Assembler. Quando o programa 
rastreador estiver funcionando, é melhor 
gravá-lo em fita, já montado em lingua- 
gem de máquina. Para isso, digite: 


SAVE "TRACE" CODE 65110,176 


Para carregá-lo, digite primeiro CLEAR 
65109 e, em seguida: 


LOAD "" CODE 


Se o Assembler nào estiver funcio- 
nando, use a opção de gravação do seu 
monitor. Para ligar o TRACE, digite: 


RANDOM USR 65110 


Nada acontecerá até que um progra- 
ma em BASIC seja executado, com 
RUN. Depois disso, aparecerão no ví- 
deo o número da linha e o código do co- 
mando que estiver sendo executado. 

O próblema mais fácil de se detectar 
com o auxílio do programa rastreador 
é o “laço sem fim”. Se você observar 
que os mesmos números de linha se re- 
petem mais e mais vezes, pode estar cer- 
to de que há algo errado em algum GO- 
TO. Por outro lado, se certas linhas 
nunca forem executadas, é provável que 
algum IF...THEN contenha condições 
erradas. Caso queira observar os even- 
tos mais detalhadamente, use a pausa. 

Para desligar o programa rastreador, 
digite: 


RANDOM USR 65120 


—— 
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ARTE GRÁFICA 
EM SEU MICRO 


Conhecendo mais a fundo os comandos 
gráficos de seu micro, você poderá 
fazer melhor uso dos recursos 
disponíveis. E mais: saberá contornar 
todas as suas limitações. 











Já reunimos muita informação a res- 
peito dos comandos gráficos. Ainda as- 
sim, é possível que não estejamos fazen- 
do o melhor uso deles. 

Os comandos de cor, por exemplo, 
são muito mais versáteis do que parecem 
à primeira vista e fazem muito mais do 
que simplesmente pintar blocos. Aqui 
estão algumas idéias e técnicas que tal- 
vez o ajudem a aprimorar seus gráficos. 


Os comandos PLOT e DRAW do 
Spectrum podem ser usados de várias 
maneiras, mas sabemos que nem sem- 
pre produzem o efeito desejado. Mui- 
tas vezes, isto se deve às limitações da 
tela de alta resolução gráfica, que não 
aceita cores diferentes em pontos adja- 
centes dentro de um mesmo quadrado 
na tela de texto. Mas há outros fatores 
que interferem nos resultados. O melhor 
a fazer é tentar aproveitar ao máximo 
o efeito obtido, seja ele qual for. 

Por exemplo, se o método de som- 
breamento utilizado apresenta um resul- 
tado pouco uniforme, elabore o progra- 
ma de modo que o efeito pareça propo- 
sital. E se algumas cores estão se sobre- 
pondo em certas áreas do trabalho, ou 
se você precisa de mais de duas cores 
num mesmo quadrado, projete o dese- 

. nho de modo que qualquer mudança de 
cor aconteça num novo quadrado. 

Restarão ainda os problemas com as 
curvas mas, com um certo esforço, será 
possível diminuir seus efeitos. 

O importante é que, diante da impos- 
sibilidade de obter um determinado efei- 
to, você pelo menos esteja preparado 
para adaptar e usar todos os recursos 
disponíveis. Daí, sim, na medida em que 
aprendermos mais sobre a máquina, 
procuraremos desenvolver novos méto- 
dos de refinamento do desenho. 


COMO SOMBREAR A TEI 


Sabemos que o Spectrum dispóe de 
eficientes recursos para a elaboracáo de 
desenhos (veja artigos das páginas 113 
e 232, por exemplo). 

Mostraremos agora como sofisticar 
ainda mais os gráficos, explorando me- 


Ihor o$ comandos de desenho e de cor 
que já conhecemos. E por que nào au- 
mentar nosso repertório de figuras ou 
aprender a utilizá-las como base para 
outras? 

Este pequeno programa desenha pon- 
tos em posições aleatórias. Observe 
quanto tempo leva para preencher a te- 
la toda. 


10 LET x=INT (RND*256) 
20 LET y=INT (RND*176) 
30 PLOT x,y 
40 GOTO 10 


Como você viu, demora bastante, o 
que torna o método pouco aconselhá- 
vel para quem quer preencher comple- 
tamente uma grande área num gráfico. 
Entretanto, o programa é muito útil 
quando se pretende sombrear uma área 
— e isto ele faz com certa rapidez. 

Com o simples acréscimo de uma li- 
nha criamos um efeito ainda melhor. 


Adicione a seguinte linha a seu progra- 
ma e rode-o novamente: 


25 IF (X>35 AND X<90) AND (Y> 
35 AND Y<90) THEN GOTO 10 


Logo se observa que o computador 
vai deixando um quadrado limpo de 
pontos — ou seja, vazio. A linha 25 ve- 
rifica se os valores de x e y estão entre 
35 e 90; o computador salta, em segui- 
da, para a linha 10, para gerar novos va- 
lores. Obtemos, então, uma área vazia 
entre 35 e 90, em ambas as direções; 
forma-se, assim, um quadrado nessas 
coordenadas. 

Poderíamos utilizar essa técnica num 
jogo: por exemplo, depois de escrever 
algo num quadrado, o resto da tela se- 
ria preenchido gradualmente, enquanto 
as palavras continuariam visíveis. A 
mesma técnica também será útil para 
destacar uma mensagem na tela, como 
o título de um programa ou jogo. 









































ADAPTAÇÃO DOS MAIS SOBRE O 
RECURSOS DISPONÍVEIS CIRCLE E O PAINT NO MSX 

п USE MELHOR AS CORES Ш PSET, PRESET E COLOR 

: п COMO SOMBREAR E COLORIR NO TRS-COLOR 
q A TELA DO SPECTRUM M O FLASH NO APPLE 

As condições na linha 25 parecem ser que quisermos — experimente, рог Mais adiante, em outro artigo, vere- 

t complicadas. No artigo da página 34, vi- exemplo, substituir o AND entre parén- mos como fazê-lo. Por enquanto, fica- 


mos como usar AND e OR para incluir 

2 mais de uma condigáo num IF...THEN. 

a O significado dessas funções coincide 

exatamente com a tradução dos dois ter- 

mos — ou seja, E e OU, respectivamen- 

te. Na linha 25, portanto, x tem que ser 

maior que 35 AND (E) menor que 90, 

AND y tem que ser menor que 90 AND 

maior que 35; só assim o computador 
executará o GOTO 10. 

Os parênteses entre as duas metades 

da linha separam as condições para x e 

y (que na verdade são as mesmas, mas 

devem ser separadas por um AND). No 

nosso exemplo, poderíamos retirar os 

parênteses, pois utilizamos somente 

AND. Caso usássemos tanto AND 

quanto OR, os parénteses seriam essen- 

ciais. Veremos o que o OR faz no exem- 

plo seguinte. Podemos mudar a área que 

pretendemos deixar intacta da maneira 




































teses por um OR. Em vez de quadrado 
vazio, obteremos uma cruz. 
Mude a linha 25 para: 


25 IF (X>110 AND X«145 AND Y>40 
AND Y<136) OR (X>40 AND X< 
215 AND Y>70 AND Y<100) THEN 
GOTO 10 


Você pode deixar qualquer área va- 
zia, mas não se esqueça de que, quanto 
mais complicada for esta área, mais con- 
dições terá o IF... THEN, e mais tempo 
o computador levará para verificá-las. 
Mesmo um triângulo — ou um círculo 
— requer muitas condições e, assim, о 
computador demorará para desenhar os 
pontos. Aconselhamos, no caso de som- 
breamento, restringir as áreas a linhas 
horizontais e verticais, pois elas levam 
menos tempo para serem verificadas e, 
portanto, aparecem logo na tela. 


ЕМНО Е СОЯ 


Em artigos anteriores vimos como 
desenhar no Spectrum figuras bastante 
detalhadas. Os principiantes em progra- 
mação gráfica, porém, deparam-se com 
um problema: de um modo geral, essa 
máquina apresenta uma grande limita- 
ção quando se trata de desenhar uma fi- 
gura e sombreá-la com cor. Caso não 
saiba do que estamos falando, veja este 
exemplo: 


5 BORDER 7: 
CLS 

10 FOR x=1 TO 10 
20 PRINT " E 
30 NEXT x 
40 PLOT 


PAPER 7: INK 4: 





>” 
INK 2;0,175 
50 DRAW INK 2;120,-80 
60 INK 1: CIRCLE 100,95,50 

O programa preenche uma área em 
verde, usando blocos gráficos, depois tra- 
ça uma linha diagonal vermelha e um cir- 
culo azul — pelo menos, deveria ser as- 
sim. Na prática, porém, todos os quadra- 
dos por onde a linha passa mudam de 
cor. É claro que existem maneiras de se 
evitar que isso ocorra, mas a maioria de- 
las precisa de longos programas para que 


remos com uma alternativa simples: evi- 
tar as áreas problemáticas. Foi o que fi- 
zemos nos programas de gráficos ante- 
riores, como o do campo de golfe, apre- 
sentado na página 233. Nesse caso, es- 
colhemos primeiro a cor da tela e, de- 
pois, desenhamos as linhas, observando 
que nenhuma delas passasse sobre áreas 
já ocupadas por caracteres gráficos. 
Para que você entenda melhor e, ao 
mesmo tempo, experimente um traba- 
lho com arcos, digite o programa a se- 
guir. Ele desenha um carro colorido. 


80 BORDER 2: PAPER 6: INK 0: 
CLS 

90 FOR n=8 TO 15 

100 CIRCLE 80,47.n: CIRCLE 180 
,47,n 

110 NEXT n 


120 PLOT 62,51: DRAW 38,-5,-PI 
130 DRAW 60,0: DRAW 40,0,-PI 
200 FOR n=1 TO 10: READ a,b,c: 
DRAW a,b,c: NEXT n 

210 PLOT 112,48: DRAW 45,0: 
DRAW 22,20,-PI/2 

220 DRAW 7,15: DRAW -35,23: 
DRAW -40,0: DRAW 0,-58 

230 PLOT 115,104: DRAW 34,0: 


DRAW 30,-19 
240 DRAW -64,-5,-.25: DRAW O, 
24 


250 PLOT 40,83: DRAW 52,5,.3: 
DRAW 6,20,.3 

260 PLOT 30,55: DRAW -5,1: 
DRAW 0,5: DRAW 5,1 

270 PLOT 240,56: DRAW 5,1: 


DRAW 0,5: DRAW -5,1 
280 PLOT 36,75: DRAW INK 2; 
184,0 


290 PRINT OVER 1; INK 2;AT 13 
,4;"E" ;AT 13,28;"El" 
300 FOR n-31 TO 0 STEP -1: 


PLOT 0,n: DRAW INK 4;255,0: 
NEXT n 

500 DATA 40,8,.2,0,10,0,-30,15 
.-2,-20,5,.2 

510 DATA -40,25,0,-60,-2,.1, 
-50,-25,.2 


520 DATA -10,-20,-.25,0,-8,0, 
31,-3,.2 


As linhas 90 a 110 desenham uma sé- 
rie de círculos, cada um maior que o an- 
terior, formando as rodas do carro. O 
Spectrum náo consegue tracar círculos 
perfeitos numa área quadrada. Em con- 
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segiiência das diferenças de curvatura, 
alguns pontos se perdem, ou melhor, 
não são incluídos em curva alguma. Co- 
mo esses pontos não são desenhados, o 
pneu do carro adquire uma aparência 
pontilhada. Poderíamos encarar tal efei- 
to como um problema, mas não há ra- 
zão para isso, já que, na verdade, a ro- 
da ganhou um visual ainda mais realís- 
tico. Como afirmamos, para se desenhar 
bem é necéssário fazer bom uso das ca- 
racterísticas da máquina, e náo se atra- 
palhar com elas. 

A linha 120 desenha um ponto na 
coordenada 62,51, que é a posição ini- 
cial das linhas que formam o carro. 
Usando o laço FOR...NEXT na linha 
200, e as linhas 120 e 130, o Spectrum 
lê (READ) as informações necessárias 
para desenhar (DRAW) o contorno do 
carro. Os dados (DATA) para o laço 
FOR...NEXT estão nas linhas 500 a 
520. Note que todas as curvas estão na 
forma x, y, z, que é o comando para de- 
senhar uma linha curva, ou seja, um ar- 
co, cuja curvatura é especificada pòr z. 

Os primeiros dois números são os 
mesmos de sempre: definem o quanto 
acima e o quanto à direita do último 
ponto queremos o próximo ponto. O 
terceiro número especifica o ângulo da 
curva. O comando que desenha o capô 
curvo do carro é DRAW 38, -5— PI. 
Tente mudar o último número (PI é 
mais ou menos 3,14) e veja a diferença 
de curvatura do capô. 

Os detalhes internos ao contorno 
constituem seções do programa: a por- 
ta e seu vidro estão nas linhas 210 a 240; 
o vidro traseiro, na linha 250; os pára- 
choques, nas linhas 260 a 270 e a lista 
na linha 280. As linhas 290 e 300 sim- 
plesmente dão um toque colorido ao de- 
senho: a linha 290 coloca as lanternas 
(vermelhas) e a linha 300 faz a grama 
sob o carro. 

Posicionando cuidadosamente o car- 
ro e a grama, evitaremos o problema de 
ter duas cores num mesmo quadrado. 
Observe, no programa acima, a grama 
sob o carro. Este foi posicionado com 
suas rodas chegando até o fundo de um 
quadrado, de modo que o ponto seguin- 
te (onde comega a grama) fica em ou- 
tro quadrado, náo interferindo, assim, 
na cor dos pneus. 

Como se vé, é necessário planejar em 
detalhes a posigáo de cada elemento. 
Mas nem sempre isso é possível: no nos- 
so caso, por exemplo, a listra vermelha 
altera a cor de algumas partes do carro. 
O importante, porém, é evitar alteragóes 
de cor nos lugares onde elas apareceriam 
muito. 

Para praticar com o DRAW, acon- 
selhamos que tente mudar algumas par- 


tes do carro; somente assim será possí- 
vel saber exatamente o que cada linha 
faz e, ao mesmo tempo, familiarizar-se 
com o comando. O ideal seria podermos 
imaginar a figura acabada sem precisar 
desenhá-la desde o começo. 


0 USO DO FLASH 


O FLASH, um comando de utiliza- 
ção muito simples, é ideal para destacar 
mensagens na tela, principalmente em 
jogos. Ele não usa parâmetro nenhum 
e, em geral, vem antes do comando 
PRINT. Não se esqueça, porém, de que 
o FLASH é um comando separado do 
PRINT: por essa razão, deve vir numa 
outra linha ou separado por dois pon- 
tos. Exemplo: 


FLASH:PRINT” PISCA-PISCA ” 


Quando o computador encontra o 
comando FLASH em uma linha de pro- 
grama, ele faz “piscar” tudo o que for 
mandado para a tela a partir daquela li- 
nha, ou seja, o conteúdo de todos os 
PRINT que vierem depois de FLASH. 
O FLASH mostra alternadamente o in- 
verso e o normal dos caracteres exibidos 
na tela. 

Digite e rode o seguinte programa: 


10 HOME : VTAB 10 
20 FLASH 
30 PRINT "ISTO ESTA PISCANDO” 
40 FORT = 0 TO 2000: NEXT 
50 HOME : VTAB 10 
60 PRINT " ISTO TAMBEM 
70 FOR T - 0 TO 2000: NEXT 
80 GOTO 10 
Tecle <CTRL-C> para parar e liste 
o programa. Tudo continua piscando, 
pois o FLASH ainda está ativado. Para 
desativá-lo, digite NORMAL e aperte 
a tecla < RETURN >. Liste novamente. 
O comando NORMAL desativa o 
FLASH e pode ser usado tanto dentro 
de programas como fora deles ou, em 
outras palavras, tanto no modo direto 
como no indireto. Substitua as linhas 
60, 70 e 80 e adicione a linha 90. As mo- 
dificações são as seguintes: 


60 NORMAL 

70 PRINT "ISTO NAO ESTA” 
80 FOR T - 0 TO 2000: NEXT 
90 сото 10 


Se apertarmos <CTRL-C> no “IS- 
TO NÃO ESTÁ” e depois listarmos o 
programa, veremos que a listagem não 
pisca, pois interrompemos o programa 
quando este estava em modo NOR- 
MAL. Mas, se apertarmos <CTRL-C> 
no “ISTO ESTÁ PISCANDO”, a lis- 


tagem também piscará, pois interrom- 
pemos o programa no modo FLASH, 
ou melhor, com o FLASH ativado. 

O comando INVERSE mostra os ca- 
racteres em modo inverso, ou seja, le- 
tras pretas num fundo branco. 

O programa que se segue faz a apre- 
sentação dos três comandos em seus res- 
pectivos modos. 


10 HOME : УТАВ 10 

20 FLASH 

30 PRINT : PRINT " FLASH ^" 
40 GOSUB 110 

50 INVERSE 

60 PRINT : PRINT " INVERSE " 
70 GOSUB 110 

80 NORMAL 

90 PRINT : PRINT " NORMAL" 
100 END 


110 FORT = O TO 2000: NEXT 
120 RETURN 


O programa que apresentamos a se- 
guir emprega gráficos já vistos e pode- 
ria ser usado para ensinar inglês a 
crianças. 

O programa desenha figuras para as 
três primeiras letras do alfabeto. Para 
aletra A, desenha uma “apple” (maçã); 
para a letra B, uma “ball” (bola) e, pa- 
ra a C, um “cat” (gato). A ampliação 
do programa, ou seja, o desenho de fi- 
guras para as outras letras, ficará a car- 
go de cada um. A figura relacionada á 
letra D poderia ser, por exemplo, um 
“dog” (cão) e estaria situada a partir da 
linha 4000. Para dizer ao computador 
aonde ir caso a letra escolhida seja a D, 
basta acrescentar uma vírgula e 4000, 
depois do 3000 na linha 60. A figura da 
letra E poderia ser colocada a partir da 
linha 5000 e assim por diante. 

Se quiser aperfeiçoar o programa, es- 
creva também o nome da figura e a le- 
tra escolhida, como mostram as ilustra- 
ções da bola e do gato. Para isso, utili- 
ze a sub-rotina que desenha letras em te- 
la de alta resolução, já apresentada mais 


— 























шү 


de uma vez em INPUT (por exemplo, 
no artigo da página 354). Deixamos a 
adaptação desta sub-rotina como um de- 
safio a programadores mais experientes. 


5 SCREEN 0:COLOR 1,15,15 

10 PI=4*ATN(1) :CLS:LOCATE 9,10 
20 PRINT"ME DE UMA LETRA => ?" 
30 AS=INKEYS: IFAS<"A"ORAS>"Z"TH 
EN30 

40 LOCATE 28,10:PRINTAS 

50 FORT-1TO500:NEXT 

60 A=ASC(AS)-64:0N A GOTO 1000, 
2000,3000 

70 GOTO 30 

1000 SCREEN2:COLOR15,11,12:CLS 
1010 CIRCLE (128,96),40,6,,,1 
1020 PAINT(128,96),6 

1030 FOR Z=1 TO 50 STEP .3 
1040 PSET((100+2*.5)+RND(1)*25, 
80+RND(1)*40),15 

1050 NEXT 

1060 CIRCLE (90,70),40,12,0,P1/2 
.1 

1070 CIRCLE(112,50),10,12,,,.5 
1080 CIRCLE(140,55),10,12,,,.5 
1090 PAINT(112,50),12 

1100 PAINT(140,55),12 

1110 GOTO 3280 

2000 SCREEN2:COLOR15,1,9:CLS 
2010 Cl-INT(RND(1)*14)*1 

2020 C2=INT(RND(1)*14)+1 

2030 CIRCLE (128,96),10,C1,,,.7 
2040 CIRCLE (128,96),50,C1,,,.7 
2050 PAINT(140,90),C1 

2060 CIRCLE (128,96),30,C2,,,.7 
2070 CIRCLE (128,96),10,C2,,,.7 











2080 PAINT(140,90),C2 

2090 GOTO 3280 

3000 SCREEN2:COLOR1,3,4:CLS 
3010 REM CORPO/CABECA/OLHOS 
3020 CIRCLE (128,106),40,1,,,1.5 
3030 CIRCLE (128,46),20,1,,,1.15 
3040 CIRCLE (121,40),5, 
3050 CIRCLE (135,40),5,1 
3060 PAINT(128,46),1 
3070 PAINT(128,106),1 
3080 REM ORELHAS 

3090 X1=108:X2=113:X3=103 

3100 LINE(X1,15)-(X2,28),9 
3110 LINE(X1*40,15)-(X2*40,28) , 
9 

3120 LINE(X2,28) - (X1,41),9 

3130 LINE (X2+40,28)-(X1+40,41), 
9 

3140 LINE (X1,41)-(X3,28),9 

3150 LINE (X1+40,41)-(X3+40,28), 
9 

3160 LINE (X3,28)-(X1,15),9 

3170 LINE (X3+40,28)-(X1+40,15), 
9 

3180 PAINT(105,28),9:PAINT(150, 
28),9 

3190 REM CAUDA 

3200 CIRCLE(75,106),35,1,1.2*PI 
,1.8*PI,1 

3210 CIRCLE (75,106),33,15,1.2*P 
I,1.8*PI,1 

3220 СІНСІ.Е(128,50),1,15,.,1 
3230 REM BIGODE 

3240 LINE(128,52)-(150,55),15 
3250 LINE(128,52)-(150,53),15 
3260 LINE(128,52)-(106,55),15 
3270 LINE(128,52)-(106,53),15 
3280 FOR T-0 TO 2000:NEXT:GOTO 5 











Logo no início, o programa pede por 
uma letra. A linha 60 é responsável pe- 
lo cálculo do valor da letra, que será 
guardado na variável A, e também pela 
escolha da sub-rotina relacionada à le- 
tra escolhida. No nosso programa, se a 
letra escolhida foi A, B ou C o progra- 
ma saltará para a linha 1000, 2000 e 
3000, respectivamente. Na linha 60, nào 
há opção para as letras maiores que C; 
para estas letras, o programa volta pa- 
ra a linha 30. 

A sub-rotina que desenha a maçã co- 
meça na linha 1000. As linhas 1030 a 
1050 desenham pontos brancos em po- 
sições aleatórias, para dar um visual 
mais realista ao desenho. A linha 1060 
desenha um arco que vai de 0 a PI/2 
graus, representando o pequeno caule. 

A bola começa na linha 2000; C1 e 
C2 são cores aleatórias de números 1 a 
15. Suponhamos que a bola esteja divi- 
dida em duas: a bola maior, que será 
pintada na cor Cl, e a bola menor (den- 
tro da maior), que receberá a cor C2. 
Pintamos a bola maior primeiro porque, 
no MSX, a cor com que colorimos a fi- 
gura deve ser a mesma do seu contor- 
no. Seria impossível, por exemplo, fa- 
zer em branco o círculo que divide as 
duas bolas e, depois, pintar a maior de 
azul e a menor de verde. Nenhuma cor 
utilizada para colorir aceitará outra cor 
como delimitação de contorno. Nossa 
saída foi desenhar na cor Cl a bola 
maior e pintá-la nessa cor, antes de de- 
senhar e, também, pintar na cor C2 a 
bola menor. Observe que foi preciso re- 
desenhar o círculo menor na cor C2 (li- 
nha 2070) para que a bola menor o acei- 
tasse como parte dela. Omita a linha 
2070 para ver o que acontece. 

A sub-rotina que desenha o gato co- 
meça na linha 3000. As linhas 3110, 
3130, 3150 e 3170 desenham a orelha es- 
querda, que está 40 pontos à direita da 
outra — por isso somamos 40 às mes- 
mas coordenadas x da outra orelha. As 
linhas que desenham a cauda — 3200 e 
3210 — seguem o mesmo princípio do 
desenho do caule, na linha 1060. A li- 
nha 3220 desenha o nariz. 


Já vimos como usar o PSET no de- 
senho de círculos e curvas seno e cosse- 
no. Vamos agora explorar um pouco 
mais seu funcionamento e o de seus re- 
lacionados PRESET, PCLS e COLOR. 


МАМОО Р$ЕТ 


Podemos dizer que o PSET “acen- 
де”, na cor escolhida, a menor unida- 























de gráfica em qualquer PMODE. 

No PMODE 4, somente um ponto é 
aceso; nos PMODE 2 e 3, acendem-se 
dois pontos ao mesmo tempo, e nos 
PMODE 0 e 1, quatro. Não confunda 
o PSET empregado dessa maneira com 
o PSET usado anteriormente no coman- 
do LINE (veja o artigo da página 113). 

Rode este programa: 


10 PMODE 0,1 

20 PCLS 

30 SCREEN 1,1 

40 FOR X=0 TO 255 

50 Z-(X-127)/10 

60 Y=95-150*Z/(1+2*Z) 

70 IF Y<O OR Y>191 THEN 90 
80 PSET (X,Y,5) 

90 NEXT 

100 GOTO 100 


O programa desenha um gráfico no 
modo de duas cores, mas poderia tam- 
bém desenhá-lo em PMODE 4 ou PMO- 
DE 2. Este é o gráfico de uma função 
matemática obscura e foi escolhido por- 
que produz um traço interessante. 

Ao usar PSET devemos dizer à má- 
quina onde queremos acender o pon- 
to (ou conjunto de pontos) e em que 
cor. As cores disponíveis dependem do 
PMODE utilizado ou do conjunto de 
cores escolhido. 

A cor da tela será a que tiver menor 
número, entre as cores disponíveis no 
conjunto escolhido, a não ser que quei- 
ramos mudá-la. 

Como veremos mais tarde, quando 
usarmos PSET no modo de duas cores 
precisaremos especificar a cor de maior 
número; caso contrário, não veremos 
nada. No modo de quatro cores, a si- 
tuação é diferente, já que podemos es- 
colher qualquer uma das três cores de 
maior número. 

Retornando ao programa: o conjun- 
to de cores preto e amarelo foi escolhi- 
do na linha 30. As linhas 40, 50 e 60 cal- 
culam valores para x e y e a linha 80 
acende o ponto na coordenada x, y. O 
último argumento é a cor que o ponto 
receberá — no nosso caso, 5 (amarelo). 


MODO DE QUATRO CORES 


Tente mudar a linha 10 para: 
10 PMODE1,1 


Agora, rode o programa novamente, 
Não se preocupe se nada acontecer — é 
isto o que se espera. Na verdade, estamos 
acendendo pontos em amarelo num fun- 
do também amarelo. Temos que mudar 
o último argumento do PSET, na linha 
80, para selecionar uma cor diferente. 
Neste conjunto de cores, podemos esco- 
Iher entre ciano (6), magenta (7) e laran- 
ja (8). Tente mudar o argumento 5, na li- 
nha 80, para 6, 7 ou 8. Se quiser, mude 
o conjunto de cores na linha 30 para: 


30 SCREEN1,0 


Agora, podemos usar cores de núme- 
ros 1 a 4, embora 1 acenda o ponto na 
mesma cor do fundo. 

Só como curiosidade: se escolher- 
mos o conjunto de cores 0 e usarmos 5, 





6, 7 ou 8 como último argumento do 
PSET, a máquina nào enviará mensa- 
gem de erro, pois automaticamente sub- 
trai 4 dos nümeros. 


0 COMANDO PRESET 


O PRESET é o inverso do PSET, ou 
seja, ele “apaga” o ponto especificado 
nos argumentos entre parênteses. Pode- 
se também imaginar o PRESET como 
acendendo um ponto, ou conjunto de 
pontos, na mesma cor do fundo. 

Para observar o funcionamento do 
PRESET, rode o programa novamente 
e, então, mude a linha 80 para: 


80 PRESET(X,Y) 


Mas preste atenção: não use o co- 
mando RUN para rodar o programa 
com a linha alterada, pois se o fizer a 
tela será limpa. 

Para verificar como o PRESET apa- 
ga ponto por ponto, digite GOTO 30 e, 
em seguida, tecle <RETURN>. 
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A.COR DA TEI 


É possível mudar a cor da tela para 
qualquer uma das cores do conjunto es- 
colhido. Para isso, basta acrescentar o 
nümero da cor junto ao PCLS, na linha 


Supondo que a linha 30 seja 
8СКЕЕМІ,1, tente as seguintes mudan- 
ças na linha 20: PCLS6, PCLS7 e 
PCLS8. PCLSS tem o mesmo efeito de 
PCLS, pois ambos limpam a tela na cor 
amarela. Terminadas as mudanças, fa- 
ça a linha 20 PCLS novamente. 


E PRIMEIRO PLANO 


Como vimos no artigo da página 113, 
o comando LINE usa PSET e PRESET 
de uma maneira diferente da que aca- 
bamos de ver. Quando empregado com 
o comando LINE, o PSET diz ao com- 
putador para desenhar na cor do primei- 
ro plano e o PRESET diz que o dese- 


nho deve ser feito na cor do fundo. 

Quando ligamos o TRS-Color, a cor 
do primeiro plano é a de maior número 
do conjunto de cores (veja seu manual 
para os números das cores) e a cor de 
fundo é a de menor número. 

Mas suponha que estamos num mo- 
do de quatro cores e queremos traçar 
uma linha em uma das outras cores do 
conjunto. Não teremos problema, pois 
existe um comando em BASIC que nos 
permite escolher as cores do fundo e do 
primeiro plano. 

Digite este programa para ver como 
funciona o comando COLOR: 

10 PMODE 3,1 

20 PCLS 

30 SCREEN 1,0 

40 FOR K=1 TO 4 

50 FOR J=1 TO 4 

60 COLOR K,J 

70 LINE(0,50*K*10*J-55)-(255,50 
*K*10*J-55),PSET 

80 LINE (0,50*K*10*J-52)-(255,5 
0*K*10*J-52),PRESET 

90 NEXT J,K 

100 GOTO 100 


O programa desenha pares de linhas 
paralelas, uma na cor de fundo e outra na 
cor de plano. Náo se pode ver todas as li- 
nhas, pois o fundo ou o plano ajustados 
em verde coincidem com a cor da tela. 

O comando COLOR na linha 60 pro- 
duz a variação das cores. Observe que 
os comandos LINE não são alterados 
durante o programa, exceto nas coorde- 
nadas finais. 

O primeiro número depois do coman- 
do COLOR é a cor do plano e o segun- 
do, a cor do fundo. Nada impede que 
a cor do fundo seja a mesma do plano, 
embora não haja muita utilidade nisso. 

Se usarmos somente PCLS no pro- 
grama, as cores de fundo e tela serão 
iguais, mas, se especificarmos um núme- 
ro junto ao PCLS, as cores podem ser 
diferentes. Da mesma maneira, a cor do 
plano nem sempre é a mesma cor com 
que desenhamos. O único comando grá- 
fico que faz uso das cores de plano e 
fundo é o LINE e, como vimos, ainda 
assim podemos desenhar tanto na cor de 
fundo como na de plano. 
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сы 


Agora que você já viu como programar 
uma aventura, é hora de partir para 
criações originais. Eis como usar 

o jogo de INPUT como base para 
elaborar o seu próprio programa. 








A esta altura, vocé deve ter um jogo 
completo de aventura gravado em fita. 
Durante seu desenvolvimento, vimos co- 
mo reunir no programa os elementos 
que o compõem. Agora, você aprende- 
rá a utilizar o jogo já pronto como base 
para elaborar suas próprias aventuras. 

Algumas dicas de como proceder pa- 
ra fazer seu jogo foram dadas ao longo 
dos últimos artigos. Todos os detalhes 
serão tratados aqui em maior profundi- 
dade. 
Nem sempre poderemos ser muito es- 
pecíficos sobre as alterações necessárias, 
uma vez que elas dependerão muito das 
características da sua aventura; mas você 
poderá fazê-las com facilidade, se seguir 
as instruções. Algumas técnicas parecerão 
confusas no início, mas, começando com 
uma aventura simples e curta, você logo 
se sentirá à vontade para programar jo- 
gos mais complexos. Não tente fazer mui- 
tas alterações de uma só vez; vá devagar, 
estudando as seções deste artigo e fazen- 
do as alterações uma a uma. 

Comandos BASIC que não foram 
bem compreendidos podem se tornar 
mais claros com uma consulta à seção 
de programação BASIC correspon- 
dente — um grande número de coman- 
dos já foi abordado por essa seção de 
INPUT. 


Os usuários do TK-2000 e do Spec- 
trum de 16k não poderão estender mui- 
to sua aventura, o que não significa que 
não possam aumentá-la um pouco ou 
acrescentar outros locais. Sempre é pos- 
sível, por exemplo, trocar alguma carac- 
terística da aventura por um novo local; 
tudo dependerá do que se considerar 
mais importante. 


A ESCOLHA DO TEMA 


Antes de escrever sua aventura, será 
preciso escolher uma trama ou história. 

A estrutura de uma aventura bem- 
sucedida em geral não foge a certos pa- 
drões — há começo, meio e fim, orde- 
nados conforme a seqüência em que os 
problemas devem ser resolvidos. Mas 
não é necessário ser Agatha Christie pa- 
ra programar aventuras. Existem mui- 
tas fontes de idéias, como você já deve 
ter percebido; em todo caso, aqui vão 
algumas sugestões. 

Podemos basear nossa aventura em 
um assassinato. O jogo começaria, por 
exemplo, numa sala, onde um corpo es- 
faqueado jaz sem vida sobre o tapete en- 
sangüentado. O objetivo do aventureiro 
seria descobrir o assassino. Substituiría- 
mos, então, o fiscal da Receita por um 
tipo mal-encarado — ou pelo mordomo. 





Ele poderia ajudar ou atrapalhar o jo- 
gador com pistas verdadeiras ou falsas, 

Se você quiser manter o tema da ““ca- 
ça ao tesouro", encontrará várias mą- 
neiras de utilizá-lo. Recorra, por 
exemplo, ao clichê tradicional, com pi- 
ratas e tudo, ou transforme o jogador 
em sobrevivente de um desastre aéreo 
que vitimou todos os membros de uma 
expedição. Mandar o jogador rumo ao 
futuro, por outro lado, pode ser uma 
boa idéia. Procurando novos mundos, 
ele acaba preso em um planeta hostil, 
anos-luz distante da civilização, por cau- 
sa de um defeito em sua nave espacial. 
O jogador teria como objetivo achar um 
jeito de voltar à Terra. Os locais pode- 
riam ser cheios de perigo e haveria bas- 
tante espaço para incluir — ou ocultar 
— diversas rotas de fuga. 

Esta idéia de fuga sugere outros te- 
mas de aventuras, em que o objetivo do 
jogador seria, por exemplo, escapar de 
lugares como Alcatraz, San Quentin ou 
o Presídio da Ilha Grande. Use livros e 
jornais como fontes de inspiração. Tal- 
vez você até encontre um mapa do lu- 
gar real para fazer o mapa da aventura! 

Casos de espionagem 
podem dar aventuras interessan- 
tes, assim como fatos históricos. 

As cruzadas, por exemplo, podem 
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se revelar um cenário muito interessan- 
te, assim como qualquer outra guerra ou 
batalha. 

E, como sugestão final, um tema da 
moda; o aventureiro sobrevive ao holo- 
causto nuclear. Os elementos para o jo- 
go são quase infinitos: mutantes, bus- 
ca de proteção contra a radiatividade, 
ameaça de gangues de bandidos famin- 
tos, procura de água e comida não con- 
taminadas e assim por diante. 


ШЫ 


A aventura de INPUT é bem pequ 

as suas logo serão bem maiores que 

Se seguirmos as instruções das pi 
nas 226 a 231, teremos um mapa que po- 
derá ser introduzido no computador, O 
mapa da nossa aventura tem 24 locais 
(6x4) e apenas 12 deles são utilizados. 
Podemos aproveitar o programa origi- 
nal — o que dá menos trabalho, mas 
exige mais habilidade — ou escrever um 
novo — o que envolve mais esforço, 
porém menos confusão, Se você 
escolher a primeira alternativa, 
deverá carregar o programa ori- 
ginal da fita ou listá-io através 
da impressora. As modifica- 
ções dependerão do tama- 











nho do novo mapa. Se ele for menor ou 
igual ao antigo, conserve a numeração 
original, Caso contrário, será preciso fa- 
zer um novo desenho, numerando-o se- 
gundo os mesmos princípios. 


маусы] 


Pronto o mapa, você deverá fazer no- 
vas descrições dos locais. Elas vão subs- 
tituir as antigas, que ficavam a partir da 
linha 5000, no programa. 

Após cada descrição, informe as pos- 
síveis saídas do local, usando as variá- 
veis N, S, Ee W, que correspondem a 
norte, sul, leste e oeste. Elas podem con- 
ter os valores 1 e 0. 0 significa que nào 
há saída naquela direção, enquanto 1 
quer dizer o contrário. O esforço de di- 
gitar linhas REM indicando os locais po- 
de valer a pena. 

Em seguida, modifique as linhas 330 
a 350 que contêm ON...GOSUB. O pri- 
meiro número que se segue ao GOSUB, 
na linha 330, se refere à linha onde o 
computador vai encontrar a descrição 
do local 1. Se não houver local 1 na sua 
aventura (não é preciso incluir todas as 
posições do mapa), O é usado. O próxi- 
mo número se refere à descrição do lo- 
cal 2, e assim por diante. Cada posição 
do mapa deve ter seu número. 





МОУІМЕКТО 


Se o tamanho do mapa for diferente 
do original, você precisará alterar as li- 
nhas 1000 a 1040 da rotina de movimen- 
to. Mais especificamente, as linhas que 
se referem às direções norte e sul — 1010 
e 1030 — devem ser modificadas se o 
mapa não tiver seis posições de largu- 
га. Isto porque, para seguir nestas dire- 
ções, subtraímos ou adicionamos 6 ao 
número do local. A nova largura do ma- 
pa deve substituir o 6. 





ro. No entanto, se o número de objetos 
for muito grande, pode-se optar por co- 
locar mais de um por linha. Em todo ca- 
so, a ordem deve ser precisa, pois cada 
grupo de três dados contém elementos 
de três diferentes matrizes. A ordem é: 
número do local onde se encontra o ob- 
jeto, descrição curta e descrição longa. 
Se o objeto só aparece mais tarde na 
aventura — após ser encontrado, por 
exemplo, como o olho — ou se surge ao 
acaso, como o fiscal da Receita, o nú- 
mero do local deve ser zero. 


ONO 
OBJETOS 


Grandes modificações deverão ser 
feitas nas linhas 160 a 260, pois os ob- 
jetos certamente serão diferentes. 

O número de objetos da nova aven- 
tura dá o vajor da variável NB; deve ser 
o primeiro elemento na linha DATA 
200. Ele terá a função de dimensio- 
nar as matrizes na linha 180 e de 
determinar o tamanho de laços 
FOR...NEXT em vários pon- 
tos do programa. 

Se usarmos uma linha 
DATA para cada objeto, o 
programa ficará mais cla- 


É preciso preparar uma lista de todas 
as palavras permitidas ao jogador. Ela 
deve incluir comandos simples, como 
“AJUDAR” e “LISTAR”, bem como 
comandos com duas palavras, tais co- 
mo “PEGAR LAMPADA” e “MA- 


















TAR SENHORIO”. 

Os comandos de duas palavras divi- 
dem-seem V$e N$ — verbo e substanti- 
vo, respectivamente —, embora nem 
sempre de acordo com a definição gra- 
matical. Vamos considerar todos os co- 
mandos simples e todas as primeiras 
palavras dos comandos compostos como 
sendo verbos. Eles devem ser agrupados 
de acordo com seu significado — “MAS- 
TIGAR” e “COMER”, ou “CHEI- 
RAR” e “FAREJAR”, por exemplo, 
ficaráo juntos. Cada um desses grupos 
terá um número — anote-os, pois será 
difícil decorar a que grupo de palavras 
correspondem. 

Agora vamos alterar o programa. A 
rotina que trata dos verbos vai da linha 
110 a 150, Os verbos devem ser coloca- 
dos — cada qual seguido de seu núme- 
ro — nas linhas DATA 140 е 150. 

Não se esqueça de redimensionar as 
matrizes, na linha 130, de acordo com 
o número total de verbos utilizados. 


ROTINAS QUE ENTENDEM 0S VERBOS 


Cada categoria — ou número — de 
verbo vai precisar de uma rotina dife- 
rente. 

É difícil dar instruções específicas a 
respeito dessas rotinas, porque um ver- 
bo usado em uma aventura pode não 
servir para nada em outra. 

Contudo, algumas rotinas — como 
“PEGAR” e “LARGAR” — podem 
ser úteis em qualquer aventura. Você 
não precisará modificá-las, a menos que 
o roteiro de seu jogo seja muito inova- 
dor. Da mesma forma, não será neces- 
sário alterar a rotina “LISTAR”, nas 
linhas 1070 a 1130, caso os nomes das 
matrizes e a variável NB (número de ob- 
jetos) permaneçam os mesmos. 

Uma rotina que sempre permite adap- 
tações é a da lâmpada, já que situações 
que envolvem acendê-la são muito co- 
muns em aventuras. 

As rotinas restantes, de um modo ge- 
ral, não podem ser aproveitadas. Você 
precisará, assim, escrever novas rotinas. 
Ao fazê-lo, lembre-se de que uma das 
finalidades é verificar se o jogador es- 
colheu corretamente o objeto e o local 
para executar aquilo que o verbo indi- 
ca. Se o local não é adequado, o pro- 
grama deve orientá-lo com mensagens 
do tipo “AQUI NÃO”. Seja qual for 
o resultado da ordem dada, o jogador 
precisa ser informado — isto é, qualquer 
palavra que entre no computador deve 
provocar uma mensagem. 

Depois de planejar as rotinas de exe- 


numeração parecida com a da aventura 
de INPUT, o lugar dessas rotinas é en- 
tre as linhas 1070 e 2999. 

O computador selecionará a rotina 
correspondente ao verbo usado pelo jo- 
gador. A linha 510 é a responsável por 
isso, e deverá ser modificada. Para tan- 
to, consulte os números de sua lista de 
verbos. Coloque, então, na frente do 
ON...GOTO, o endereço inicial das ro- 
tinas, na mesma ordem numérica da lis- 
ta dos verbos correspondentes. 


TINA DE AUXÍLIO 


A última rotina a ser modificada é a 
que trata de “AJUDAR” o jogador. 
Verifique onde esse auxílio é necessário 
e use IF... THEN para dar uma mãozi- 
nha ao aventureiro. 

Outras características da aventura 
original devem ser modificadas ou eli- 
minadas, conforme as exigéncias do no- 
vo jogo. É o caso, por exemplo, da 
rotina que faz o coletor de impostos 
aparecer. Há também a alternativa de 
começar o jogo em uma posição diferen- 
te; para isso, basta alterar a linha 280. 


LISTA DE VARIÁVEIS 


Para que você entenda melhor o fun- 
cionamento do programa original, fize- 
mos uma lista das variáveis e matrizes 
por ele utilizadas. 


Е80 matriz contendo os verbos e 
respostas do jogador. 
RO matriz de números de verbos. 


Elementos correspondentes das duas ma- 
trizes acima referem-se ao mesmo verbo. 


OBO matriz com o nümero do local 
onde se encontra o objeto. 

OB$ matriz com a descrição curta do 
objeto. 

SISO matriz com a descrição longa 
do objeto. 


Elementos correspondentes das três ma- 
trizes acima referem-se ao mesmo objeto. 
NB número de objetos da aventu- 
ra, usado para dimensionar 
matrizes e tamanhos de laços 


FOR...NEXT. 

L local onde o jogador se encon- 
tra no momento. 

LA sinalizador do estado da lâmpa- 


da; contém 1, se a lâmpada es- 
tá acesa, e 0, se está apagad: 





N;S,E,W saídas de um local; contém 1, 
se há saída naquela direção, e 0, 
se não há. 

I$ entrada ou resposta completa 
do jogador, antes de ser dividi- 
da em verbo e substantivo. 


vs verbo em I$. 

N$ substantivo em I$. 

I contém um nümero correspon- 
dente a um verbo; usado para 
selecionar a rotina de execução 
adequada. 

IN número de objetos que estão 
sendo carregados pelo jogador. 

A$ resposta á pergunta “Quer jo- 


gar novamente?” 

G contém o número do objeto 
deixado de lado pelo jogador 
— que é o elemento G na ma- 
triz OB. 


O funcionamento do programa do 
Spectrum é um pouco diferente, devido 
à ausência de comandos ON...GOSUB 
e ON...GOTO nesta máquina. Não há 
desvantagem nisso. O programa funcio- 
na muito bem e sua modificação não 
apresenta maiores dificuldades. 


DESCRICÓES DOS LOCAIS 


O primeiro passo para adaptar o pro- 
grama do Spectrum é incluir as descri- 
ções dos locais de seu novo mapa. 

Elas são colocadas no final do pro- 
grama, da mesma forma que na aven- 
tura original. Devem permanecer em 
ordem e seguidas da linha que contém 
as saídas — variáveis N, S, E e W, cor- 
respondendo a norte, sul, leste e oeste, 
acompanhadas dos números 1 ou 0, in- 
dicando se há ou não saída naquela di- 
reção. Não se esqueça das linhas REM, 
para saber onde está cada descrição na 
listagem. 


OVAS PALAVRAS 


Faça uma lista de todas as palavras 
que o jogador poderá usar durante o jo- 
go. Neste momento, interessam particu- 
larmente os verbos — a primeira palavra 
em um par, ou palavras usadas isolada- 
mente e que nem sempre são verbos no 
sentido gramatical. Reúna as palavras 
que têm o mesmo sentido (e, portanto, 
o mesmo efeito no desenrolar da aven- 
tura), como “PEGAR” e “APA- 
NHAR” ou “MATAR” e “ATIRAR” 


cução das ordens verbais, coloq; no TA sinalizador do coletor de ii Cada grupo precisará de um número. 
programa. Se seu programa tem uma posto: Inclua-os também na lista. 





Os verbos seguidos de seus números 
devem ser colocados nas linhas DATA 
140 e 150. Não se esqueça de deixá-los 
entre aspas. 

Deveremos ainda redimensionar as 
matrizes na linha 120 e ajustar o tama- 
nho do laço FOR...NEXT, na linha 130, 
de acordo com o número de palavras 
utilizadas. 


ROTINAS QUE ENTENDEM OS VERBO! 


Cada categoria de verbos precisará de 
uma rotina. 

É difícil dar instruções específicas so- 
bre elas, uma vez que quase sempre ser- 
vem apenas ao jogo de origem. Todavia, 
algumas das rotinas da aventura de IN- 
PUT podem ser utilizadas, pois são co- 
muns a quase todos os jogos desse 
tipo. 

É o caso de “PEGAR” e “LAR- 
GAR": fundamentais para o uso dos 
objetos, serão inteiramente aproveita- 
das. A rotina que executa a ordem 
“LISTAR” também é aproveitável, ser- 
vindo à maioria dos jogos. Sua aventu- 
ra ficará bem estranha sem uma função 
desse tipo. 

As demais rotinas dependem das exi- 
gências do seu jogo. Para ter uma orien- 
tação, observe como programamos as 
rotinas do nosso jogo. Preste atenção 
nos locais e nos objetos sobre os quais 
um determinado verbo pode ter ação. 

As rotinas devem ser capazes de ve- 
rificar se o local e os objetos da ação são 
apropriados. Devem também estar pre- 
paradas para informar os resultados ao 
jogador, imprimindo mensagens de er- 
ro quando ele pedir coisas proibidas. 

Uma vez escritas, as rotinas ocupa- 
rão o espaço entre as linhas 1390 e 2999, 
inclusive. O computador selecionará es- 
sas rotinas de acordo com o verbo usa- 
do pelo jogador. 


A MATRIZ G 


O Spectrum guarda as descrições dos 
locais e as linhas das rotinas dos verbos 
dentro da matriz G. 

O próximo passo consiste, assim, em 
colocar os números das linhas iniciais 
das rotinas em G. As linhas 40 a 70 con- 
têm os números. As primeiras três linhas 
referem-se às descrições dos locais. A úl- 
tima contém os números das linhas ini- 
ciais das rotinas dos verbos. 

As dimensões da matriz G dependem 
do número de linhas DATA e de quan- 
tos números a linha DATA mais longa 
contém. O primeiro índice no comando 
DIM G (M,N), ou seja, N, corresponde 









ao tamanho da linha DATA mais lon- 
ga. O segundo, M, à quantidade destas 
linhas. 

Coloque todos os dados nas linhas de 
40 a 70 — se eles forem muitos, use nú- 
meros de linha intermediários. Verifique 
quantos números estão incluídos na li- 
nha mais longa. Acrescente às linhas 
mais curtas tantos zeros quantos forem 
necessários para que fiquem do mesmo 
tamanho. Não se esqueça das vírgulas. 

Se os números estiverem corretamen- 
te colocados em G, as linhas 330 a 350 
vão selecionar a descrição adequada ao 
local onde se encontra o jogador. O se- 
gundo índice da matriz corresponde à li- 
nha onde se encontra o número. 
Verifique se os índices estão corretos em 
cada comando GOTO de seu novo pro- 
grama, especialmente se você aumentou 
o número de linhas DATA. 


MOVIMENTO 


Se o tamanho do mapa de sua aven- 
tura for diferente, as linhas 1000 a 1040 
deveráo ser modificadas, pois tratam do 
movimento do jogador. 

Mais especificamente, as linhas que 
tratam de movimentos para o norte e 
para o sul — 1010 e 1030 — precisam 
ser alteradas se seu mapa náo tiver seis 
locais de largura. A nova largura deve 
substituir o número 6. 


OS OBJETOS 


Grandes alterações deverão ser feitas 
nas linhas 160 a 260, uma vez que seus 
objetos serão diferentes dos da nossa 
aventura. 

Anote o número de objetos e o com- 
primento das maiores descrições (tanto 
das curtas quanto das longas). O núme- 
ro de objetos deve ser o primeiro valor 
da linha DATA 200; será usado como 
índice nos comandos DIM referentes às 
matrizes de objetos — linha 180 — e pa- 
ra determinar o tamanho de diversos la- 
ços FOR...NEXT. O segundo índice da 
matriz B$ é o comprimento da maior 
descrição curta e o segundo índice em 
SIS, o da maior descrição longa. 

Se usarmos uma linha DATA para 
cada objeto, o programa ficará mais cla- 
ro. No entanto, se o número de objgtos 
for muito grande, pode-se optar por co- 
locar mais de um por linha. Em todo ca- 
so, a ordem deve ser precisa, pois cada 
grupo de três dados contém elementos 
de três diferentes matrizes. A ordem é: 
número do local onde se encontra o ob- 
jeto, descrição curta e descrição longa. 
Se o objeto só aparece mais tarde na 


aventura — após ser encontrado, por 
exemplo, como o olho — ou se surge ao 
acaso, como o fiscal da Receita, o nú- 
mero do local deve ser 0. 


ROTINA DE AUXÍLIO 


Esta é a última rotina a ser altera- 
da. Verifique onde pode ser interessante 
“AJUDAR” o jogador. Use IF... THEN 
para fazê-lo. 

Outras características do jogo origi- 
nal, tais como a rotina que faz surgir de 
repente o fiscal da Receita — linha 320 
—, devem ser alteradas ou apagadas. 
Podemos também mudar o local onde 
começa a aventura, na linha 280. 


LISTA DE VARIÁVEIS 


Para estudar em maior profundida- 
de o nosso programa, use esta lista de 
variáveis. 


matriz contendo os números 
das linhas de descrição dos lo- 
cais e de execução de ordens do 
jogador — execução dos verbos. 
matriz com os verbos e respos- 
tas do jogador. 

matriz com os números dos 
verbos. 


со 


RSO 
RO 


Elementos correspondentes das duas ma- 
trizes acima referem-se ao mesmo verbo. 


BO matriz contendo o local onde 
cada objeto se encontra. 

BSO matriz com a descrição curta 
dos objetos. 

SISO matriz com as descriçóes longas. 


Elementos correspondentes das três ma- 
trizes acima referem-se ao mesmo objeto. 


NB número de objetos da aventu- 
га. 

L posição do jogador. 

LA ШОР de estado da lâm- 


рай 
Nb wsaídas de um local. 
resposta completa do jogador. 


% verbo em I$. 

N$ substantivo em 1$. 

1 contém um número correspon- 
dente a um grupo de verbos. 

IN número de objetos carregados 
pelo jogador. 

AS contém a resposta á pergunta 
“Quer jogar novamente?” 

G contém o número do objeto 


deixado de lado pelo jogador — 
elemento G da matriz B. 














ICAO NO TRS-80 


E NO TRS-COLOR 


E COMO TIRAR O MÁXIMO 
3 DO COMANDO EDIT 
E | MODIFICAÇÃO DE CARACTERES 
PROLONGAMENTO DE UMA LINHA 
E | PROCURA DE UM CARACTERE 











Quase todos os micros possuem 
comandos que facilitam a edição de 
programas em BASIC, mas o comando 
EDIT das linhas TRS-80 e TRS-Color é um 
dos mais sofisticados. Aprenda a utilizá-lo. 


Como você já deve ter observado, é 
muito raro um programa rodar corre- 
tamente pela primeira vez. Mensagens 
de erro, ou problemas que ocorrem du- 
rante a execução, tornam imperativo o 
teste repetido de um programa, até que 
todos os erros tenham sido eliminados. 

Esse processo, chamado de depura- 
ção, é em geral trabalhoso e demorado, 
sobretudo se as linhas erradas tiverem 
que ser inteiramente digitadas. Quase 
todos os microcomputadores possuem 
algum tipo de editor de linhas para agi- 
lizar o processo de correção de progra- 
mas. O sistema disponível nos micros 
das linhas TRS-80 e TRS-Color tem um 
funcionamento um pouco complicado, 
mas é um dos mais completos. Neste ar- 
tigo, você verá como explorar eficien- 
temente os recursos de edição que seu 
micro lhe oferece. 

Suponhamos, por exemplo, que vo- 
cê acabou de descobrir um erro de sin- 
taxe na linha 20 de seu programa. Para 
acionar o editor de linhas, digite EDIT 
20 e pressione a tecla « ENTER» . Nos 
computadores da linha TRS-Color, apa- 
recerá logo abaixo a linha indicada e, em 
seguida, outra linha, contendo apenas 
o número e o cursor de posicionamen- 
to. Nos micros da linha TRS-80, o co- 
mando EDIT não mostrará a linha er- 
rada, a não ser que você pressione a te- 
cla L uma vez. 


20 X=RND(1 
20 


Como vocé pode notar, o erro con- 
siste na falta do paréntese à direita. 

O computador agora está em modo 
de edição, e você poderá fazer as altera- 
ções que quiser na linha apresentada na 
tela. Caso desista de editá-la, simples- 
mente pressione a tecla <ENTER> 
uma vez ou, então, a tecla E (abreviatu- 
ra de END — fim, em inglês), e o com- 
putador voltará ao modo de comando. 


EXFUAC 


/ AEL 


Uma vez que a linha desejada esteja 
pronta para ser corrigida, vocé poderá 
utilizar uma série de comandos de edi- 
ção. É neste ponto que os principiantes 
correm o risco de se confundir, pois pa- 
ra acionar os comandos pressiona-se 
uma única tecla alfabética (cujo resul- 
tado não aparece na tela) ou, então, um 
número de um ou mais dígitos, seguido 
da tecla alfabética. 

No exemplo anterior, a correção con- 
siste em acrescentar um parêntese ao fi- 
nal da linha. Para isso, pressione a te- 
cla X, que aciona o comando de eXten- 
são de linha; o cursor pulará automati- 
camente para o final da linha 20; 


20 X=RND(1 
20 X=RND(1_ 


Agora vocé pode digitar o paréntese 
que falta, pois o computador automa- 
ticamente entra em modo 1, ou de inser- 
ção. Para terminar a linha e sair do mo- 
do de edição, pressione <ENTER>. 
Não pressione E, pois o computador 
adicicnará esta letra ao final da linha: 
os comandos de edição só valem quan- 
do o modo I está desligado. 

Vamos ver agora um caso mais com- 





plicado. Suponhamos que você queira 
modificar a linha seguinte, inserindo um 
novo caractere em algum ponto: 


50 X=0:Y=0:W=363 


O valor atribuído à variável X deve- 
ria ser, por exemplo, 20 e não 0, como 
está. Para fazer a modificação, digite 
EDIT 50 e pressione < ENTER >. A li- 
nha 50 aparecerá na tela e o cursor logo 
em seu início. Você precisará deslocá- 
lo até a posição anterior ao primeiro ze- 
ro, na linha, para poder inserir o novo 
caractere (no caso, um 2). Existem três 
maneiras de fazer esse deslocamento. A 
primeira consiste em pressionar repeti- 
damente a barra de espaço: cada vez que 
ela é pressionada, o cursor avança uma 
posição, e na tela aparece o caractere da 
posição seguinte. A segunda consiste em 
dizer ao editor quantos caracteres deve 
pular, digitando este número, seguido 
de uma pressão à barra de espaço. No 
terceiro método, pressiona-se a tecla S 
(de Search — procurar, em inglês), se- 
guida do caractere para o qual você quer 
deslocar o cursor. 

No exemplo acima, precisamos des- 
locar o cursor para a posição anterior 




















ao primeiro zero da linha. Bata duas ve- 
zes na barra de espaço ou, então, digite 
o número 2, seguido de uma pressão à 
barra; se preferir, pressione a tecla S e, 
em seguida, a tecla O. Seja qual for o 
método utilizado, o cursor ficará posi- 
cionado logo após o sinal de igual. Ago- 
ra, para inserir o número 2, você deve 
entrar em modo de inserção. Para isso, 
pressione a tecla I uma vez; em segui- 
da, acrescente o que quiser à linha. Di- 
gite normalmente as adições (pode-se 
usar, inclusive, o retrocesso). Pressione 
a tecla <ENTER> para sair do modo 
de edição, uma vez que tenha comple- 
tado a inserção. 

Caso você precise fazer outras corre- 
ções na linha (por exemplo, acrescentar 
o número 1 antes do segundo zero, de 
modo a transformar em 10 o valor de 
X), deverá continuar no modo de edi- 
ção. Para sair do modo de inserção e 
voltar ao modo de edição, pressione si- 
multaneamente as teclas <SHIFT> e 
t. Com isso, você poderá deslocar o cur- 
sor até o segundo zero da linha, usando 
um dos três métodos explicados acima, 
digitar I para inserir e, finalmente, di- 
gitar o número 1. 

Algumas vezes, é necessário substituir 
caracteres, e não acrescentar outros. Eis 
aqui um exemplo: 


70 PRINT "EDIYORA NOVA CULTURA 
L" 


Chame o comando EDIT e posicio- 
ne o cursor sobre a letra errada (Y). Pa- 
ra substituí-la pelo T, pressione uma vez 
a letra C (de Change — mudar, em in- 
glês) e, em seguida, a letra correta. Se vo- 
cê quiser mudar mais de um caractere, 
acione novamente a tecla C ou, então, 
o número de caracteres, seguido da te- 
cla C. Caso precise substituir, por exem- 
plo, três letras consecutivas, coloque o 
cursor sobre a primeira e digite 3C. 

Para apagar uma letra, ou uma série 
de letras, coloque o cursor sobre o ca- 
ractere que pretende apagar e pressione 
a letra D. Nos computadores da linha 
TRS-Color, o caractere indicado desa- 
parecerá da tela e os demais serão des- 
locados para a esquerda, fechando o 
“buraco”, No TRS-80, o caractere apa- 
gado será exibido entre dois sinais de ex- 
clamação. Para apagar vários caracte- 
res, digite o número de caracteres que 
quer eliminar, seguido da tecla D. Co- 
locando o cursor no primeiro E e pres- 
sionando 7D, por exemplo, você apaga- 
rá a palavra EDIYORA. 

Também é frequente a necessidade de 
apagar toda a parte final de uma linha. 
Suponhamos que você queira apagar o 
comando PRINT da linha abaixo: 





10 X-89:Y-76:PRINT "X E Y DEFIN 
IDOS” 


Entre em modo de edição e coloque 
o cursor até o ponto da linha a partir 
do qual se encontram os caracteres que 
deseja apagar (no exemplo, o segundo 
sinal de dois pontos). Em seguida, pres- 
sione a tecla H (abreviatura de Hack— 
podar, em inglês) e o resto da linha de- 
saparecerá. Este comando também en- 
tra no modo de inserção, permitindo 
que você acrescente algo à linha ou que 
abandone o modo de edição, pressio- 
nando (ENTER). 

Você pode também apagar partes de 
uma linha utilizando o comando K (de 
Kill — matar, em inglês). Ele elimina ca- 
racteres sucessivamente, até que seja en- 
contrada a primeira ocorrência do ca- 
ractere especificado. Se você digitar, por 
exemplo, KD, eliminará todos os carac- 
teres entre a posição do cursor e a pri- 
meira ocorrência da letra D, na linha. 
Caso digite 3KD, apagará tudo até a ter- 
ceira ocorrência de D. 

Depois de fazer algumas modifica- 
ções em uma linha, liste-a, ainda den- 
tro do modo de edição, para ver como 
ficou. Para isso, digite a tecla L. 

Se você cometeu algum erro e deseja 
cancelar todas as modificações feitas, di- 
gite a tecla A (Again — novamente, em 
inglês); o cursor retornará ao seu início. 
O comando Q (Quit — abandonar, em 
inglês) faz a mesma coisa, mas sai do 
modo de edição. 

Para se exercitar um pouco, digite o 
programa abaixo: 


сіз 

20 PRINT 

PRINT "NU, MERO”, "CUBO” 
FOR A=1 TO 13 STEP 2 
PRINT A,*A*A 

NEXT 

70 PRINT "ESTE E' O FIM" 


Ele contém alguns erros; seu aspecto 
final deverá ser o seguinte: 


cLS 

PRINT "TESTE” 

PRINT "NUMERO","CUBO" 
FOR A=1 TO 13 

PRINT А,АЖАЖА 

NEXT 

PRINT "FIM" 


Para alterar o programa, procure 
usar todos os comandos de EDIT que 
aprendeu. Eis aqui a notação abrevia- 
da das modificações que poderá tentar: 


EDIT 20 X"TESTE" [ENTER] 
EDIT 30 S,D[ENTER) 

EDIT 40 4 [ESPAÇO] [ENTER] 
EDIT 50 S,IA[ENTER] 

EDIT 70 SEKOD[ENTER] 









comandos de EDIT 






L Lista a linha 





C caractere Muda caractere 


nC caracteres 






Muda os próximos n 
caracteres 
















І Insere caracteres 





D Apaga um caractere 






Apaga n caracteres 





Apaga o restante da 
linha e entra em 
modo de inserção 







Entra em modo de 
inserção ao final 
da linha 






Procura a primeira 
ocorrência do 
caractere 





S caractere 













Procura a n-ésima 
ocorrência do 
caractere 


nS caractere 







K caractere 








Apaga tudo até a 
primeira ocorrência 
do caractere 












nK caractere Apaga tudo até a 
n-ésima ocorrência 


do caractere 












<ESPAÇO> Avança o cursor 


uma posição 














n<ESPAÇO> Avança o cursor 


n posições 











> Recua o cursor de 
uma posição 











Recua o cursor de 
n posições 











Sai do modo de 
inserção e volta ao 
modo de edição 


<SHIFT> 1 











Sai do modo de 
edição e inserção 


<ENTER> 












Sai do editor 















Retorna ao início 
da edição 





a Retorna ao início 
da edição e sai do 
editor. 










Como já foi dito em artigos destina- 
dos a outros computadores, montar um 
programa em linguagem de máquina, 
calculando os códigos a mão, pode ser 
bem cansativo. Ainda que se saiba de 
cor todos os códigos mnemônicos e seus 
equivalentes hexadecimais e se esteja fa- 
miliarizado com os modos de endereça- 
mento, o trabalho de tradução e trans- 
ferência do programa para o computa- 
dor é sempre tedioso e possível de erros. 

Já que computadores são muito bons 
nesse tipo de trabalho, por que não usá- 
los para fazer a tradução? De fato, só 
teríamos a ganhar se fizéssemos isso, 
pois o mesmo programa poderia ainda 
ser usado para colocar o programa em 
código na memória. 

O programa apresentado neste arti- 
go é bem parecido com o Assembler pa- 
ra o ZX Spectrum. Isto se deve ao fato 
de os dois computadores usarem o mi- 
croprocessador Z- 

Constituído em BASIC, esse progra- 
ma é bem mais lento do que os que são 

feitos em código de máquina (estes 
últimos podem ser facilmente 
encontrados nas lojas espe- 
cializadas). Todavia, ele 


funciona muito bem, embora devamos es- 
perar algum tempo para que programas 
longos sejam montados na memória. 


O ASSEMBLER 


5000 CLS:KEYOFF:LOCATEB, 10: PRIN 
T"Um instante, por favor”:CLEAR 
500,&HDFFF:DIM K$(110),K(110),M 
(110) :H5="0123456789ABCDEF” :B$= 
””:G$="0123456789abcdef” 

5010 DIMT$(100).R(100),25(100), 


Os montadores são programas tradutores 
encarregados de converter os 
programas-fonte, escritos em Assembly 
em programas-objeto, codificados 

em linguagem de máquina. 


2(100) 

5020 B(1)*1:FORI*2TO9:B(I)*B(T 
1) +В (1-1) :МЕХТ 

5030 DIMR$ (8,4) :FORJ=1T04 : FORT+* 
17T08:READRS (1,3) :RS(1,J)=LEFTS( 
R$(I,J)*" ”,4) :NEXTI,J 

5040 РАТА 0,1,2,3,4,5,6,7,п2,2 
nc,c,po,pe,p,m,0,8,16,24,32,40 
48,56,hl,ix,iy,bc,de,hl,sp," 
5050 DIMS$(8,2),T(18) ,U$ (18) :FO 
RJ=1T02:FORI=1T08/ EADS$ (I, 7) 
:8$ (I, J) -LEFT$ (S$(I,J) *" ”,4 
) :NEXTI,J:FORJ=1T018:READT (J) ,U 
$(J) :NEXTJ 

5060 DATA b,c,d,e,h,1, (hl),a.bc 
,de,hl,sp,235,de,8,af,227, (8p) 
60742,0,60758,1,60766,2,233, (h1 








O que acontecerá se houver um er- 
ro em meu programa-fonte? 

Nosso Assembler é capaz de emi- 
tir mensagens de erro, pois a sua es- 
trutura de programação permite re- 
conhecer certas falhas no programa 
em Assembly. Alguns comandos, por 
exemplo, só trabalham com os regis- 
tros a e hl. Se tentarmos usá-los com 
outros registros, o Assembler dirá: 
“Primeiro operando deve ser a ou hl”, 

Se um comando não for reconheci- 
do devido a um erro de digitação, se- 
remos informados: “Linha não reco- 
пһесіда''. А expressão “Deve haver 
dois operandos" significa que deixa- 
mos de digitar um número vital após o 
comando. “Operando incompatível" 
indica um uso inadequado do coman- 
do. “Primeiro operando deve ser sina- 
lizador ou bit' significa que um 
operando inadequado foi empregado 
em um comando de desvio ou de atri- 


buicáo de bits. 


),56809, (1x) ,65001, (iy) ,10, (bc) 
+26, (de) ,60767,r,2, (bc) ,18, (de) 
,60751,г,249,8р,60743,1,60759,1 
5070 DEFFNB(X,1)=INT(X/B(1+1))- 
INT(X/B(I*2))*2 

5080 DEFFNX(X,I)*X-B(I*2)*FNB(X 
.1)%В(1%1) 

5090 DEFFNJ(X,I)*INT(X)-B(I*1)* 
INT(X/B(I*1)) 

5100 DEFFNE (15,J$)=(1$=LEFTS (JS 
,LEN(IS))) 

5110 FORI=1TO110:READKS (1) ,K(1) 
,M(I):IFNOTENE ("*",K$ (I)) THENNE 











XTI 

5120 DATA 1d,10,10,1d,26,10,1d, 
60767,10,14,60759,10,14,2,138,1 
8,18,138,14,60751,138,14,60743, 
138,14,64.6|18,50,202.14,58.74. 
14,249,139,14,34,195,14,42,67,1 
4,60779,197,14,60771,199,14,97, 
165,14,64,54 

5130 DATA adc,136,50,adc,60746, 
3,add,128,50,add,9,149,and,160, 
48,0r,176,48,xor,168,48,nop,0,0 
Bub, 144,48 c,152,50,8bc,6073 
8,3,cp,184,48,5p,130,45,5p.233, 
9,3р.56809,9,3р,65001,9,3р,131, 
49,3r,96,45,3r,88,41 

5140 РАТА са11,132,45,са11,141, 
41,ret,201,0,djnz,74,40,dec,11, 
1 ес,5,16,іпс,3,17,іпс,4,16,р 
ush,197,17,pop,193,17.di, „0, 
ei,251,0,halt,118,0,ex,235,139, 
ex,8,15,ex,227,143,exx,217,0 
5150 DATA r&t,199,132,rts,192,5 
,bit,52032,20,defb,-256,40,ccf, 
63,0,всҒ,55,0,ср1,47,0,ср4,6084 














ТТАВ(10)" (9) 


1,0,cpdr,60857,0,cpi,60833,0,cp 
ir,60849,0,daa,39,0,1m,60742,8, 
іш,60758,8,1ш,60766,8 

5160 DATA in,60736,130,in,149,4 
2,ind,60848,0,indr,60810,0,ini, 
60840,0,inir,60850,0,1dd,60840, 
0,1ddr,60856,0,1d1,60832,0,1dir 
+60848,0,neq,60740,0,0tdr,60859 
,0,otir,60851,0,0ut,60737,2,0ut 
,141,170,0utd,60843,0,0ut1,6083 
5,0 

5170 DATA res,52096,20,reti,607 
49,0,retn,60741,0,r1,51984,64,r 
1а,23,0,г1с,51968,16,г1са,7,0,г 
14,60783,0,гг,51992,64,гга,31,0 
,rrc,51976,16,rrca,15,0,rrd,607 
75,0 

5180 DATA set,52160,20,51a,5200 
0,16,8ra,52008,16,8r1,52024,16, 
defw,-256,41 

5190 DATA "*",0,0:II-I:K(110)*I 


I 

5200 CLS:PRINTTAB (15) "ASSEMBLER 

”:LOCATELO, 5: PRINTTAB (10) ” (c) 

Ler na fita cassete” :PRINT:PRIN 

Gravar na fita”:P 

RINT:PRINTTAB(10)”(e) Edição” 

5210 PRINT:PRINTTAB(10)"(m) Мо 

ntar":PRINT:PRINTTAB(10)"(a) A 

pagar linha":PRINT:PRINTTAB (10) 

"(1) Listar":PRINT:PRINTTAB(10 

)"(s) Saída" 

5220 AS-INKEYS:IFAS*""THEN5220 

5230 JJ«INSTR("cgemals",AS) 

5240 IFJJ=0THENPRINT"<"AS"> 77? 

2": FORJ=1T0500:NEXT:GOTO5200 

5250 CLS:0NJJGOSUB10420,10450,1 

0490,5290,10710,10760,10900 

5260 PRINT:PRINT"Qualquer tecla 

para continuar” 

5270 AS=INKEYS:IFAS=""THENS270 

5280 GOTO5200 

5290 FORG-1TO100:R(G)*G-1:NEXTG 

:Fh=100 

5300 K0=0:K9=99:P0=0:VV=0 

5310 К=КО:Р=РО 

5320 GOSUB8000 

5330 GOSUB7000:0$=IS:IFLEFTS (0$ 

,1)="x" THENPRINTOS; :GOTO5320 

5340 IFOS="end” THENPRINT: PRINT” 
FIM. Endereço final = ";P-1 

5350 IFO$="end” THENPO=P: RETURN 

5370 ІҒОЗ<>"ого"ТНЕМ5400 

5380 GOSUB7000:S=0:IFLEFTS(IS,1 

)="*"THENS=P: I$=RIGHTS (I$,LEN(I 

$)-1) 

5390 P-VAL(I$)*S:PRINT^ 

";P;:G0TO5320 

5400 IFP-OTHENPRINT" 

)":P-&HE000 

5410 P$-0$*"!":FORI-1*18*ABS (0$ 

<>" 1d") TOLIO: IFOS<=KS (1) ANDPS>K 

$ (1) THEN5500 

5420 NEXTI:PRINTOS 

5430 IFLEFTS(IS,1)=”"."THENIS=RI 

GHTS(IS,LEN(IS)-1) 

5440 GOSUB9000:GG=R(G) 

5450 IFABS (GG) <=100THENS=SGN (Z ( 

GG) ) :B=INT (ABS (Z (GG) ) /65536!) :R 

=ABS (Z (GG) )-B*65536! :Q=PEEK(R)+ 

256*PEEK (R*1) : POKER, FNJ (P*S+0,8 

):PRINT" colocando ";FN J(P*S*Q 

,8);" em ";R:IFBTHENPOKE (R*1) ,F 





org 


(falta org 





NJ((P*S+0) /256,8): PRINT” coloca” 
ndo ";FNJ((P*S*Q)/256,8);" em " 
;R+1 

5460 IFABS (GG) <=100THENGH=R (GG) 
:R(GG)=FH:FH=GG:GG=GH:GOTO5450 

5470 IFIS-""THENR (G) *P*100:GOTO 
5330 

5480 PRINT" 
ida)" 

5490 GOTO5420 

5500 Z=0:R=0:E=0:PRINT” 


(Linha não reconhec 


7308 
5510 ОР-К(1):ІЕМ(І)-ОТНЕМ6090 
5520 GOSUB7000:AS=IS:PRINT” "¡A 
5530 M=M(1) :ОР=К (1) :В=ЕМВ (М,0) : 
B7=B+2*FNB (M, 7)+1:Z=0:IFFNJ (M, 3 
) <2ТНЕМСҘ$=АҘ:С0705720 

5540 FORJ=1TOLEN (AS) : IFMIDS (AS, 
J,1)=","THENS580 

5550 NEXTJ:IFOS="rst"OROS="rta” 
THEN5580 

5560 IFFNE(0S,KS(1+1))THENI=1+1 
:G0T05530 

5570 PRINT” (são necessários do 
is operandos)” :GOT05320 

5580 BS=LEFTS (A$,J-1) :CS=RIGHTS 
(A$, LEN (A$) -J) 

5590 IFFNB(M,2) THEN5650 

5600 IFFNB(M,7)THENDS=CS:CS=BS: 
B$-D$ 

5610 IFBS*MID$("^ahl",B*1,B*1) TH 
EN5720 

5620 IFBS=" (c)”"AND(OS="in"OROS= 
"out") THEN5720 

5630 IF(FNE(OS,KS(I+1))) AND (FNJ 
(М(1+1),3) 2=2) ТНЕМІ=1+1:60Т0553 
0 





PRINT" (primeiro operando 
ser a ou h1)":G0T05320 
5650 IFFNB(M, 1) THEN5690 

5660 ES-LEFTS(BS*" *,4) :FORJ* 
1TOB:IFES-R$(J,B7) THENOP=0P+8* ( 
J-1)*ABS (B7<4)+16* (J-6) *ABS (B7= 
4) *АВЅ (Ј>3) :2= (Ј-1) *АВЅ (В7=4) *А 
BS (J<=3) :GOTO5710 

5670 NEXTJ:IFPS>KS (I+1)AND(EN J 
(М(1%1),3)>-2)ТНЕМІ“І%1:6070553 


5640 
деуе 


0 

5680 PRINT” (primeiro operando 
deve ser sinalizador ou bit)":G 
0705320 

5690 IFFNB(M,7)THENDS=CS:C$=BS: 
B$=D$:GOTO5660 

5700 X=8:GOSUB5750: IFETHENS730 
5710 IFC$-""THEN6090 

5720 X=1+15*B+7*ABS (OP<=6ANDOP> 
=40RB$=" (c)”) :B$=CS:GOSUB 5750: 
IFABS ( (E=0) *NOTE) THEN6090 

5730 IFE=20RPS>KS (1+1) ANDENJ (M( 
1+1) ,3) =FNJ (FNX (M,0) , 3) THENE=0: 
I=1+1:G0705530 

5740 GOTO5320 

5750 R=0:IFFNB(M,4) ANDENE (LEFTS 
(" (” ¿ABS ((B=0) *NOTB)) ,BS) THENZ2 
=ABS (FNE ("ix” RIGHTS (BS,LEN (BS) 
+B-1)+" "))+2*ABS (ENE ("iv”,RIGH 
TS (B$,LEN(B$)+B-1)+" ")):IFZ2TH 
ENZ=22:ES=LEFTS (B$, LEN(BS) -ABS( 
(B=0) *NOTB) ) :B$=MIDS(” (h1)”,1+B 
,4-2*B) :F$="0"+RIGHTS (ES, LEN(ES 
)+B-3) 

5760 ІҒҒЫВ(М,3)ТНЕМ5790 








5770 ES=LEFTS (BS+” ”,4) :FORJ=" 
1708/ (B+1) : IFES=SS(J,B+1) THENOP 
=0P+(J-1) *X: RETURN 

5780 60705810 

5790 J2=9+9*ABS (0$=" 1d”): FORJ=J 
2-8TOJ2:IFK(I)<>T(J)THEN5810 
5800 IFFNE(B$,US(J))THENRETURN 
5810 NEXTJ: IFB$="af"THENIFFNE (” 
p” ,0$) THENOP=0P+48 : RETURN 

5820 IFFNB(M,6)ANDFNE (” (”,BS) TH 
ENB$*7MID$ (B$, 2, LEN(B$) -2) :GOTOS 
B60 

5830 IFFNB(M,5) THENOP=FNX (0P+6* 
ABS ((B=0)*NOT B),6) :GOTO5860 
5840 IFP$>KS(I+1) THENE=2: RETURN 
5850 PRINT” (operando incompatí 
vel)":E*1:RETURN 

5860 R=65536! 

5870 8-1 

5880 IFB$-""THEN6080 

5890 XS=LEFTS (B$,1) :DS=RIGHTS (B 
$,LEN(BS)-1) :IFXS="*"THENR=R+P* 
S:B$=D$:GOTO5870 

5900 IFXS="+"THENBS=D: 
5910 IFX$="-"THENBS=D: 
05880 

5920 IFX$="""THENR=R+ASC (DS) *S: 
B$-RIGHT$ (D$, LEN (D$) -1) :G0TO587 
0 

5930 Q=0:IFX$<>"*"ORD$<"0”ORD$> 
="2"THEN5960 

5940 IFD$»-"0"ANDD$«"2"THENQ-Q* 
2*ASC (D$) -48:D$-RIGHTS (D$,LEN(D 
8)-1) :60Т05940 

5950 R-R*Q*S:B$-D$:GOTO5870 
5960 IFXS<>"S"ORDS<"0"ORDS>="q" 
THEN6000 

5970 XS=CHRS (ASC (DS) ) : FORG=0TO1 
5: IFXS<>MIDS (HS,G+1,1) ANDXS<>MI 
D$(G$,G*1,1)THEN5990 

5980 Q-Q*16*G:D$-RIGHTS (D$,LEN( 
D$)-1):G0T05970 

5990 NEXTG:R-R*Q*S:B$-D$:GOTO58 
70 

6000 ІЕХ9<"а"ОВХҘ>" 2" ТНЕМ6040 
6010 IS=B$:GOSUB9000:IFIS<>""TH 
EN6010:GOSUB9400 

6020 IFR(G)<>23000ANDABS (R (G))> 
100THENR*R* (R (G) -100) *S:B$7I$:G 
0705870 

6030 IFR(G)=230000kRABS (R(G))<=1 
DOTHENGH=R (FH) :R (FH) *R(G) :R(G) * 
FH:FH*GH:Z(R(G)) * (PFSGN (OP) +ABS 
(ABS (0P) 5255) *2*ABS (220) 655361! 
*ABS ( ( (ABS (BORFNB (M,6)) X20) *1)A 
ND(0$€»" jr") ) ) *S:B$41$:GOTO5870 
6040 IFXS<"0"ORX$>"9"THENR=0:G0 
T06070 

6050 IFBS>="0"ANDBS<" : "THENQ=Q* 
10+ASC (B$) -48 :B$=RIGHT$ (B$, LEN ( 
B$)-1) :G0T06050 

6060 R-R*S*Q:GOTO5870 

6070 PRINT" (enderecamento invá 
lido)" 

6080 R-R- (P*2)*ABS (0$7"djnz"ORO 
$2"jr") : RETURN 

6090 PRINTTAB(16);:BY*P/256:G0S 
UB6190: BY-P:GOSUB6190:GOSUB616 
0 











6100 IFZTHENBY-18942*32:GOSUB61 
80:GOSUB6160 

6110 IFOP>=OTHENBY=0P/256:GOSUB 
6170:GOSUB6150:BY=0P:GOSUB6180 


6120 IFR=0THEN5320 

6130 GOSUB6160:BY-R:GOSUB6180:I 

F (ABS (BORFNB (M, 6) ) <>0) ANDOS<>" 3 

r"THENBY=R/256:GOSUB 6180 

6140 60705320 

6150 IFZ<>0ANDBY<>0ANDABS ( (B=0) 

*NOTB) <>0THENGOSUB6260 : BY=VAL (F 

$) :GOSUB6180:2-0 

6160 PRINT" " ETURN 

6170 IFINT(BY)<=OTHENRETURN 

6180 BY=FNJ(BY,8) :POKEP,BY:P=P+ 

1 

6190 BY=FNJ(BY,8) :PRINTMIDS (HS, 

14+INT (BY/16) ,1) ¡MIDS (HS,FNJ(BY, 

4)*1,1); 

6200 RETURN 

7000 IFK»NTHENI$-"end":RETURN 

7010 Kl1=K9+1:IFK9>=LEN(TS(K)) TH 

ENIS="/faltando/” : RETURN 

7020 K9=K1:IFMIDS(TS(K),K1,1)=" 
"ТНЕМ7010 

7030 IFK9>LEN(TS (K)) THENIS=RIGH 

T$ (T$ (K) , LEN(T$ (K) ) -K1*1) : RETUR 

N 








7040 IFMIDS(TS(K),K9,1)<>" "THE 
NK9-K9*1:G0T07030 

7050 IS=MIDS(TS(K),K1,K9-K1) :RE 
TURN 

8000 IFK>OTHENIFRIGHTS (TS (K),LE 
N(TS(K)) -K9*1)»T$ (99) THENPRINTR 
IGHT$ (T$ (K) , LEN (T$ (KF) ) -K9*1) ; 
8010 К=К+1:К9=0 

8020 PRINT:RETURN 

9000 X$-"" 

9010 IFIS<"a”ORIS>”z"THEN9030 
9020 XS-XS*LEFTS (I$,1) : IS-RIGHT 
$(IS,LEN(IS)-1):GOTO9010 

9030 IFIS<>""THENRETURN 

9400 FORG=1TOVV: IFFNE (X$,Z$(G)) 
THENRETURN 

9410 NEXTG:UV-UU*1:Z2$ (UV) =Х5:6= 
VV:R(G)=23000 

9420 RETURN 

10420 CLS:LOCATEO,10:PRINT"Posi 
cione a fita, pressione qualque 
r tecla e aperte PLAY no grav 
ador” 

10430 US=INKEYS:IFUS=""THEN1043 
0 


10440 OPEN"CAS:ASM"FORINPUTAS41 
:CLS:LOCATE6, 10: PRINT"Carregand 
o programa fonte”: INPUT41,N:FOR 
JelTON:LINEINPUT41,T$(J) :NEXT:C 
LOSE41: RETURN 
10450 CLS:LOCATEO,10:PRINT"Posi 
cione a fita, aperte RECORD no 
gravador e pressione qualqu 
er tecl 
10460 US=INKEYS: IFUS=""THEN1046 
0 





10470 OPEN"CAS:ASM"FOROUTPUTAS& 
1:CLS:LOCATE7,10:PRINT"Gravando 
programa fonte” :PRINT41,N:FORJ 
*]TON:PRINT&1,T$ (J) :NEXT:CLOSE4 
1:RETURN 

10490 PRINT"Qual o número da li 
nha (múltiplo de 10)"; 

10500 INPUTK:CLS 

10510 K2=K/10:IFK2>NTHENK2=N+1: 
N=N+1:T5(K2)="" 

10520 IFK2<.1THENK2=.1 

10530 IFK2=INT(K2)THEN10550 
10540 K2=INT(K2)+1:FORK3=NTOK2- 


1STEP-1:TS(K3+1)=TS (K3) :NEXT:N=" 
N+1:TS(K2)="" 

10550 Р1-887:Р0-Р1 

10560 LOCATEO,21:PRINTK;TAB(6)T 
$(K2) *STRING$ (10,32) ; : PO-PO*LEN 
(T$ (K2) ) 

10570 IFP1<POTHENP1=PO 

10580 IFP1>P9THENP1=P1-1 

10590 VPOKEBASE (0) *P1-1,32:VPOK 
EBASE (0) *P1,195 

10600 P7=0:AS=INKEYS:IFAS=""THE 
N10600 

10610 IFAS=CHR$ (13) THEN10700 
10615 IFAS=CHRS (27) THENRETURN 
10620 IFAS=CHR$ (28) THENVPOKEBAS 
E(0)+P1,32:P1=P1+1:G0TO10580 
10630 IFAS=CHR$ (29) THENVPOKEBAS 
E(0)+P1,32:Pl=Pl-1:GOTO10570 
10640 IFAS=CHR$ (30) THENAS="":GO 
TO10670 

10650 IFAS=CHRS (31) THENAS=" "+M 
IDS (TS (K2),P1l-P0+1,1):P7=-1:GOT 
010670 

10660 IFAS<” "THEN10600 

10670 IFP1-PO+1>LEN(TS(K2)) THEN 
TS(K2)=LEFTS(TS(K2), PI-PO)+AS:G 
07010690 

10680 T$(K2)-LEFTS$ (TS (K2) , P1- PO 
) *AS* RIGHTS (T$ (K2) , LEN(T$ (K2)) - 
P1+P0-1) 

10690 Pl1=P1-(LEN(AS$)>0)+P7:GOTO 
10560 

10700 LOCATEO, 24:PRINT:K=K+10:G 
07010510 

10710 IFN=OTHENCLS:PRINT” Nada 
a apagar” : RETURN 

10720 CLS:PRINT”Qual o número d 
a linha (múltiplo de 10)”; 








COMO ENCONTRAR ERROS EM 
PROGRAMAS LONGOS 

O erro mais comum em programas 
como o desta lição consiste em deixar 
de digitar um segmento de linha DATA 
(nisso também o MSX se assemelha ao 
ZX Spectrum). Assim, quando surge a 
mensagem “OUT OF DATA”, deve- 
mos averiguar o que está faltando nas 
linhas DATA. Até mesmo a falta de 
uma vírgula causará problemas. Se o 
seu Assembler não funcionar na primei- 
ra vez, não se preocupe: o MSX pos- 
sui uma função de rastreamento (trace) 
que o ajudará a encontrar os erros. 

Para ativá-la, digite TRON no modo 
imediato, sem número de linha. Depois 
rode o programa usando RUN. O núme- 
ro da linha BASIC que estiver sendo 
executada nesse momento aparecerá 
na tela. Esse recurso torna mais fácil 
a detecção de erros nos programas 
mais longos. 

A função é desativada pelo coman- 


do TROFF. 











Naa TL. 


10730 INPUTK:K2=K/10 

10740 IFK2>NORK2<10RK2<>INT (K2) 
THENPRINT"Esta linha não existe 
” : RETURN 

10750 К=К: OR K3-K2 TO N:T$(K3 
)-T$(K3*1 EXT:N-N-1:LOCATE 0, 
10:PRINT K*10 ^; T$ (K) : RETURN 
10760 IFN-OTHENPRINT" Nada a li 
star” :RETURN 

10770 PRINT"Quais os números da 
primeira e da última linh 
a (múltiplos de 10)”; 

10780 INPUTK,K2:K=INT(K) :K2=INT 
(K2) :K1=K/10:K2=K2/10 

10790 IFK2>NTHENK2=N 

10800 ІРКІ<1ТНЕМК1-1 

10810 IFK2<K1ANDK2=NTHENRETURN 
10820 IFKZ<KITHENCLS: PRINT"Núme 
ros de linha inválidos” :GOTO107 
70 

10830 CLS:FORK3=K1TOK2:PRINTK3* 
10;" $ (K3 

10840 RETURN 

10900 END 


Os espaços em branco foram elimi- 
nados de modo a diminuir a quantida- 
de de memória ocupada pelo programa. 
Algumas linhas — 5450 e 5750, por 
exemplo — são quase do tamanho má- 
ximo permitido pelo computador; as- 
sim, qualquer espaço adicional pode 
fazer com que a porção final dessas li- 
nhas seja ignorada. 

As linhas 5030, 5050, 5390, 5500 
apresentam, cada uma, quatro caracte- 
res em branco entre as aspas; as linhas 
5660 e 5770, trés; e as linhas 10750 e 
10830, dois 


COMO FUNCIONA O PROGRAMA 


Antes de montar o programa deve- 
mos proteger uma área de memória, on- 
de o Assembler colocará os códigos por 
meio do comando CLEAR. Isso é feito 


na linha 5000, que reserva 500 bytes pa- 
ra os cordões (strings) e protege a me- 
mória a partir de E000 hexadecimal. 
Mude esse valor conforme as necessid: 
des. Programas grandes podem exigi 
maior espaço de cordões. 

Depois de digitar, rode o Assembler 


e verá um menu. Para digitar um pro- 
grama em Assembly, tecle “e” (não se 
esqueça de destravar a tecla CAPS, pa- 
ra que o MSX aceite letras minúsculas). 
O computador pedirá então o número 
da linha. Cada instrução deve ser intro- 
duzida em uma linha numerada, seme- 














lhante ao que ocorre no BASIC. É 
preciso que os números das linhas sejam 
múltiplos de 10; apenas um mnemôni- 
co Assembly com seus operandos pode 
ser introduzido em cada linha. 

A primeira linha de seu programa de- 
ve ser mais ou menos assim: 





10 ого -8192 


— 8192 é o endereço inicial do pro- 
grama em código. Obviamente, ele de- 
ve estar na área protegida da memória. 
Se esquecermos de definir org, ou seja, 
a origem, o Assembler colocará o pro- 
grama a partir de DFFF, em hexadeci- 
mal (ou — 8192, em decimal). 

O programa aceita os códigos mne- 
mônicos padrão do chip Zilog Z-80, 
com exceção dos comandos de retorno 
condicional. O comando de retorno in- 
condicional de sub-rotinas, cujo mne- 
mônico é ret, entretanto, funciona em 
nosso Assembler. 

Algumas vezes, porém, podemos uti- 
lizar retornos condicionais, como ret nz, 
que significa “'retorne se não for zero! 
Em nosso caso, use: rts nz (rts deve ser 
usado no lugar de ret sempre que pre: 
sarmos empregar retornos condicio- 
nais). Quando se trata de retorno 
incondicional — ou seja, ret náo segui- 
do de nenhuma letra — use o mnemó- 
nico padráo ret. 

No artigo da página 213 (Programas 
em Código de Máquina), usamos o mne- 
mónico outir, quando na verdade o pa- 
dráo Z-80 é otir. Nosso Assembler aceita 
otir. 

Números hexadecimais devem ser 
precedidos de $. Números binários, de 
o. Qualquer número sem nada na fren- 
te será interpretado como decimal. 
Qualquer expressão que não seja um co- 
mando Assembly será considerada co- 
mo um rótulo (label). Evite usar 
palavras parecidas ou muito longas; nú- 
meros não são permitidos. 

Para que o Assembler saiba onde pa- 
rar, termine seu programa com end. 

Antes de apertar o ENTER para ейі- 
tar uma linha pressione as teclas do cur- 
sor. As setas “direita” e “esquerda” 
movem o cursor ao longo da linha; a s 
ta “para baixo” serve para inserir c 
racteres e a seta “para cima”, para 
apagá-los. A edição de linhas é bastan- 
te lenta e muitas vezes os caracteres di- 
gitados demoram a aparecer no vídeo. 

Use a tecla ESC para sair do modo 
de edição. Essa tecla deve substituir o 
comando ENTER, depois que a última 
linha tiver sido digitada; caso contrário, 
uma linha em branco será incorporada 
ao programa em Assembly. 

De volta ao menu, pressione pa- 
ra obter uma listagem do programa em 
Assembly na tela. 

Se houver algum erro na introdução 
do programa-fonte, volte ao menu e 
pressione “e”; forneça então o número 
da linha que deseja mudar. 

Por outro lado, se quisermos inserir 
uma linha entre duas já existentes, bas- 











«qn 


tará digitá-la usando um número inter- 
mediário, quando no modo de edição. 
Assim, ao listarmos o programa nova- 
mente, veremos que ele foi renumerado 
com a nova linha no lugar certo. Toda- 
via, apenas uma linha pode ser introdu- 
zida dessa maneira de cada vez. 

Para apagar uma linha, é preciso vol- 
tar ao menu, teclar “a”, e fornecer o 
número da linha que queremos eliminar. 

Quando estivermos satisfeitos com o 
programa Assembly a ser montado 
(programa-fonte), devemos voltar ao 
menu e teclar “'m” para que ele seja 
“montado” na memória. Ao mesmo 
tempo, obteremos uma listagem dos có- 
digos equivalentes na tela (programa- 
objeto). 

Se a esta altura notarmos um erro em 
alguma das linhas, devemos voltar ao 
menu e editar a linha correspondente. 

Uma vez montado o programa, o en- 
dereço final da rotina em código apare- 
cerá na tela. 

A opção de gravação — “*g”*, no me- 
nu — armazena o programa-fonte em 
fita cassete — os mnemônicos, portan- 
to. Para gravar o Assembler, use a via 
normal — CSAVE. 

Para executar o programa em códi- 
go, utilize instruções do tipo DEF US- 
RO e A=USRO. Grave o programa- 
objeto, empregando: 





BSAVE "CAS:nome", епдегесо 
inicial, n9 de bytes 


“Nome” é a denominação do pro- 
grama-objeto e deve estar entre aspas. 
BSAVE informa ao computador que está 
sendo gravado um programa em código 
e não em BASIC. O endereço inicial é 
a origem do seu programa na memória. 
Podemos calcular o número de bytes 
subtraindo a origem do endereço final 
e somando 1. Podemos ainda acrescen- 
tar o endereço inicial para execução (não 
mostrado no exemplo). Como esse en- 
dereço é quase sempre igual ao endere- 
ço inicial, sua inclusão é opcional. 


Para testar seu programa, entre o 
programa de deslocamento horizontal 
da tela para a direita que se encontra na 
página 215. Uma vez traduzido para có- 
digo, ele ficará assim: 


11 CO E4 21 BF E4 6 18 C5 1A 01 
27 00 ED B8 12 2B 1B Cl 10 F3 
c9 


Note que devemos usar letras minús- 
culas para digitar o programa-fonte. 
Nosso Assembler não reconhece coman- 
dos em maiúsculas. 























Qualquer pessoa com algumas horas 
de experiência com computadores pode 
criar caracteres gráficos originais para 
usar em jogos. Tudo o que se precisa é 
lápis e papel para esquematizar as idéias, 
além de duas (ou, no máximo, trés) ro- 
tinas simples para transformar tais 
idéias em figuras no computador. 

Cada tipo de máquina exige um mé- 
todo particular para a criagáo de novos 
pádrões de caracteres gráficos definidos 
pelo usuário. O tamanho desses carac- 
teres também é variável. O MSX tem 
sprites de 16 por 16 pixels (ou pontos), 
enquanto o Spectrum oferece apenas um 
UDG de 8 por 8 pixels (os compatíveis 
com o ZX-81 não serão tratados aqui). 

No entanto, independentemente do 
que seu computador ofereça, o mais 
conveniente é começar criando figuras 
de 8 x 8 (tamanho aproximado de um 
“inimigo” em um jogo espacial). Uma 
vez que você tenha aprendido a traba- 
Ihar com esse padrão, será fácil criar fi- 
guras maiores, ou mesmo encadear duas 
ou mais pequenas figuras para formar 
uma terceira. 


DO DESENHO PARA O BINÁRIO 


Em alguns computadores, os dados 
necessários para definir um UDG po- 
dem ser fornecidos diretamente na for- 
ma binária. Em outros, vocé terá que 
converté-los em decimal ou em hexade- 
cimal. Assim, leia primeiramente a se- 
ção para sua máquina antes de fazer 
qualquer conversáo. No Apple vocé te- 
rá que usar o nosso editor de figuras. 


Os computadores armazenam as in- 
formações que lhes são dadas em biná- 
rio. Mas você não precisa conhecer esse 
sistema numérico para transformar seus 
desenhos em filas de números binários. 
Tudo o que deve fazer para isso é: 


— Utilizar o número 1 sempre que qui- 
ser obter um ponto. 

— Empregar o número 0 toda vez que 
quiser um espaço. 


Tomemos como exemplo o padrão 
da cruz de Lorena. A linha do topo é 
composta de três espaços, um ponto e 


mais quatro espaços. Em binário, 
00010000. 

A segunda linha é formada por dois 
espaços, três pontos e três espaços: 
00111000. Todo o padrão pode ser re- 


presentado assim: 
0 


oooocoooo 
oooo-oo 

socororo 
осеккне-- 
cocororo 
oooo-ooo 
оооооооо 
оооооооо 


ОЕ В!МАН!О РАВА ОЕС\МА! 


A maneira mais rápida de converter 
binário em decimal é usar a pequena ta- 
bela de nove linhas por oito colunas que 
apresentamos a seguir. Na primeira li- 
nha, escreva os números 128, 64, 32, 16, 
8, 4, 2, 1. Nas outras oito coloque os nú- 
meros correspondentes ao gráfico que 
você quer. Aqui temos, por exemplo, a 
tabela para a cruz de Lorena: 

128 6 


3 1 


оооооооо 
ooco-ocoz 
ooocororon 
orrrrrrro 
ococororon 
ососо-оосоь 
ооооооооњ 
оооооооон 


Para fazer a conversão, ignore os ze- 
ros. Inicialmente, compare os 1 em bi- 
nário com o número no topo da colu- 
na. Some então todos os números cor- 
respondentes aos 1 da primeira linha. 
Repita essa operação em todas as linhas. 


No exemplo, a primeira linha contém 
o número 1 apenas na quarta coluna. 
Portanto, temos 16. 

A segunda linha tem três 1 que cor- 
respondem a 32, 16 e 8. Soma: 56. 

Quando o processo de verificação 
houver terminado, você terá oito núme- 
ros decimais. A declaração DATA ne- 
cessária para entrar os dados no com- 
putador ficará assim: 


DATA 16,56,16,124,16,16,16,0 


Você não precisa conhecer código de 
máquina nem entender de 

sistema binário para animar seus jogos 
com figuras simples. Leia este 

artigo e veja como é fácil fazer isso. 





De início, você pode ficar com a im- 
pressão de que esta é uma forma muito 
complicada de fazer o trabalho. No en- 
tanto, depois de meia dúzia de tentati- 
vas, seu ritmo de trabalho se tornará su- 
ficientemente rápido. Além disso, as 
combinações mais comuns, como 255 
(ou 11111111 em binário), serão logo 
memorizadas, poupando-as da necessi- 
dade de fazer cálculos para chegar ao 
sistema decimal. 


DE BINÁRIO PARA HEXADECIMAL 


Converter números binários em he- 
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xadecimais é ainda mais fácil. Para is- 
so, basta aplicar a tabela a seguir, não 
sendo necessário nem mesmo escrever 
nela os números binários: 








Binário Hexadecimal 


оочольшы-о 








Desta vez não ignore os zeros. Para 
começar, tome os primeiros quatro dí- 
gitos do número binário e procure o seu 
equivalente em hexa. Em seguida, faça 
o mesmo com os quatro dígitos seguin- 
tes. A reunião dos dois dígitos hexade- 
cimais obtidos define o número que vo- 
cê precisa, 

Voltando à cruz de Lorena, a primei- 
ra metade do binário da primeira linha 





é 0001. Em hexa temos, pela tabela, 1. 
A segunda metade é 0000. Em hexa, te- 
mos 0. Escreva os dois números juntos 
e teremos 10, o hexa correspondente ao 
binário 00010000. 

De forma similar, na segunda linha 
temos 0011 (que é 3 em hexa) e 1000 (8 
em hexadecimal). Assim, o número he- 
xadecimal completo é 38. 

Repita o processo até a última linha 
e terá oito números hexadecimais. A sua 
declaração DATA completa ficará co- 
mo segue: 


DATA 10,38,10,7C,10,10,10,00 














Além disso, a única coisa a fazer é di- 
zer ao computador (que não pode adi- 
vinhar) se o número que você está digi- 
tando é decimal ou hexa. Veja como fa- 
zer isto na seção específica do seu com- 
putador. 

Evidentemente, é possível escrever 
um pequeno programa para fazer a con- 
versão de bases numéricas, mas ele não 
será muito útil se você quiser modificar 
alguma informação que já esteja na me- 
mória do computador. 


O TRS-Color aceita DATA em deci- 
mal, hexa ou binário. 

Se os dados (DATA) estão em hexa, 
você terá que adicionar uma linha extra 
ao programa para convertê-los em de- 
cimal (veja a seguir). 








O primeiro programa desenha um pe- 
queno avião no canto superior esquer- 


do do vídeo. Este pode não ser o me- 
lhor lugar para vê-lo; mas é o mais fácil 
para começar, se você quiser fazer um 
programa para movimentá-lo pela tela. 


20 PMODE 4,1 

30 PCLS 

40 SCREEN 1,1 

60 FOR L=0 TO 7 

70 READ МӘ 

80 POKE L*32+1536, VAL ("&H"+NS) 
90 NEXT L 

110 60Т0 110 

500 DATA 00,10,18,9C,FF,9C,18,1 
0 


Digite o programa e execute-o. 

PMODE 4,1 foi escolhido na linha 20 
porque só se pode produzir gráficos 
UDG quando neste modo de resolução 
gráfica mais alta. 

Para limpar a tela sobre a qual vai se 
desenhar, deve-se usar o comando 
PCLS como na linha 30. Ele se aplica 
não só ao PMODE 4,1, como a todos 
os modos de alta resolução. 

Use SCREEN 1,1, como na linha 40, 
para ligar a tela de alta resolução de for- 
ma a mostrar o seu UDG. SCREEN 1,1 
também seleciona as cores branca e pre- 
ta. 

O laço FOR...NEXT das linhas 60 e 
90 faz com que a linha 70 seja executa- 
da oito vezes. Toda vez que encontra 






















READ NS, o computador lê o dado se- 
guinte da linha DATA de nümero 500. 

A linha 80 é importante por duas ra- 
zões. A primeira é que ela faz com que 
o padrão de pontos definido pela linha 
500 apareça no vídeo. A segunda é que 
ela converte os números hexadecimais 
da linha DATA em decimais e coloca- 
os diretamente na área de memória que 
controla o que aparece na tela do com- 
putador. 

Finalmente, a linha 110 é um laco que 
mantém a alta resolução. Sem essa linha 
o programa terminaria, provocando o 
retorno automático para o modo texto; 
em conseqüéncia, você não veria o seu 
desenho na tela. 


GRÁFICOS UDG MAIS ALTOS 


Vocé pode criar um UDG “alto e ma- 
gro”, em vez de um 8x8, mudando a li- 
nha 60 e alterando os dados da linha 
500. Em primeiro lugar, modifique a li- 
nha 60 para: 

60 FOR L=0 TO 7 

Em seguida, mude a linha 500 de for- 

ma que fique assim: 











500 DATA 00,10,18,9C,FF,9C,18,1 
0 


A alteração na linha 60 permite a lei- 
tura de um maior número de dados da 
linha 500. E esta define a imagem de um 
coelho, usando hexadecimais. Assim, ao 
executar o programa, você encontrará 
a figura do coelho na tela. 





Esse método permite a criação de grá- 
ficos de qualquer tamanho. Se você já 
desenhou a sua figura em papel quadri- 
culado, conte quantas linhas foram usa- 
das. Altere a linha 60 usando o número 
de linhas do desenho. A seguir, faça com 
que o número de informações da linha 
DATA corresponda ao número de vezes 
que o laço FOR...NEXT for executado. 














GRÁFICOS UDG MAIS LARGOS 


O desenho de figuras baixas e largas 
(em vez de altas e estreitas) exige um 
pouco mais de trabalho. 

Comece mudando as linhas 60 e 80 
da seguinte forma: 

60 FOR L=0 TO 7 
80 POKE LX32+1536+F, VAL ("&H"+NS 


Altere a linha DATA de forma que 
apareça assim: 
500 DATA OF,OF,EF,EF,EF,EF,FE,4 


4,FF,FF,FF,FF,FF,FF,40,00,FF,FF 
,FF.FF,FF,FF,66,66 


Finalmente, adicione estas linhas: 


50 РОВ Р=0 TO 2 


100 МЕХТ Е 


Quando você executar o programa, 
verá na tela a figura de um caminhão de 
carga. 





Como isto funciona? Os 24 trechos 
de informação da linha 500 formam três 
quadrados de oito pixels de lado. Se os 
dados fossem lidos por um único 
FOR...NEXT como antes, o caminhão 
apareceria de forma peculiar, cortado 
em três pedaços que se amontariam no 
vídeo. Assim, o computador deve ser 
avisado para colocar os blocos lado a la- 
do, Para fazer isso, um laço extra alte- 
ra o valor do POKE na linha 80, de for- 
ma que o segundo bloco apareça na li- 
nha do topo, ao lado do primeiro. De- 
pois de ser lido, o terceiro bloco é colo- 
cado ao lado dos outros dois por inter- 
médio do comando POKE. 


МОУІМЕМТЕ 05 0Е5ЕМН05 


Você pode mover a figura do avião 
pela tela usando estas linhas: 


110 
120 
130 
140 
150 
160 
170 


DIM A(3),B(3) 

GET (0,0)-(7,7),A,G 

PCLS 

LET X=127 

LET Y=95 

PUT (X,Y)- (X*7,Y*7) , A, PSET 

LET LX=X 

180 LET LY=Y 

190 IF PEEK(338)=251 AND Y>2 TH 
EN Y-Y-2:GOTO 240 

200 IF PEEK(342)=253 AND Y<182 

THEN Y=Y+2:GOTO 240 

210 IF PEEK(340)=247 AND X>3 TH 


ЕМ Х-Х-3:60Т0 240 

220 IF PEEK(338)=247 AND X<245 
THEN X=X+3:GOTO 240 

230 GOTO 190 

240 PUT (LX,LY)-(LX+7,LY+7),B,P 
SET 

250 GOTO 160 


Quando vocé executar este programa, 
a tecla Z movimentará a figura para a 
esquerda; X o fará para a direita; P pa- 
ra cima; e L para baixo. 

O comando GET permite ao compu- 
tador lembrar-se do que está em um de- 
terminado ponto da tela, enquanto PUT 
coloca o que foi encontrado em qual- 
quer outro lugar. DIM, por sua vez, re- 
serva espago na memória para GET. 

As linhas 190 até 220 verificam se 
uma tecla foi pressionada e movem o 
UDG em caso positivo, 

Se vocé quiser mover o coelho deve 
fazer as seguintes alterações: 


110 DIM A(6),B(6) 

120 GET (0,0)-(7,23),A,G 

160 PUT (X,Y)-(X*7,Y*23) , A, PSET 
200 IF PEEK(342)=253 AND Y<166 
THEN Y=Y+2:GOTO 240 

240 PUT (LX,LY)-(LX+7,LY+23),B, 
PSET 


Para movimentar o caminháo, faga 
estas modificações: 








110 DIM A(6) ,B(6) 

120 GET (0,0)-(23,7),A,G 

160 PUT (X,Y)-(X*23,Y*7) , A, PSET 
200 IF PEEK(342)=253 AND Y<182 
THEN Y=Y+2:GOTO 240 

220 IF PEEK(338)=247 AND X<229 
THEN X=X+3:GOTO 240 

240 PUT (LX,LY)-(LX+23,LY+7),B, 
PSET 


COMO USAR 05 ЕМ ВІМА! 


Você pode colocar números em biná- 
rio nas linhas DATA, se quiser, mas 
certifique-se antes de que cada número 
consiste de. um byte de oito bits. Você 
terá, também, que adicionar estas linhas 
ao programa: 


71 LET N=0 

72 FOR J=1 TO 8 

74 1F MIDS(NS,J,1)="1" THEN N=N 
+2” (8-3) 

76 NEXT J 


80 POKE L*32+1536+F,N 


As novas linhas examinam os bytes 
bit por bit, transformando-os em núme- 
ros decimais. Estes sáo, resumidamente, 
equivalentes aos da tabela de conversáo 





mostrada na introdução deste artigo. 
A movimentação de figuras coi 








resolução será apresentada em detalhes 
num artigo próximo. 


4 1! wa 


No Apple, entretanto, a geração de fi- 
guras em alta resolução não segue os 
mesmos padrões de outros computado- 
res, sendo muito mais complicada (em ar- 
tigo anterior, publicamos um editor de fi- 
guras móveis que permite aos usuários 
desse microcomputador utilizarem figu- 
ras compostas por blocos de 8x8 pontos). 

Neste artigo você poderá treinar a uti- 
lização do editor de figuras. Os progra- 
mas a seguir só funcionarão se as figu- 
ras correspondentes tiverem sido gera- 
das pelo editor. 

Carregue o programa editor de figu- 
ras no seu computador e coloque o de- 
senho do pequeno monstro a seguir em 
linhas DATA usando asteriscos. 


Que sistema de numeração — biná- 
rio, decimal ou hexa — é melhor usar 
nas linhas DATA? 

Dependendo das características do 
seu computador, pode ser melhor usar 
o sistema binário. Além de permitir a 
visualização do padrão do desenho, 
evitando contas, o sistema binário pos- 
sibilita alterações de pequenas partes 
da figura. 

Se você quiser empregar o mesmo 
padrão em outros programas, vale a pe- 
na converter os números para decimal 
ou hexa, que são mais compactos. 

A utilização de números hexadeci 
mais vai ajudá-los a se familiarizar com 
esse sistema, que é a base da progra 
mação em código de máquina. 











Execute o programa editor e a figu- 
ra será armazenada na memória. Feito 
isso, digite NEW e o seguinte programa: 


10 HOME : HGR 
20 SCALE- 1: 
30 X = 140: 
40 сото 200 

50 LX = X:LY = Y: GET А5 

60 A = ASC (AS) 

70 IF A = 80 AND Y > 8 THEN Y 
= Y - 4: GOTO 200 

80 IF A = 76 AND Y < 150 THEN 
Y = Y + 4: GOTO 200 

90 IF A - 90 AND X > 8 THEN X 
= X - 4: GOTO 200 

100 IF A - 88 AND X < 270 THEN 
X = X + 4: GOTO 200 

110 GOTO 50 

200 HCOLOR- 0 

210 DRAW 1 AT LX,LY 

220 HCOLOR= 3 

230 DRAW 1 AT X,Y 

240 GOTO 50 


ROT= 0 
= 90 





Não há necessidade de copiar as li- 
nhas DATA geradas pelo programa edi- 
tor. Uma vez criada, a figura permane- 
cerá protegida no topo da memória até 
que o computador seja desligado, ou até 
que o programa editor crie outra forma. 
Nem mesmo NEW pode destruí-la. 

O programa movimenta a figura com 
o auxílio das teclas P, L, X e Z. As li- 
nhas 50 a 110 fazem isso da maneira 
usual. 

As linhas de 10 a 40 cuidam das con- 
dições iniciais: limpeza e definição da te- 
la, escala, orientação e posição inicial da 
figura. 








As linhas de 200 a 240 apagam o 
monstro de sua última posição, dada 
por LX e LY, e o desenham na nova, 
дада рог Х е Ү. 


DESENHOS MAIS LARGOS 


Desenhos compostos de mais de um 
bloco de 8x8 pontos exigem um cuida- 
do especial com as coordenadas. Esse 
cuidado é necessário para que as figu- 
ras se posicionem de acordo com o pla- 
nejado. Para familiarizar-se com esse ti- 
po de desenho, gere os dois blocos que 
compõem o cachorro com o auxílio do 
programa editor. 








Feito isso, digite NEW e carregue o 
programa anterior. Faça as seguintes 
modificações para mover o cachorro: 


100 IF A = 68 AND X < 260 THEN 
X = X + 4: GOTO 200 

215 DRAW 2 AT LX + 8,LY 

235 DRAW 2 AT X * 8,Y 


A condição após AND na linha 100 
evita que o desenho ultrapasse a margem 
direita da tela. Ela teve que ser modifica- 
da porque agora o desenho é mais largo. 

Como a figura tem dois blocos de 8x8 
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pontos, foi necessário colocar duas no- 
vas linhas com comandos DRAW, uma 
para desenhar e outra para apagar o se- 
gundo bloco. 

È importante notar como são de- 
senhados lado a lado os blocos que 
compõem o cachorro, ou seja, da es- 
querda para a direita, e de cima para 
baixo. Assim, as coordenadas no co- 
mando DRAW se referem ao canto su- 
perior esquerdo de cada bloco. Se o pri- 
meiro bloco está desenhado nas coorde- 
nadas X, Y, e queremos que o segundo 
seja colocado å sua direita, a posição 
deste último deve ser X +8,Y. Isso acon- 
tece porque o canto superior esquerdo 
do segundo bloco deve ficar na mesma 
linha do canto superior esquerdo do pri- 
meiro (mesma coordenada vertical Y) 
oito pontos mais à direita. 


UMA FIGURA ALTA E MAGRA 


Continuando nosso treino, carregue 
novamente o editor e gere os dois blocos 
que desenham a silhueta de um homem, 





Digite NEW e carregue o programa 
que movimenta o monstro. Faça então 
as seguintes modificações para mover o 
homem. 


80 IF A = 76 AND Y < 140 THEN 
Y = Y + 4: GOTO 200 

215 DRAW 2 AT LX,LY + 8 

235 DRAW 2 AT X,Y + 8 


Da mesma maneira que no exemplo 
anterior, a condiçào na linha 80 teve que 
ser modificada para que o desenho, ago- 
ra mais alto, nào ultrapasse a margem 
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inferior da tela. 

As linhas 215 e 235 apagam e dese- 
nham, respectivamente, o segundo blo- 
co. Se quisermos colocá-lo abaixo do 
primeiro bloco, teremos que situá-lo na 
mesma coluna, oito pontos mais embai- 
xo. Assim, se a posição do primeiro blo- 
co for X, Y, a do segundo deverá ser 
Х,Ү+8. 


кл ЕУ НДЕП 


Embora o MSX possua caracteres de- 
finíveis pelo usuário (com 8x8 pontos, 
como nas outras máquinas), geralmen- 
te é preferível utilizar os sprites, que são 
mais versáteis e mais adequados à mo- 
vimentação de figuras. 

Todavia, existem situações em que es- 
ses caracteres podem ser muito úteis. 
Uma aplicação muito comum é a rede- 
finição total ou parcial do conjunto de 
caracteres. Isso às vezes é desejável em 
programas que devem utilizar alfabetos 
estrangeiros ou caracteres gráficos dife- 
rentes. 

O conjunto de caracteres do MSX é 
muito completo, contendo todo o alfa- 
beto grego e uma infinidade de outros 
caracteres gráficos. Falta-lhe, porém, a 
letra é (com acento grave), utilizada na 
língua francesa. 

Para criar esse caractere, aplique o 
mesmo método já descrito neste artigo. 
A tabela que se segue traz a codificação 
do padrão do caractere desejado, pronta 


































para ser colocada em uma linha DATA. 


Binário Hex Decimal 
00010000 10 16 
00001000 08 8 
00111100 3c 60 
01100110 66 102 
01111110 7E 126 
01100000 60 96 
00111100 зс 60 
00000000 00 0 


O formato decimal é mais fácil de 
usar. Mas mais difícil de calcular. O 
MSX aceita números binários e hexade- 
cimais, desde que certos padrões sejam 
respeitados. 

Para incorporar o novo caractere, use 
o programa: 


10 SCREEN 0:KEY OFF 
20 FOR I-0 TO 959 

30 VPOKE BASE(0)*1,205 
40 NEXT 








50 Е-205%8 

60 FORI=E TO E+7 

70 READ BS 

B0 VPOKE BASE(2)*I,VAL("&B"*B$) 
90 NEXT I 

FOR I-1 TO 2000:NEXT I 
CLS:END 

DATA 00010000 

DATA 00001000 

DATA 00111100 

DATA 01100110 

DATA 01111110 

DATA 01100000 

506 DATA 00111100 

507 DATA 00000000 


Ao ser executado o programa, a tela 
é ocupada por um símbolo gráfico. Em 
seguida esse símbolo se transforma no 
caractere que procuramos, ou seja, a le- 
tre ê com acento grave. Após alguns ins- 
tantes, a tela fica novamente limpa. O 
novo caractere, contudo, continua na 
memória e pode ser obtido da mesma 
maneira que o símbolo gráfico do qual 
tomou o lugar. Para isso, basta pressio- 
nar as teclas GRAPH e “E” ao mesmo 
tempo. O caractere só desaparecerá da 
memória quando utilizarmos o coman- 
do SCREEN ou quando desligarmos o 
computador. 


ENTE! O PROGRAMA 


A linha 10 escolhe a tela de textos 
com 40 colunas e apaga do rodapé da 
tela as teclas de função. O laço das li- 























PROGRAMAS EDITORES 

Crie suas próprias figuras no Apple 
e no MSX, utilizando os programas edi- 
tores fornecidos por /VPUT para estes 
computadores. Eles calcularão os nú- 
meros nas linhas DATA para você. 

Lembre-se de que não será preciso 
digitar essas linhas. Ambos os compu- 
tadores possuem facilidades de edição 
que permitem usar-a própria tela pro- 
duzida pelo editor — uma vez interrom- 
pido o programa — para criar uma linha 
DATA com um número alto na frente 
(a partir de 5000). 

No MSX isto é feito com as teclas 
do cursor, INS, DEL e ENTER. No Ap- 
ple, com ESC, I, J, K, M, setas e RE- 
TURN. 

No Apple e no TK-2000 pode-se 
gravar a tabela de figuras usando o co- 
mando W do monitor. Quem tiver dis- 
co, pode usar o comando BSAVE. 











nhas 20 a 40 enche a tela com o caracte- 
re de código igual a 205 — correspon- 
dente a GRAPH + E. 

Os padrões de todo o conjunto de ca- 
racteres estão guardados na VRAM — 
memória de vídeo — a partir do ende- 
reço dado por BASE (2). Para saber co- 
mo é o formato de um caractere, o com- 
putador multiplica o valor de seu codi- 
go por 8 e soma esse valor ao de BASE 
(2). O número que resultar dessa conta 
será o enderego do primeiro de uma sé- 
rie de oito bytes onde ficará armazena- 
da a forma do caractere. 

A linha 50 multiplica por 8 o códi- 
go do caractere que vai ser modificado, 
para saber onde seu formato está na 
VRAM. O laço das linhas 70 a 90 colo- 
ca nesse local o padrão do novo carac- 
tere; os números são lidos com READ 
nas linhas DATA. Na linha 80, VAL 
(&B + B$) permite que sejam utilizados 
números binários. 

A linha 100 retarda o processo até 
que a linha 110 apague a tela e termine 
o programa. 

Se for preciso economizar espaço, as 
linhas DATA podem ser substituídas 
por uma única linha. 


500 DATA 00010000,00001000,0011 
1100,01100110,01111110,01100000 
,00111100,00000000 


Essa linha única, porém, não permite 
que se visualize claramente o caractere. 

Se quisermos usar números hexade- 
cimais, devemos fazer as seguintes mo- 
dificações: 


80 VPOKE BASE(2)+I,VAL("&H"+BS) 
500 DATA 10,08,3C,66,7E,60,3C,0 
0 


Uma linha DATA desse tipo é bem 
mais fácil de ser digitada. 

Para criar o mesmo caractere na tela 
de textos com 32 colunas, faca as seguin- 
tes modificações: 


20 FOR I=0 TO 767 
30 VPOKE BASE(5)+1,205 
80 VPOKE BASE (7)+1,VAL ("£H"+B5) 


Note que a linha DATA deve estar 
em hexa. 


O Spectrum aceita dados tanto em bi- 
nário quanto em decimal, mas náo em 
hexa. Para ver como ele trabalha com 
gráficos, digite: 


PRINT (graphics A)” 


Para poder obter o símbolo (graphics 
A), vocé deverá pressionar <CAPS 
SHIFT> e <GRAPHICS> ao mesmo 


tempo e depois teclar “A”. 

O que você vê parece um A maiús- 
culo normal. Mas você pode defini-lo 
como uma forma de 8x8 pontos. 

Para fazer isto, tudo o que você pre- 
cisa é de um programa de cinco linhas. 
Assim, se você quiser plantar o pinhei- 
ro da ilustração, deve digitar as linhas 
a seguir: 


10 FOR n=0 TO 7 

20 READ data 

30 DATA BIN 00010000,BIN 0001 
1000,BIN 00111000,BIN 0011110 
0,ВІМ 01111100,ВІМ 01111110, 
BIN 11111110,BIN 00010000 

40 POKE USR "a"+n, data 

50 NEXT n 


Esse programa usa um laço 
FOR...NEXT nas linhas 10 e 50 para dar 
entrada às oito linhas do desenho em se- 
qüéncia. A linha 20 diz ao computador 
para ler dados na linha DATA e a linha 
40 coloca esses dados na memória do 
computador, usando o comando POKE. 

Execute o programa e digite: 


PRINT "(graphics A)” 


Você verá que o *‘A™ desapareceu e 
em seu lugar aparece um pinheiro. Se 
você digitar NEW agora, o programa se- 
rá apagado da memória, mas o desenho 
ficará na memória até que o computa- 
dor seja desligado. Assim, você pode 
movê-lo pela tela ou usá-lo para efeitos 
decorativos como se ele fosse um carac- 
tere qualquer. Tente este exemplo: 


5 CLS 

10 FOR y=3 TO 19 

20 LET x=INT (RND*20)+5 

30 PRINT AT y,x; INK 4;" (grap 
hics A)” 

40 LET xx-INT (RND*20)*5 

50 PRINT AT y,xx; INK 2;"(gra 
phics A)" 

60 NEXT y 


Esses pinheiros poderiam ser usados 
como obstáculos para um jogo de esqui. 


DESENHE UM NAVIO 


Quando vocé quiser criar gráficos 
maiores que 8x8, desenhe dois ou mais 
blocos de 8x8. 

O programa a seguir, por exemplo, 
cria a proa de um destróier (que vocé po- 
de colocar em um de seus jogos, usan- 
do as técnicas apresentadas em Progra- 
mação de Jogos): 














10 FOR n=0 TO 7 

20 READ a 

30 DATA BIN 0,BIN 0,BIN 0,BIN 
00000111,BIN 00000011,BIN 111 
11111,BIN 00000011,BIN 111111 
11,BIN 01111111,BIN 00111111 
40 POKE USR "a"*n,a 

50 NEXT n 


Dois aspectos devem ser ressaltados. 
Primeiro: vocé pode usar BIN 0 se a li- 
nha inteira for vazia. Segundo: coloque 
na linha 20 uma variável simples “a” em 
lugar de “data”, que foi inserida no 
programa anterior para que este ficasse 
mais compreensível. Poderia ser qual- 
quer ошга соіза, сото “5”, “с” ou 
“x”, ou mesmo *'maria''; mas para is- 
so deveria ser utilizada uma variável 
idêntica na linha 40 

Quando você for entrar os dados pa- 
ra as outras duas partes do navio, não 
haverá necessidade de redigitar o progra- 
ma todo. Depois de executá-lo a primei- 
ra vez, e com o primeiro gráfico na me- 
mória, mude a linha 40 para USR “b”, 
por exemplo. Mude também a linha 30 
de modo que ela passe a conter os no- 
vos dados das outras partes do navio. 





Tome cuidado para que as suas linhas 
DATA tenham sempre oito dados, mes- 
mo que estes sejam apenas zeros. Um 
número menor de linhas provocará um 
erro do tipo: E Out of DATA, 20:1. Co- 
loque linhas a mais e vocé descobrirá 
que seu navio está afundando. 

Finalmente, para entrar os dados em 
decimal, converta os binários de acor- 
do com o método já descrito; a seguir, 
coloque-os na linha DATA omitindo a 
palavra BIN. A linha 30 do programa 
do destróier ficará assim: 








30 DATA 0,0,0,7,3,255,127,63 


Uma vez compreendidos os princí- 
pios gerais, vocé pode colocar no com- 
putador qualquer um dos gráficos des- 
ta página. Depois de ter feito uns trés 
deles, vocé verá que já tem prática sufi- 
ciente para criar os seus próprios dese- 
nhos e colocá-los no computador. 
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UM ASSISTENTE 


DE ARTE 


Mesmo não sendo um Leonardo da Vinci, 
você pode realizar belos 

desenhos com a ajuda do computador. 
Para isso, basta executar o 

programa apresentado nesta lição. 
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Você não precisa ser um Rafael ou 
mesmo um Pablo Picasso para desenhar 
com desenvoltura. Devidamente progra- 
mado, seu computador pode se transfor- 
mar em uma poderosa ferramenta de de- 
senho, capacitando-o a realizar traba- 
lhos gráficos de boa qualidade com li- 
berdade igual (ou até maior) que a de 
um artista que trabalha apenas com ma- 
terial convencional: lápis e papel. 

Na indústria, a combinação de pro- 
gramas de Desenho Auxiliado por Com- 
putador (conhecido pela sigla CAD, da 
expressão em língua inglesa Computer 
Aided Design) com computadores de 
grande porte permite não só a execução 
de desenhos de objetos com muita rique- 
za de detalhes como também a simula- 
ção de situações em que tais objetos são 
submetidos à ação de determinados fa- 
tores como carga, vento, vibração ou 
variações térmicas. Essas técnicas extra- 
polam a capacidade do micro domésti- 
co, visto que exigem o processamento de 
um volume muito grande de dados, as- 
sim como uma capacidade gráfica alta- 
mente desenvolvida, para que se possa 
produzir imagens de vários ângulos do 
objeto em estudo. 

Freqüentemente, no entanto, o dese- 
nhista necessita apenas estudar um de- 
talhe ou a aparéncia geral do objeto. 
Nestes casos, o CAD se torna uma fer- 
ramenta capaz de substituir lápis e pa- 
pel na execução de desenhos técnicos, 
permitindo o traçado preciso de curvas, 
linhas retas e figuras geométricás, com 
a vantagem da possibilidade de correção 
instantânea. 


VANTAGI PROGRAMA 


O CAD pode ser aplicado aos com- 
putadores domésticos, seja para explo- 
rar o aspecto técnico do desenho, seja 
para produzir belas formas. Mas, ape- 
sar de quase todos os micros existentes 
no mercado brasileiro (com exceção das 
linhas Apple e TRS-80) já apresentarem 
comandos para desenhar formas ele- 
mentares dentro do BASIC, é sempre 
necessário um longo programa para se 
construir formas mais sofisticadas. 
Exemplos de como isto é feito já foram 
apresentados em artigos anteriores. 


A beleza do programa editor de de- 
senhos consiste em que, uma vez na me- 
mória do computador, ele possibilita a 
criação de imagens até o limite gráfico 
da máquina, sem que seja necessário ela- 
borar novos programas. Além disso, ele 
coloca todos os comandos para gráficos 
sob o controle direto do teclado; dessa 
forma, tudo o que se tem a fazer é es- 
colher uma opção ou mover o cursor 
usando as teclas apropriadas. Esse re- 
curso oferece, em alguns casos, possi- 
bilidades que não são encontradas no 
BASIC padrão do computador. 

Como as habilidades gráficas dos di- 
versos micros variam muito, existem 
grandes diferenças entre os programas, 
esquematizados para explorar ao máxi- 
mo as vantagens e minimizar as fraque- 
zas do computador ao qual estão desti- 
nados. Os Spectrum, por exemplo, po- 
dem mostrar facilmente texto e gráficos 
na mesma tela, o que é impossível nos 
micros das linhas Apple e TRS-Color. 
Por outro lado, estes podem guardar de- 
senhos que não estão à vista, enquanto 
o MSX, por exemplo, não pode. 

Devido à limitada capacidade gráfi- 
ca do ZX-81, não apresentaremos pro- 
grama para esse micro. O programa pa- 
ra o Sinclair Spectrum rodará somente 
em máquinas com um mínimo de 48K, 


ÍLIO AO DESENHO 


Apesar das diferenças, os programas 
funcionam de forma semelhante: o 
usuário é apresentado a um menu (ou 
lista) de opções de desenho, que ofere- 
ce formas como linhas, elipses, círculos 
ou retângulos. Ao selecionar uma delas, 
você pode construir formas muito inte- 
ressantes, usando as teclas de controle 
do cursor para posicioná-lo na tela; as 
linhas resultantes serão precisas e regu- 
lares. E se um erro for cometido, alguns 
computadores lhe darão a oportunida- 
de de correção. 

Você encontrará também a opção de 
mudar a cor com que desenha ou, em 
alguns casos, de colorir uma determina- 
da área. Quando terminar, pode esco- 
lher entre apagar tudo e recomeçar ou 
gravar a imagem de forma que ela pos- 
sa ser recolocada na tela, mais tarde. Is- 


to lhe possibilitará também carregar na 
memória (e alterá-lo) um desenho de seu 
agrado que não tenha sido montado por 
este programa. 


EXECUTE O PROGRAMA 


As diterenças entre as diversas má- 
quinas serão explicadas nos blocos es- 
pecíficos. Em todos os casos, o progra- 
ma aparece dividido em duas partes: 
nesta ligáo trataremos da primeira (de- 
senhos com linhas simples); a segunda 
parte, com variações mais sofisticadas, 
será abordada no próximo artigo. 


Um menu e o cursor serão mostrados 








а 4 ео SAE = Or 


ба A ER 
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п DESENHE COM À AJUDA DO M APRENDA A DESENHAR A 
COMPUTADOR MÃO LIVRE 

MH COMOESTENDEROSCOMANDOS ІШ COMO OBTER MAIOR PRECISÃO 
GRÁFICOS JÁ EXISTENTES USANDO A OPÇÃO “LINHA” 





п COMO USAR O PROGRAMA 


п APRENDA A USAR CORES 














na tela, assim que o programa for exe- 
cutado. Para selecionar um item do me- 
nu, coloque o cursor à sua esquerda, 
usando as teclas Q (para cima), A (para 
baixo), O (para a esquerda) e P (para a 
direita). Em seguida, pressione <EN- 
TER > para fazer a escolha; o vídeo se- 
rá apagado, deixando o cursor numa te- 
la vazia. Você poderá, a qualquer mo- 
mento, retornar ao menu (ou deixá-lo) 
apenas pressionando <ENTER>. 

A primeira opção do menu é ““Dese- 
nhar”, que coloca pontos na tela. Para 
usar essa opção, posicione o cursor no 
ponto em que você deseja iniciar o de- 
senho e pressione a barra de espaços. Ao 
ser movimentado, o cursor deixará uma 
trilha de pontos. O movimento pode ser 
acelerado pressionando-se a tecla 
<SHIFT > juntamente com a tecla que 
controla a direção do deslocamento. Pa- 


ra terminar a linha desenhada, acione a 
barra de espaços novamente, o que lhe 
permitirá mover o cursor sem marcar a 
tela ou retornar ao menu para selecio- 
nar outra opção. 

A opção “Linha” funciona de for- 
ma semelhante à anterior. A diferença 
é que a linha obtida é cheia: pressione 
<ENTER> para selecioná-la e tecle a 
barra de espaços para desenhar e nova- 
mente para terminar. A opção selecio- 
nada permanecerá disponível até que 
uma nova seja escolhida. Dessa forma, 
pode-se ir até outro ponto e iniciar uma 
nova linha, e assim por diante. 

Existem duas opções que lhe permi- 
tem colorir a tela: “Fundo”, para pin- 
tar a moldura e o fundo e “Tinta”, pa- 
ra colorir à medida que se desenha. Se- 
lecionada uma dessas alternativas, uma 
mensagem será mostrada para que vo- 


cê escolha as cores. O cursor lhe mos- 
trará a cor em uso, de forma que se po- 
derá ver o efeito instantaneamente. 

Depois de ter respondido a todas as 
questões, o programa volta ao desenho, 
com o cursor no local onde foi deixa- 
do. Pode-se fazer a opção “Tinta” an- 
tes ou enquanto se desenha. Somente 
após se ter deixado a opção de desenho 
(ao pressionar a barra de espaços pela 
segunda vez) é que a linha será fixada. 

Atenção, o programa contém código 
de máquina, de forma que deve ser gra- 
vado (SAVE) antes de se executar 
(RUN). 


10 BORDER 4: 
OVER 0: СІЗ 
20 РОКЕ 23658,0: ГЕТ ОР=1 

40 РІМ 0(12): FOR N=1 TO 12: 


PAPER 7: INK 0: 


READ O(N): NEXT N: LET x=127: 
LET у-87 

60 LET xl-x: LET yl-y 

65 LET xx-0: LET уу-0 

70 FOR n-65368 TO 65368473: 
READ a: POKE n,a: NEXT n 


100 RAND USR 65380 
1020 PRINT INK 9;AT 2,9;" 


1030 PRINT INK 9;AT 3,9;" DE 
SENHAR е 

1040 PRINT ІМК 9;АТ 4,9;" LI 
NHA E 

1050 PRINT ІМК 9;АТ 5,9;" ғу 
NDO ү 

1060 PRINT INK 9;AT 6,9;" TI 
NTA Y 

1070 PRINT INK 9;AT 7,9;" RE 
TANGULO ^" 

1080 PRINT INK 9;AT 8,9;" CA 
IXA P 

1090 PRINT INK 9;AT 9,9;" ст 
RCULO " 

1100 PRINT INK 9;AT 10,9;" ^ 
PAGAR x 

1110 PRINT INK 9;AT 11,9;" o 
OPS ” 

1115 PRINT INK 9;AT 12,9;" c 
OPIAR m 

1120 PRINT INK 9;AT 13,9;" c 
ARREGAR N 

1130 PRINT INK 9;AT 14,9;" G 
RAVAR * 

1140 PRINT INK 9;AT 15,9;" 
1150 PLOT 72,48: DRAW INK 9;11 
1,0: DRAW INK 9;0,111: DRAW I 


NK 9;-111,0: DRAW INK 9;0,-111 
1155 FOR n-1 TO 100: NEXT n 
1160 PRINT INVERSE 1; 


PAPER 9;. 








AT 0P+2,10;">" 

1170 PAUSE 0: LET AS=INKEYS: IF 
AS="" THEN GOTO 1170 

1175 IF AS=CHR$ 13 AND OP=9 THE 
N RAND USR 65404: RAND USR 653 
68: GOTO 1000 
1180 IF AS-CHR$ 13 
SR 65392: RAND USR 65368: FOR n 
=] TO 100: NEXT n: GOTO O(OP) 
1190 PRINT AT OP*2,10;" " 

1200 IF A$-"a" THEN LET OP-OP* 
1: IF OP=13 THEN LET OP=12 


THEN RAND U 


1210 IF A$="q” THEN LET OP=0P- 
1: IF OP-0 THEN LET OP-1 

1220 GOTO 1160 

2000 REM desenhar 

2005 FOR n-1 TO 50: NEXT n 


2010 GOSUB 8000 

2060 IF INKEYS-CHRS$ 13 THEN RA 
ND USR 65380: GOTO 1000 

2070 IF INKEYS<>CHRS 32 THEN G 
ото 2010 

2080 FOR n-1 TO 50: NEXT n 
2090 GOSUB 8000: PLOT x,y 

2095 IF INKEYS-CHR$ 13 THEN RA 
ND USR 65380: GOTO 1000 

2100 IF INKEYS-CHRS .2 THEN GO 
TO 2005 

2110 GOTO 2090 
2500 REM linha 
2505 FOR n=1 TO 50: 
2510 GOSUB 8000 
2515 IF INKEYS=CHR$ 13 THEN RA 
ND USR 65380: GOTO 1000 

2520 IF INKEYS<>CHRS 32 THEN G 
OTO 2510 

2525 FOR n=l TO 50: NEXT n 

2530 LET xx=0: LET yy=0: LET hx 
=x: LET hy=y 

2540 GOSUB 8000: PLOT hx,hy: DR 
AW OVER l;xx,yy: FOR n=1 TO 5: 
NEXT n: PLOT hx,hy: DRAW OVER 
l;xx,yy 

2550 IF INKEYS<>CHRS 32 THEN G 
OTO 2540 

2560 PLOT hx,hy: 
TO 2500 

3000 REM fundo e borda 

3010 PRINT 41;AT 0,0;"Cor de fu 


NEXT n 


DRAW xx, yy: GO 


Desenhos a traços, como os mostrados na tela do Spectrum... 
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(0 a 7)?" 
LET aS=INKEYS 
IF a$€"0" OR a$»"7" THEN 
3015 

POKE 65535,VAL a$*8 

RAND USR 65416 

3040 FOR n=1 TO 50: NEXT n 
3050 PRINT 41:AT 0,0;"Cor da bo 
rda (0 a 7)?" 

3060 LET a$=INKEYS 

3070 IF a$«"0" OR a$5"7" 
GOTO 3060 

3080 BORDER VAL a$ 
3090 PRINT $1;AT 0,0;” 
TAB SL E 

3095 RAND USR 65416: RAND USR 6 
5380: GOTO 1000 

3500 REM tinta 

3510 PRINT 41;AT 0,0;"Selecione 
tinta (0 a 7)” 

3520 ГЕТ а$=ІМКЕҮ$: ІР а$<"0" 0 
R a$>"7" THEN GOTO 3520 

3530 INK VAL ag 

3540 PRINT %1;АТ 0,0;" 
i” ": GOTO 1000 

7500 GOTO 1000 

8000 REM rotina INKEYS 
8005 PLOT OVER 1;х,у 
8010 LET AS=INKEYS 
8020 IF AS="q" AND y<175 THEN 
LET yl=y+1: LET yy=yy+1 

8030 IF A$="a” AND y>0 THEN LE 
T yl=y-1: LET yy=yy-1 

8040 IF AS-"p" AND x<255 THEN 
LET xlex*l: LET xxexx*l 

8050 IF A$-"o" AND x»0 THEN LE 
T xlex-l: LET хх-хх-1 

8060 IF AS="Q" AND y<172 THEN 
LET yl=y+4: LET yy=yy+4 

8070 IF а5-"А" AND y>3 THEN LE 
T yley-4: LET yy=yy-4 

8080 IF aS-"P" AND x<252 THEN 
LET xlex*4: LET xx-Xx*4 

8090 IF a$="0" AND x23 THEN LE 
T xlex-4: LET xx=xx-4 
8095 PLOT OVER 1;x,y 
8100 LET x=x1l: LET y=yl: 


ndo 

3015 
3020 
GOTO 
3030 
3035 


THEN 


";TAB 31 


"¡TAB 31 


RETURN 


9000 DATA 2000,2500,3000,3500,4 


... podem ser realizados facilmente com o programa deste artigo. 
























































000,4020,5000,5500,0,6000,7000, 
7500 

9010 DATA 17,0,64,33,80,195,1,0 
,.27,237,176,201,17,80,195,33,0, 
64,1,0,27,237,176,201 

9020 DATA 17,168,222,33,80,195, 
1,0,27,237,176,201,17,80,195,33 
,168,222,1,0,27,237,176,201 
9030 DATA 33,0,88,6,4,197,6,176 
+203,158,203,166,203,174,58,255 
,255,134,119,35,16,242,193,16,2 
36,201 


O programa começa mostrando um 
submenu, que permite escolher valores 
para o modo, tela e cor, Use as setas pa- 
ra mover o cursor e a barra de espaços 
para fazer a seleção. 

Depois de escolher os valores apro- 
priados, pressione <ENTER> para ter 
o menu principal. Para acessar as op- 
ções, posicione o cursor (usando as se- 
tas) ao lado do número do item e pres- 
sione a barra de espaços. Isso propor- 
ciona a limpeza da tela, deixando-a com 
o cursor pronto para desenhar. Para re- 
tornar ao menu a qualquer momento, 
pressione <ENTER>. 

A primeira opção do menu principal 
é “Mudar a tela”, que dá acesso ao sub- 
menu. A opção seguinte é “Desenhar”, 
usada para desenhar a mão livre, como 
se faz com um lápis. Quando seleciona- 
da, essa opção permite mover o cursor 
até o ponto escolhido para dar começo 
ao desenho; enquanto a barra de espa- 
ços for mantida pressionada, uma linha 
permanecerá na tela. Para interromper 
o desenho, basta soltá-la. Pode-se ace- 
lerar o movimento pressionando-se 
<CLEAR>. Observe que isso só fun- 
ciona quando não se desenha. 
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Na próxima lição, você verá como adicionar cor ao desenho... 


Em qualquer das opções de desenho, 
pode-se mudar de cor pressionando-se 
um número entre O e 8: isto lhe forne- 
cerá a cor correspondente que consta do 
seu manual. Para sair de “Desenhar” 
pressione < ENTER >, voltando ao me- 
nu principal. 

A opção “Traçar Linha” permite de- 
senhar linhas retas. Selecione a opção 
com as setas, desloque o cursor até o 
ponto onde deseja iniciar o desenho e 
pressione a barra de espaços. Escolha 
então a cor (números de O a 8). A cor 
do cursor depende da cor de fundo, mas 
não afeta a cor da linha. Mova o cursor 
até o ponto onde deseja terminar a li- 
nha e acione a barra de espaços para 
desenhá-la. Pressione < ENTER > pa- 
ra voltar ao menu principal. Tecle 
<CLEAR> para deixar o programa 


10 PCLEAR 8 

20 CLS:PA=239:PB=223:PC=247:PD= 
191:РЕ-183 

30 DIM SC(1228),CP(614) 

40 DEFFNR(Z)=SQR((XS-X)*(XS-X)+ 
(YS-Y)* (YS-Y)) 

50 MD=-1:ST=-1:0P=1:CL=1:X=127: 
Y=95 

60 GOTO 80 

70 FOR K=1 TO 1500:NEXT 

80 GOSUB 1000 

90 IF MD<O THEN PRINT @449, "егг 
o NAO FOI DEFINIDO MODO GR 
AFICO":GOTO 70 

100 IF STX0 THEN PRINT 6449,"er 
ro NAO FOI DEFINIDO TIPO DE Ж 
ELA” :GOTO 70 

110 OT=1:PMODE MD,1 

120 CLS:PRINT €7,"MENU PRINCIPA 
L” 

130 PRINT €103,"1- MUDAR TELA” 
PRINT €135,"2- DESENHAR” : PRINT 
€167,"3- TRACAR LINHA":PRINT €1 
99,"4- RETANGULO":PRINT 6231,"5 
- CAIXA” :PRINT 6263,"6- CIRCULO 


140 PRINT 6295,"7- DISCO”: PRINT 
8327,"8- ELIPSE":PRINT 6359,"9 
- COPIAR":PRINT €390,"10- PREEN 
CHER":PRINT 6422,"11- ERRO":PRI 
NT 6454,"12- GRAVAR/CARREGAR" 
150 POKE 1097*0T*32,128 

160 IF PEEK(341)=PC AND OT>1 TH 
EN POKE 1097*0T*32,96:0T-0T-1:G 
OTO 150 

170 IF PEEK(342)-PC AND OT<12 T 
HEN POKE 1097*0T*32,96:0T-OT*1: 
GOTO 150 

180 IF PEEK(345)-PC THEN 200 
190 IF PEEK(339)-PD THEN CLS:EN 
D ELSE 160 

200 IF OT<>11 THEN 220 

210 PMODE MD,5:PUT (0,0)-(255,1 
91),SC:GOSUB 500:PMODE MD,1:GOT 
o 120 

220 GOSUB 510 

230 GET(0,0)-(255,191),SC 

240 EF=0 

250 ON OT GOSUB 1000,2000,3000, 
3000,3000,3000,3000,3000,4000,5 
000,0,6000 

260 GOTO 120 

500 FOR K=1 TO 4:PCOPY K+4 TO K 
:NEXT: RETURN 

510 FOR K=5 TO 8:PCOPY K-4 TO K 
:NEXT: RETURN 

1000 CLS:PRINT 66,"ргерагасао 4 
a tela" 

1010 PRINT €102,"1- MODO GRAFIC 
О" :РВІМТ 6166,"2- TIPO DE TELA" 
:PRINT 8230,"3- LIMPAR TELA" 
1020 PK=PEEK(1062+64*0P) :POKE 1 
062+64*0P,63 AND PK 

1030 IF PEEK(341)=PC AND OP>1 T 
HEN РОКЕ 1062%64жОР,РК:ОР-ОР-1: 
сото 1020 

1040 IF PEEK(342)=PC AND OP<3 T 
HEN POKE 1062*64*0P,PK:OP-0P*1: 
GOTO 1020 

1050 IF PEEK(338)=PD THEN RETUR 
N 
1060 
1070 
1080 
1400 


IF PEEK(345)=PC THEN 1080 
GOTO 1030 
CLS:ON OP GOSUB 1200,1300, 





2. como nestes exemplos mostrados na tela do TRS-Color. 


1090 FOR K=1 TO 200:NEXT:GOTO 1 
000 

1200 PRINT 633,"QUE MODO GRAFIC 
O DESEJA USAR (0-4) 7"; 

1210 А5“ІМКЕҮ5:ІҒ А5<"0” ОВ А5> 
"4" ТНЕМ 1210 

1220 PRINT AS:MD=VAL (AS) : РМОРЕ 
MD, 1: RETURN 

1300 IF М0<0 THEN PRINT €449,"e 
rro NAO FOI DEFINIDO MODO G 
RAFICO”:FOR K=1 TO 1000:NEXT:RE 
TURN 

1310 PRINT €33,”QUE TIPO DE TEL 
A DESEJA USAR (0 OU 1) 2”; 
1320 AS-INKEYS:IF A$€"0" OR А5> 
"1" THEN 1320 

1330 PRINT A$:ST-UAL (A$) : RETURN 
1400 PRINT €33,"TEM CERTEZA QUE 
QUER LIMPAR A TELA (S/N)?" 
1410 AS-INKEYS:IF ASX»"S" AND A 
S<>"N” THEN 1410 

1420 IF A$-"N" THEN RETURN 
1430 PRINT 6129,"COM QUE COR VO 
CE DESEJA LIMPAR A TELA (0-8)? 


1440 AS=INKEYS:IF AS<"0” OR AS> 
"8" THEN 1440 

1450 PRINT A$:PMODE MD,5:PCLS V 
AL(AS) :PMODE MD,1:PCLS ЧАГ (АҘ): 
RETURN 

1500 FOR K=0 TO 7:ІР РЕЕК(338%К 
)=PA THEN CL=K 

1510 NEXT:IF PEEK (338)-PB THEN 
CL-8 

1520 IF PEEK(338)=PD THEN EF=1: 
RETURN 

1530 DRAW"BM"+STRS (X) +”, "+STRS( 
Y) *";C"*STR$ ( (PPOINT (X, Y) *3) AND 
7) +"BE4G2BD4NF 2BL4NG2BU4H2” :CO 
LOR CL 

1550 IF PEEK(339)=PD 
ELSE DF=1 

1560 IF PEEK(341)=PC 
F:GOTO 1610 

1570 IF PEEK(342)=PC 
F:GOTO 1610 

1580 IF PEEK(343)=PC 
F:GOTO 1610 

1590 IF PEEK(344)=PC 


THEN DF=10 
THEN Y=Y-D 
THEN Y=Y+D 
THEN X=X-D 


THEN X=X+D 


417 











F:GOTO 1610 

1600 RETURN 

1610 X=255 AND X 

1620 IF Y>191 OR Y«0 THEN Y-Y*1 
91* (2* (Y>191)+1) 

1630 GOSUB 500:RETURN 

2000 SCREEN 1,ST:GOSUB 1500 
2010 IF EF=1 GOSUB 500:RETURN 
2020 IF PEEK(345)=PC THEN PMODE 
MD,5:PSET(X,Y,CL):PMODE MD,1:P 
OKE 345,255 

2030 GOTO 2000 

3000 SCREEN 1,ST:GOSUB 1500 
3010 IF EF=1 GOSUB 500:RETURN 
3020 IF PEEK(345)<>PC THEN 3000 
3030 XS=X:YS=Y 

3040 GOSUB 1500 

3050 GOSUB 500 

3060 IF EF=1 THEN RETURN 

3070 ON OT GOSUB 0,0,3130,3140, 
3140,3150,3150,3160,0,0,0 

3080 IF PEEK(345)=PC THEN 3100 
3090 GOTO 3040 

3100 IF OT=5 THEN LINE(X,Y)-(XS 
,YS) ,PSET,BF 

3110 IF OT-7 THEN PAINT (X,Y),C 
L,CL 

3120 GOSUB 510:GOTO 3000 

3130 LINE(XS,YS) - (X, Y) , PSET: RET 





URN 

3140 LINE(XS,YS) - (X, Y) , PSET, B:R 
ETURN 

2150 CIRCLE (X, Y) ,FNR(Z) ,CL:RETU 


3160 IF XS<>X THEN 3190 

3170 IF(2*YS-Y)>191 OR (2*YS-Y) 
<0 THEN RETURN 

3180 LINE (X,Y)-(X,2*YS-Y) , PSET 
:RETURN 

3190 CIRCLE(XS,YS) , ABS(X-XS) , CL 
,ABS ( (Y-YS) / (X-XS) ) : RETURN 

4000 RETURN 

5000 RETURN 

6000 RETURN 


e AA 


O programa começa oferecendo a 
possibilidade de trabalhar nas páginas 
1 ou 2 de gráficos de alta resolução. A 
seguir, escolhe-se a cor de fundo. 

Depois que a tela é preenchida com 
а сог де sua preferência, chega-se ao me- 
nu principal de opções. Tanto neste co- 
mo no programa anterior, seleciona-se 
o item desejado pressionando-se as se- 
tas do teclado até que o vídeo comece 
a piscar. Então, pressiona-se <CR> ou 
<RETURN>. 

Para desenhar linhas de qualquer ta- 
manho e em qualquer posição faça a op- 
ção “TRAÇAR LINHAS? (isso é feito 
da maneira usual). Posicione então o 





cursor em uma das extremidades da li- 
nha que vocé deseja. Pressione a barra 
de espaços. Você ouvirá um bip e um 
ponto aparecerá na tela. Mova o cursor 
até a outra extremidade da linha e acio- 
ne novamente a barra de espaços. Sua 


linha será traçada no mesmo instante. 

Se você quiser desenhar em outras co- 
res, pressione uma das teclas de O a 7. 
Cada uma delas lhe oferece a cor cor- 
responde, cuja tabela você encontrará 
no seu manual. Nesse momento, você 
notará que a questão das cores não é 
muito simples. Existem várias interações 
que ocorrem entre as cores próximas. 
Assim, nem sempre a cor escolhida apa- 
recerá adequadamente na tela. Logo, nc 
entanto, vocé aprenderá a contornar es- 
se problema. 

Outra opção disponível é “APA- 
GA”, que limpa a tela em uso, dando 
a você a possibilidade de escolher uma 
nova cor de fundo. 

O menu principal oferece nove alter- 
nativas, mas apenas algumas delas es- 
tão disponíveis no momento. A primei- 
ra (“NOVA TELA”) leva você de vol- 
ta ao início do programa, permitindo 
que se refaçam as opções. Note que a 
tela escolhida será apagada. 

As cinco opções seguintes dizem res- 
peito à possibilidade de desenhar. Por 
enquanto, porém, apenas ''DESE- 
NHAR” e “TRAÇAR LINHAS” estão 
à sua disposição. A opção “DESE- 
NHAR” funciona da seguinte forma: ao 
ser feita a escolha do item, ele ficará pis- 
cando; pressione <CR> ou <RE- 
TURN>; imediatamente, a tela gráfi- 
ca será colocada à sua disposição, com 
o cursor posicionado em seu centro. O 
cursor pode ser movimentado pela tela 
usando-se as teclas I, J, M, K, U, N, ', 
*, O. Para começar a desenhar, pressio- 
ne a barra de espaços. Você ouvirá um 
bip e o cursor desaparecerá. A partir 
desse momento, todo o trajeto percor- 
rido ficará marcado na tela. Para parar 
de desenhar e ter o cursor de volta, te- 
cle novamente a barra de espaços. 

Para voltar ao menu principal, pres- 
sione mais uma vez o comando <CR>. 

A opção “MUDAR DE TELA” exi- 
ge um cuidado especial. Só é possível de- 
senhar na tela escolhida no início do 
programa. Assim, essa opção permite 
apenas que você dê uma olhada na ou- 
tra tela, que não está sendo usada. De- 
pois de selecioná-la, escolha uma das al- 
ternativas de desenho. A outra tela lhe 
será então mostrada; não se esqueça, 
porém, de que não é possível desenhar 
sobre ela. Para retornar à tela original, 
tecle <CR> e selecione novamente 
“MUDAR DE TELA”. 

Finalmente, aprenda a sair do pro- 
grama, teclando <ESC> quando esti- 
ver no menu principal. 


10 ONERR GOTO 9000 
20 РІ = 4 * АТМ (1) 
30 DIM CL$(7),0PS(8) 


40 FOR 1 = 0 TO 7: READ CLS(I) 


: NEXT 
50 FOR I = 0 TO 8: READ OPS (1) 
: NEXT 
60 TEXT : HOME : PRINT "Escolh 


a a pagina de alta resolucao:" 
70 VTAB 6: INPUT "Pagina? (1 o 





u 2) ";PG 

80 IF PGX » l AND PG X >2 
THEN 60 

90 HOME : PRINT "Escolha a cor 
de fundo:" 

100 УТАВ 10: FOR I = 0 TO 7: H 

TAB 8: PRINT CLS(I): NEXT 

110 І = 0:1М = РС * 8192 

120 FLASH : VTAB 10 + T: HTAB 
6: PRINT SPC( 2);CL$(I); SPC( 
1; 

130 GET AS: IF AS = CHRS (13) 
THEN 210 

140 IF A$ < > CHRS (8) ANDA 
$ < > cHR$ (21) THEN 130 

150 NORMAL : VTAB 10 * I: HTAB 
6: PRINT SPCé 2);CL$(I); SPC( 
2); 

160 IF AS - CHRS (8) THEN 190 
170 IF I = 7 THEN 1 = 0: GOTO 
120 

180 I = I + 1: GOTO 120 

190 IF I - 0 THEN 1 = 7: GOTO 
120 

200 I - I - 1: GOTO 120 

210 IF PG = 1 THEN HGR : GOTO 
230 

220 HGR2 

230 NORMAL : POKE - 16304,0: 
РОКЕ - 16302, РОКЕ - 16301 
+ PG,0: POKE - 16297,0: НСОІ.ОВ 





* I: HPLOT 0,0: CALL 62454:Х = 
100:Y - X: HCOLOR- 3 

240 OP = 0 

250 FOR I = 1 TO 200: NEXT : T 
EXT : HOME 

260 PRINT "Escolha a sua opcao 
270 VTAB 10: FOR I = 0 TO 8: H 
TAB 8: PRINT OP$(I): NEXT 

280 8Р$=” " 

290 FLASH : VTAB 10 + OP: HTAB 
6: PRINT SP$;OP$(OP);" "; 

300 GET AS: IF AS = CHRS (13) 
THEN NORMAL : GOTO 390 

310 IF A$ = CHRS (27) THEN М 
ORMAL : HOME : END 

320 IF A$ < > CHR$ (8) AND A 
$ < > CHR$ (21) THEN 300 

330 NORMAL HTAB 6: PRINT SP$ 
;0P$ (OP) ; SP! 

340 IF AS * CHR$ (8) THEN 370 
350 IF OP = 8 THEN OP = 0: GOT 
o 290 


360 OP = OP + 1: GOTO 290 

370 IF OP = 0 THEN OP = 8: GOT 
0 290 

380 OP = OP - 1: GOTO 290 
390 РОКЕ - 16301 % РС,0: 

- 16304,0:АА - 0 

400 ON OP + 1 GOTO 60,2000,300 
0,3000, 3000,4000,5000,6000,7000 


POKE 


1000 X1 = X:Y1 = Y 
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1010 СЕТ А5 

1020 IF AS > "0” AND AS < "7" 

THEN HCOLOR- VAL (AS): GOTO 1 
010 

1030 IF A$ = CHR$ (13) THEN 
POKE M,ME: TEXT : GOTO 290 

1040 IF A$ - "I" THEN Y - Yl - 
2 

1050 IF AS - "M" THEN Y = Yl + 
2 

1060 IF A$ - "J" THEN X - Xl - 
2 

1070 IF AS = "K” THEN X = ХІ + 
2 

1080 IF A$ = "O" THEN X = Xl + 
At " l^ 1 

1090 IF AS = "U” THEN X - Xl - 
1:Y 9 Y1- 1 

1100 IF AS = "Nº THEN X = X1 
1:1 = у +1 

1110 IF AS = "," THEN X = ХІ + 
1:Y " Y1 * 1 

1120 RETURN 

1500 IF M< > 0 THEN POKE M, 

ME 

1520 L * INT (Y / 64):C - INT 
(Y/ 8) - (8* INT (Y / 64): 

T*Y-(8* INT (Y/8)) 


1530 M = LM + (L * 40) + (C * 1 
28) + (T * 1024) 

1540 M = M + ( INT (X / 7)) 
1550 ME = PEEK (M) 
1560 POKE M,255 - 2 ` 
NT (X / 7) * 7)) 

1570 RETURN 
2000 IF AA 


кезіме 


= O THEN GOSUB 150 


0 

2010 GOSUB 1000: IF AS =" " T 
HEN AA = АВ5 (АА - 1): IF AA = 
1 THEN POKE M,ME 

2020 IF AA = 1 THEN HPLOT X,Y 
TO X1,Y1 

2030 GoTO 2000 

3000 СІ - 0 

3010 GOSUB 1500: GOSUB 1000: І 


F AS < > CHR$ (32) THEN GOTO 
3010 

3020 РОКЕ М,МЕ 

3030 СІ - СІ + 1:PX(CI) = X:PY( 
CI) = Y: PRINT CHR$ (7);: HPLO 
T X,Y:M = 0 

3040 IF CI < > 2 THEN 3010 
3050 ON OP - 1 GOTO 3060,3070, 
3080 

3060 HPLOT PX(1),PY(1) TO PX(2 


),PY(2):M = 0: GOTO 3000 

3070 PRINT CHRS (7);: PRINT 
CHR$ (7);: GOTO 3000: REM ROTI 
NA NAO DISPONIVEL 

3080 PRINT CHRS (7):: PRINT | 
CHR$ (7);: GOTO 3000: REM ROTT 
NA NAO DISPONIVEL 

4000 PRINT CHR$ (7);: PRINT 
CHRS (7);: GOTO 250: REM ROTIN 
A NAO DISPONIVEL 


5000 IF PG = 1 THEN HGR : GOT 
o 5020 

5010 HGR2 

5020 TEXT : GOTO 80 

6000 PG = ІМТ (РС - ( - 1 ^ РС 
)): GOTO 250 

7000 PRINT CHR$ (7);: PRINT 
CHR$ (7);: GOTO 250: REM ROTIN 





A NAO DISPONIVEL 

9000 ТЕ PEEK (222) = 53 THEN 
X = X1:Y = Yl: PRINT CHR$ (7); 
: RESUME 

9010 PRINT CHR$ (7);: GOTO 25 
0 


10000 DATA PRETO 1,VERDE,VIOL 
ETA,BRANCO,PRETO 2,LARANJA,AZUL 
,BRANCO 2 

10010 DATA NOVA TELA,DESENHAR 
+ TRACAR LINHAS, RETANGULO, CIRCUL 
O, ELIPSE,APAGA,MUDAR DE TELA,GR 
AVAR/CARREGAR 


E A 


O programa começa perguntando 
que cor de fundo você deseja. Respon- 
da com um número de 0 а 15. A corres- 
pondência de cores está no manual do 
seu micro. Em seguida, a tela gráfica de 
alta resolução será colocada à sua vis- 
ta, mostrando no rodapé as opções dis- 
poníveis. Elas são doze. No entanto, 
apenas algumas estão disponíveis no 
momento. As outras serão apresentadas 
no próximo artigo. 

Inicialmente, temos Desenhar, que 
permite traçar linhas em qualquer dire- 
ção na tela. Selecione a opção colocan- 
do o quadrado sobre a abreviatura Des 
e tecle < RETURN >. Você verá então 
o pequeno cursor na tela. Ele pode ser 
movimentado com as setas do teclado. 
Pressione a barra de espaços no ponto 
em que quiser começar a desenhar: pa- 
ra onde quer que você movimente o cur- 
sor ele deixará um trilho marcado na cor 
de sua escolha. 

Mas, como escolher a cor? É fácil: 
basta teclar, quando dentro de um mó- 
dulo de desenho, uma tecla entre O e E, 
como se fosse uma numeração hexade- 
cimal. Ou seja, os números de O até 9 
funcionam normalmente; para escolher 
cores que tenham código de 11 a 15, use 
as letras de A a E. Para sair desse mó- 
dulo e escolher outra coisa, pressione 
novamente < RETURN > ; você obterá, 
assim, controle sobre o quadrado das 
opções. 

A opção Pintar tem o efeito do co- 
mando PAINT do BASIC. Ela preenche- 
rá uma figura com a cor que estiver sen- 
do usada. Deve-se tomar o cuidado de 
usar a mesma cor da periferia da figura 
para que o computador não estrague o 
seu desenho. Outra coisa importante é 
que a figura deve ser totalmente fecha- 
da; senão, o computador pintará toda a 
tela com a cor de sua preferência. 

XXX provoca o apagamento total e 
definitivo do desenho. Portanto, tenha 
cuidado: se você pressionar <RE- 
TURN> com o quadrado sobre essa 
opção, o programa retornará ao início 
e apagará tudo o que foi desenhado. 





10 X=100:Y=100:C0=15 

20 PI=4*ATN(1) 

30 SCREENO:COLOR 15,4,4 

40 CLS:LOCATE 5,5:PRINT"Escolha 


a cor de fundo da página gráf 
ica (0 a 15):” 

50 INPUT CL:IF СІ>15 ОВ СІ<0 TH 
EN PRINT"Valor ilegal!":GOTO 50 
60 COLOR15,CL,CL:SCREEN2:0P=1 
70 OPEN"GRP:"FOR OUTPUT AS 41 
80 PSET(8,166),0 

90 PRINT$1," Apa Des Lin Re 
t Cai Cir":PSET(8,176) ,0: PRIN 
Té1," Dis Eli Pin XXX" 

100 CLOSE 

110 GOSUB390:LINE (C,L)-(C+24,L 
+9),15,B 

120 AS-INKEYS:IFAS-""THEN120 
130 GOSUB390 

140 IFAS=CHRS (13) THEN200 

150 LINE (C,L)-(C+24,L+9),CL,B 
160 IFAS=CHRS (29) THENOP=0P-1:1F 
OP<1THENOP=10 

170 TFAS=CHRS (28) THENOP=0P+1:1F 
ОР>10ТНЕМОР-1 

180 GOTO 110 

190 AA=0 

200 ON OP GOTO 480,440,480,480, 
480,480,480,600,740,770 

210 x1=X:Y1=Y 

220 AS=INKEYS: IFAS=""THEN220 
230 IFAS>"0"ANDAS<"9"THENCO=VAL 
(AS) 

240 IFAS>"A"ANDAS<"E"THENCO=ASC 
(А5)-55 

250 IFAS=CHRS (30) THENY=Y1-1 
260 IFAS=CHRS (31) THENY=Y1+1 
270 IFAS=CHRS (28) THENX=X1+1 
280 IFAS=CHRS (29) THENX=X1-1 
290 IFAS=CHRS (13) THENGOTO110 
300 RETURN 

310 TFM>OTHENVPOKEBASE (12) +M+Y1 
MOD8 , ME : VPOKEBASE (11) *M*Y1MODB, 
MF 
320 
330 
340 





MX=INT (X/8) :MY=INT (Y/8) 
M-MY*324MX : M-M*B 

ME=VPEEK (BASE (12) +M+YMODB) 
350 MF=VPEEK (BASE (11) +M+YM0D8) 
360 УРОКЕ BASE (12) +M+YMODB, 27 (7 
-XMODB) 

370 VPOKE BASE(11)-*M*YMODB, (4*( 
CL=4))*16 

380 RETURN 

390 IFOP<7THENC= (OP*5) *BELSEC=( 
0P-6)*5*8 

400 C-C-26 

410 IFOP<7THENL=164ELSE L=174:P 
SET(C,L),0 

420 RETURN 

430 GOTO 200 

440 IFAA=OTHENGOSUB310 

450 GOSUB210:IFAS=" "THENAA=ABS 
(AA-1) 

460 IFAA=1THENLINE (X,Y)-(X1,Y1) 
‚со 

470 GOTO440 

480 GOTO 110 

$00 GOTO 110 

740 GOSUB310:GOSUB210:IFAS<>CHR 
$(32) THEN740 

750 PAINT (X,Y),CO 

760 GOTO 740 

770 GOTO 30 


E 
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ROTINAS 


PARA O CAD 


NOVAS POSIBILIDADES 
= DO PROGRAMA CAD 
OPÇÕES SOFISTICADAS 
CORRIGIR E COPIAR 

— CORES NO SPECTRUM 














Adicione rotinas especiais ao seu 
programa CAD (Desenho Assistido por 
Computador) e veja como tirar o melhor 
proveito da sofisticação que elas 
proporcionam à listagem original, 


Com o programa CAD (Desenho As- 
sistido por Computador), apresentado 
na página 414, vimos colocar os recur- 
sos gráficos do computador sob controle 
direto do teclado, o que nos permitiu fa- 
zer alguns desenhos bem sofisticados. Se 
quisermos, porém, explorar todo o po- 
tencial do programa — especialmente a 
possibilidade de colorir — deveremos 
examinar várias outras funções, O me- 





nu já nos deu uma idéia das diferentes 
opções, mas ainda não tivemos acesso 
a elas. 

Carregue o programa anterior e adi- 
cione as linhas fornecidas neste artigo 
Cada rotina é seguida de notas e suges- 
tões de como tirar o melhor proveito das 
novas possibilidades do seu programa. 





4000 REM retangulo e caixa 

4010 LET caixa=0: GOTO 4030 
4020 LET caixas] 

4030 FOR n=1 TO 50: NEXT n 
4040 GOSUB 8000 

4050 IF INKEYS-CHRS 13 THEN RA 
ND USR 65380: GOTO 1000 


4060 TF 
ото 4040 
4070 FOR п=1 


INKEYS<>CHRS 32 THEN G 


TO 50: NEXT n 


4080 


LET xx=0: 
=x: LET hy=y 
4090 GOSUB 8000: 
PLOT hx,hy 

4100 DRAW OVER 1;0,yy: DRAW O 
VER 1;xx,0: DRAW OVER 1;0,-yy: 
DRAW OVER 1;-xx,0: NEXT n 
4110 1F INKEYS<>CHRS 32 THEN С 
ото 4090 

4120 PLOT hx,hy: DRAW 0,yy: DRA 
W xx,0: DRAW 0,-yy: DRAW -xx,0 
4130 IF caixa-0 THEN GOTO 4030 
4135 ) THEN GOTO 4040 
4140 x TO hx*xx STEP SGN 
хх 
4150 
п 
4160 
5000 


LET yy=0: LET hx 


FOR n=1 TO 2 






PLOT 


n.hy: DRAW O,yy: NEXT 
GOTO 4040 
REM circulo 
5010 FOR n=1 TO 50 
5020 GOSUB 8000 


5030 IF INKEYS-CHRS 


NEXT n 


13 THEN RA 


n 


ND USR 65380: GOTO 1000 

5040 IF INKEYS<>CHRS 32 THEN С 
ото 5020 

5050 FOR n=1 TO 50: 
5060 LET xx-0: LET уу=0: 
=x: LET hy=y 

5070 GOSUB 8000: CIRCLE 
¡hx,hy,ABS xx: CIRCLE 
x,hy,ABS xx 

5080 TF INKEYS<>CHRS 32 
ото 5070 

5090 CTRCIF hx,hy,ABS xx: GOTO 
5000 
5500 


NEXT n 
LET hx 


OVER 1 
OVER 1;h 


THEN G 


REM apagar 
5510 GOSUB 8000 
5520 1F POINT (x,y)=1 
T OVER 1;х,у 

5530 IF INKEYS*CHRS 13 THEN RA 
ND USR 65380: GOTO 1000 

5540 GOTO 5510 

6000 REM copiar 

6010 COPY : GOTO 1000 

7000 INPUT "INTRODUZA O NOME "; 
LINE n$: IF LEN n$>10 THEN GO 
TO 7000 

7010 LOAD n$CODE 50000: 
R 65368: GOTO 1000 
7500 INPUT "INTRODUZA O NOME "; 
LINE п$: TF n$="" OR LEN n$>10 
THEN GOTO 7500 
7510 SAVE nSSCREENS 


THEN PLO 


RAND US 


: GOTO 1000 


Selecione a opção RETANGULO e 
mova o cursor até onde deseja colocar 
um canto da figura que pretende dese- 
nhar; em seguida, pressione <SPA- 
CE>. Desloque o cursor para o canto 
diagonalmente oposto. Enquanto execu- 
ta o movimento, um retângulo ficará 
piscando, para lhe dar a idéia exata do 
que está desenhando. Você pode, assim, 
escolher o tamanho e a forma ideal, sim- 
plesmente passeando com o cursor. 
Quando tudo 


culo e pres- $í 


per m 


es 
as opções APAGAR ou OOPS. Peque- 
nos detalhes podem ser corrigidos com 
a primeira opção. Quando terminar, te- 
cle <ENTER> para retornar ao menu. 


Para mudanças radicais, utilize 
OOPS, que apagará tudo o que foi fei- 
to depois de sua última visita ao menu. 

Os dois itens restantes são GRAVAR 


e CARREGAR (na fita, somente). Ao 
selecionar um dos dois, um nome será 
solicitado. Você pode CARREGAR sem 
especificar um nome de arquivo, sim- 
plesmente pressionando <ENTER>, 
mas, para GRAVAR, o nome é sempre 
necessário. 


4000 
4010 
4020 
4030 
4040 


SCREEN 1,ST:GOSUB 1500 

IF EF=1 GOSUB 500:RETURN 
IF PEEK(345)<>PC THEN 4000 
XS=X: YS=Y 

GOSUB 1500:GOSUB 500 

4060 IF EF-1 THEN RETURN 

4070 IF ABS((XS-X) *(Y8-Y)) 22300 
0 THEN 4040 

4080 LINE(X,Y) - (X8, YS) , PSET, B 
4090 IF PEEK(345)<>PC THEN 4040 
4100 PMODE MD,5:GET(X,Y)-(XS,YS 
),CP,G:PMODE MD,1 

4110 XS=XS-X:YS=YS-Y 

4120 GOSUB 1500:GOSUB 500 

4130 IF EF=1 THEN RETURN 

4140 IF(X+XS)<0 OR (X+XS)>255 O 
R(Y+YS)<0 OR (Y+YS)>191 THEN 41 
20 

4150 LINE(X,Y)-(X+XS,Y+YS) ,PSET 
‚в 

4160 ТЕ РЕЕК(345)<>РС ТНЕМ 4120 
4170 GOSUB 500:PUT(X,Y)-(X+XS,Y 
*YS),CP,PSET:GOSUB 510 

4180 GOTO 4120 

5000 CLS:PRINT" SELECIONE A COR 
DA BORDA (0-8) " 

5010 AS=INKEYS:IF AS<"0” 
"8" THEN 5010 

5020 BC=VAL (AS) : SCREEN 1,ST 
5030 GOSUB 1500:GOSUB 500 

5040 IF EF=1 THEN RETURN 

5050 IF PEEK(345)<>PC THEN 5030 
5060 PAINT(X,Y),CL,BC:GOSUB 510 
:GOTO 5030 

6000 CLS:PRINT" SALVAR OU CARRE 
GAR DO GRAVADOR (S/C) ?" 

6010 AS=INKEYS:IF AS<>"S" AND A 
$<>”C" THEN 6010 


30 PRINT" CONFIRMA QUE QUER C 
OUTRO DESENHO (S/N 


OR AS> 


. O AS=INKEYS:IF AS<>"N” AND A 
»"S" THEN 6040 


60 MOTORON:PRINT:PRINT " POSI 
CIONE O TAPE,APERTE 'PLAY' EE 
070 IF INKEYS<S>CHRS(13) THEN 6 
070 

6080 MOTOROFF:PRINT:PRINT:INPUT 
"INTRODUZA O NOME DO ARQUIVO "; 
AS 

6090 SCREEN l,ST:CLOADM A$:GOSU 
B 510:RETURN 

6100 PRINT:INPUT"NOME DO ARQUIV 
O "¡AS 

6110 MOTORON:PRINT:PRINT" 
IONE O TAPE,APERTE'RECORD” 
TAO PRESSIONE <ENTER>” 
6120 IF INKEYS<>CHRS(13) THEN 6 
120 


POSIC 
E EN 


QSUB 500:CSAVEM A$,1536,7 


A opção RETANGULO permite que 
você desenhe retângulos de várias cores, 
em qualquer lugag da tela. Selecione a 


canto da figu- 
espaço para 
cursor pa- 
maneira 


tela onde você quer 

ra. Pressione a barra 
identificar o ponto. Mo' 
ra o canto oposto. Da mes! 
que com DESENHO e LI 
pode escolher cores ou abandon! 

ção pressionando <ENTER>. 

do estiver satisfeito com o desen! % 
pressione novamente a barra de espaç 

CAIXA funciona como a opção an- 
terior, mas a figura é preenchida com a 
cor em uso. 

CIRCULO e DISCO são como RE- 
TANGULO e CAIXA, O primeiro pon- 
to escolhido fica na periferia da forma. 
Mova o cursor, até chegar ao ponto de- 
sejado, que é o centro, 

ELIPSE difere um pouco de CIRCU- 
LO. O primeiro ponto escolhido é o cen- 
tro. Ao mover o cursor em qualquer di- 
reção, verá apenas uma linha. Mas, ao 
mové-lo na horizontal e depois na ver- 
tical, por exemplo, uma elipse comega- 
rá a crescer. Ajuste-a até obter o que de- 
seja e pressione a barra de espaço. 

A opção COPIAR permite que você 
duplique uma imagem já desenhada na: 
tela em outra parte dela, Para usá-la, 
posicione o cursor em um canto da área 
a ser copiada e pressione a barra de es- 
paço. Ao mover o cursor em direção ao 
canto oposto, verá um retângulo que de- 
marca a região onde o desenho será du- 
plicado. Determine a área, quando es- 
tiver satisfeito com o seu tamanho e for- 
ma, pressionando novamente a barra de 
espaço, Mova essa área até o ponto de- 
sejado, usando as setas. Pressione a bar- 
ra de espaço para efetuar a cópia, apa- 
gando o que havia naquela área. Até 
metade da tela pode ser copiada, sem 
problemas. 

A opção PREENCHER funciona co- 
mo o comando PAINT em BASIC. Ao 
selecioná-la, você deve informar a cor 
dos limites onde o PAINT deve parar. 
Mova, então, o cursor até a área a ser 
preenchida e pressione a barra de espa- 
ço. Escolha a cor pelas teclas O a 8. 

Para corrigir possíveis erros, selecio- 
ne a opção ERRO, que apaga tudo o que 
foi feito desde sua última visita ao me- 
nu. Pode-se, também, corrigir detalhes, 
selecionando a cor de fundo e apagando 
linhas ou pontos. Áreas maiores devem 
ser corrigidas com CAIXA ou DISCO. 

A última opção permite que desenhos 
sejam carregados ou gravados na fit: 
conecte o cassete e responda às pergun- 
tas apresentadas. 





2 
5 
Š 
5 
a 
ч 
сч 
a 
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3070 HPLOT PX(1),PY(1) TO PX(2 
),PY(1) TO PX(2),PY(2) TO PX(1) 
«РҮ(2) ТО РХ(1),РҮ(1):М - 0: GO 
TO 3000 


3080 RA = SQR ((РХ(1) - PX(2)) 
ЖЕНА --ру(2уу * (PY t1) e P 
Y(2)) * (PY(1) - PY(2)))* FOR 1 
= 0 TO 2 * PI STEP PI / 180 
3090 HPLOT PX(2) * RA * SIN ( 
I),PY(2) - RA * COS (I) 

3100 NEXT 

3110 GOTO 3000 

4000 CI = 0 

4010 GOSUB 1500: GOSUB 1000: 1 
F AS < » CHR$ (32) THEN GOTO 
4010 

4020 РОКЕ М,МЕ 

4030 CI = CI + 1:PX(CI) Х:РҮ( 
CI) * Y: PRINT CHRS (7);: HPLO 
T X,Y:M = 0 

4040 ІР СІ < > 3 THEN 4010 
4050 СЕ = SQR ((PX(1) - PX(2)) 
w (PX(1) - PX(2)) + (PY(1) = P 
Ү(2)) * (РҮ(1) - РУ(2))):СЕ = С 
E/2 

4060 Al = SQR ((PX(1) - PX(3)) 
* (PX(1) - PX(3)) + (PY(1) - P 
*Y(3)) * (PY (1) - PY(3))) 

4070 AZ = SQR ((PX(3) - PX(2)) 
ж (РХ(3) - РХ(2)) + (PX(2%) - P 
Y(2)) * (PY(3) - PY(2))):AB * ( 


Al + A2) / 2 


4080 BE = SQR (AE * AE - CE * 
CE) 

4090 FOR I = 0 TO 2 * PI STEP 
PI / 180 

4100 IF PX(1) < > PX(2) THEN 
4120 

4110 HPLOT PX(1) + BE * COS ( 
INPY() € (-3 ^ (PY(1) » PY( 
2))) * CE - AE * SIN (1): NEXT 
: GOTO 4000 

4120 HPLOT PX(1) + ( - 1 ` (PX 
(1) > PX(2))) * CE * AE * COS 
(I),PY(1) - BE * SIN (I): NEXT 
: GOTO 4000 

7000 TEXT : HOME : PRINT "Grav 
ar/Carregar" 

7010 УТАВ 10 

7020 INPUT "Opcao? (G/C) "¡RS 
7030 IF R$ < » "G" AND R$ < 
> "С" THEN 7030 

7040 INPUT "Nome do desenho? " 
¡DES 

7050 INPUT "Pagina? ";P 

7060 IF RS - "C" THEN 7080 
7070 PRINT CHR$ (4);"BSAVE";D 
ES$;",A";P * 8192;",L";8192: GOT 
0 250 

7080 PRINT CHR$ (4);"BLOAD";D 


ES$;",A";P * 8192: GOTO 250 
Usaremos agora as opções mais so- 
fisticadas do nosso editor de desenho. 
RETANGULO, CIRCULO e ELIPSE 
estão à sua disposição. 
Para a opção RETANGULO, mova 
o cursor até um canto do quadrilátero 
jue deseja traçar. Tecle a barra de es- 
aço, leve o cursor para o canto diago- 


nalmente oposto e tecle novamente a 
barra de espaço. Sua figura está pron- 


ta. 

CIRCULO funciona de maneira pa- 
recida, só que o primeiro ponto corres- 
ponde ao centro da figura a ser traça- 
da. O segundo determina o tamanho de- 
la, ficando na periferia. 

Ao usar a opção ELIPSE, não se es- 
queça de que o maior eixo da figura de- 
ve estar sempre na horizontal ou na ver- 
tical, Selecione três pontos para traçá- 
la. Os dois primeiros funcionarão como 
os focos da elipse e o terceiro ficará na 
periferia. 

Por fim, GRAVAR/CARREGAR 
permite que você grave uma imagem em 
disquete ou que a carregue na memória 
do micro. É possível, inclusive, carregar 
um desenho pronto de algum outro pro- 
grama ou jogo. A identificação de uma 
imagem de alta resolução no diretório 
é fácil: em geral, ela ocupa 34 setores do 
disco e tem a letra B à frente do nome 
do arquivo. Para carregá-la, simples- 
mente coloque o disquete no drive e di- 
gite o nome correto do arquivo quando 
este for solicitado pelo programa. 


UN] 


480 С1-0 

490 GOSUB310:GOSUB210: TFAS<>CHR 
8(32) ТНЕМ490 

500 CI=CT+1:PX(CT)=X:PY(CI)=Y:B 
EEP:PSET(X, Y) ,CO:M=0 

510 ТЕСІ<>2ТНЕМ490 

520 ONOPGOTO590,590,530,540,550 
‚560,560 

530 LINE(PX(1),PY(1)) -(PX(2) , PY 
(2)) ,CO:M=0:GOTO0480 

540 LINE(PX(1),PY(1)) -(PX(2) , PY 
(2)) , CO, B:M*0:GOTO480 

550 LINE (PX(1) , PY (1)) - (PX (2) , PY 
(2)) CO, BF:M=0:GOTO4BO 

560 RA*SQR((PX(1)-PX(2)) * (PX(1) 
-PX (2)) * (PY (1) -PY (2) ) * (PY (1) -PY 
(2))) 

570 CIRCLE (РХ(1),РҮ(1)),ВА,СО: 
M-0:IFOP-6THENGOTO480 

580 PAINT (PX(1)*l,PY(1)),C0:GO 
TO480 

590 LINE(PX(1),PY(1)) - (PX(2) , PY 
(2)) ,CL,BF:M=0:GOTO48N 

600 CI=0 

610 GOSUB310:GOSUB210: TFAS<>CHR 
$(32) THEN610 

620 CI-CI*l:PX(CI)-X:PY(CI)-Y:B 
EEP:PSET(X,Y) ,CO:M=0 

630 ТЕСІ<>3ТНЕМ610 

640 CE=SQR((PX(1)-PX(2))*(PX(1) 
-PX(2) ) * (PY (1) -PY (2)) *(PY (1) -PY 
(2))) :CE=CE/2 

650 C1=SQR((PX(1)-PX(3))*(PX(1) 
-PX (3) ) - CPY (1) PY (3))* (PY (1) -PY 
(3))) 

660 C2-SQR((PX(3) -PX (2) ) * (PX(3) 
-PX(2))* (PY (3) -PY (2)) * (PY (3) -PY 
(2))) :АЕ= (С1+С2) /2 

670 BE=SQR(AE*AE-CE*CE) 














CORES NO SPECTRUM 

O programa apresentado permite 
que você faça desenhos coloridos no 
Spectrum, mas é preciso ter cuidado 
para evitar problemas de sobreposição 
de cores. Se duas ou mais cores forem 
colocadas no mesmo retângulo de ca- 
ractere, a última tomará o lugar das ou- 
tras. Planeje seu desenho de maneira 
que cores adjacentes sejam alinhadas 
de acordo com esses retângulos. 
Lembre-se de que em cada linha temos 
32 retângulos que contêm oito subdi- 
visões na horizontal e 22 retângulos 
com oito subdivisões na vertical, 











680 
690 
700 
1 
710 PSET (PX(1l1)+BE*COS(J),PY(1) 
+S*CE-AE*SIN(J)),CO:NEXT:GOTO60 
0 

720 IFPX(1)<PX(2) THENS=1ELSES=- 
1 


FORJ=0TOZ*PI STEP PI/90 
ІЕРХ(1)<>РХ(2) ТНЕМ/20 
IFPY(1)<PY(2) THENS=1ELSES=— 


730 PSET (PX(1)+S*CE+AE*COS (J) , 
PY(1)-BE*SIN(J)) , CO: NEXT:GOTO60 
0 


Apagar permite que vocé suprima o 
desenho de determinadas áreas da tela. 
Selecione a opção e coloque o cursor no 
canto do retângulo que corresponde à 
área que pretende apagar. Pressione a 
barra de espaço. Leve o cursor para o 
canto diagonal oposto e pressione no- 
vamente a barra de espaço. Tudo o que 
estiver dentro do retângulo formado pe- 
los 2 pontos será apagado. Tecle < RE- 
TURN> para trocar sua opção. 

Retângulo e Caixa funcionam de ma- 
neira semelhante, sendo que a primeira 
opção desenha uma figura vazia, ao 
contrário da segunda. Ao selecionar 
uma delas, leve o cursor a um extremo 
da figura e tecle a barra de espaço. 
Desloque-o até a outra extremidade e re- 
pita a operação. Sua figura será dese- 
nhada instantaneamente. 

Circulo e Disco têm uma relação se- 
melhante à das duas opções anteriores. 
O primeiro ponto será o centro da figu- 
ra e o segundo determinará o tamanho 
“dela, ficando na periferia. 

Elipse requer três pontos para cum- 
prir sua função. Os dois primeiros de- 
terminam os focos da elipse e o tercei- 
ro, um ponto da periferia. Essa figura 
não é preenchida por cor. Para desenhos 
coloridos, você deverá recorrer à opção 
Pintar. 











EDIÇÃO DE 


Os micros da linha MSX possuem 
sofisticados recursos de edição. Suas 
teclas de controle e seu cursor 

tornam possível usar o vídeo como se 
fosse uma verdadeira “folha de papel”. 


Todos os interpretadores da lingua- 
gem BASIC oferecem alguns recursos 
para a edição de programas, ou seja, 
técnicas de entrada e alteração das linhas 
que os compõem. O primeiro interpre- 
tador BASIC, desenvolvido na década 
de 60 na Universidade de Dartmouth, 
nos EUA, fixou os recursos mais ele- 
mentares de edição: numeração, inser- 
ção, apagamento e listagem de linhas. 
Estes foram posteriormente adotados 
em todos os outros dialetos do BASIC 
que surgiram. 

O passo seguinte consistiu em dar ao 
programador a possibilidade de alterar 
caracteres, já que, com os recursos an- 
teriores, o erro de um caractere obriga- 
va-o a digitar novamente a linha toda. 

Com esse objetivo, desenvolveram-se 
comandos como o EDIT, presentes nos 
micros da linha Sinclair, TRS-80 e TRS- 
Color. Embora os recursos de edição 
disponíveis no EDIT sejam bastante ver- 
sáteis, eles ainda apresentam uma limi- 
tação: operam apenas em uma linha — 
cujo número precisa ser explicitado — 
de cada vez. 


EDICÁO BIDIMENSIONAL 


A limitação mencionada não passa de 
um resquício do tempo em que o BA- 
SIC era operado através de terminais 
impressores, desprovidos de movimen- 
tação bidimensional do cursor. 

Os projetistas do MSX, porém, sou- 
beram superar essa limitação, abrindo 
a possibilidade de se editar um progra- 
ma inteiro, e não uma linha de cada vez, 
desde que o trecho a ser editado estivesse 
exibido na tela. O comando EDIT foi, 
assim, suprimido. 

O conceito de edição de. programas 
no MSX aproxima-se, incidentalmente, 
do utilizado nos avancadíssimos micros 
profissionais da linha PC: envolve a uti- 


PROGRAMAS NO MSX 







lização de teclas especiais, ou da com- 
binação de determinadas teclas, para 
**passear"' o cursor de texto pela tela, 
inserir e apagar caracteres em qualquer 
ponto da mesma, etc. O computador 
*'Jembra-se"' das modificações realiza- 
das na página de vídeo desde que se 
pressione a tecla < ENTER > ou < RE- 
TURN> após o término das modifica- 
ções em uma determinada linha. 

Uma possibilidade interessante do 
MSX é a de editar também os números 
de linha. Quando se utiliza esse recur- 
so, obtém-se duas linhas: a que tinha o 
número original, em sua própria posi- 
ção, e outra — que pode ser uma dupli- 
cata:da anterior ou incluir modificações 
—, que é automaticamente inserida em 
sua nova posição. 

As teclas fundamentais para a edição 
no MSX são as seguintes: 

æ -desloca o cursor de tex- 
to em uma posição para 


a direita 
~— -desloca o cursor de uma 
posição para a esquerda 
4 - desloca o cursor para 
cima 


- apaga o caractere ime- 
diatamente anterior ao 
cursor e recua O cursor 
de uma posição (retro- 


< 


cesso) 
- desloca o cursor para 
baixo 
<INS> - ativa ou desativa o mo- 
do de inserção de carac- 
teres 
<DEL>  - apaga um caractere e re- 


junta o restante da linha 

<ENTER> - consolida as modifica- 
ções realizadas em uma 
linha 

A tecla HOME também pode ser uti- 
lizada durante o processo de edição, pa- 
ra fazer o cursor retornar à posição no 
topo esquerdo da tela. 

Ao editar um programa, use primei- 
ro o comando LIST, para colocar na te- 
la o trecho do programa que deseja edi- 
tar. Em seguida, desloque o cursor até 
a linha a ser editada. Para fazer as mo- 
dificações, escreva por cima do texto 
exibido, ou insira e apague caracteres 
por meio das teclas INS e DEL. Em se- 
guida, pressione a tecla <ENTER> ou 
















ж COMO EDITAR LINHAS 
DE UM PROGRAMA BASIC 
O CONTROLE DO CURSOR 

TECLAS FUNDAMENTAIS 














E MOVIMENTOS MAIS COMPLEXOS 





<RETURN >, se quiser preservar as 
modificações feitas. 

A tecla INS em geral está desativada 
— ou seja, se você pressionar qualquer 
tecla de caractere, ele será impresso so- 
bre o que estiver sob o cursor no mo- 
mento. Para inserir um ou mais carac- 
teres em determinado ponto de uma li- 
nha, primeiro desloque o cursor até lá. 
Em seguida, pressione uma vez a tecla 
INS, colocando o computador em mo- 
do de insercào. Para encerrar o proces- 
so, pressione INS novamente ou, então, 
<ENTER>. 

Para verificar se o computador está 
em modo de inserção, observe o cursor 
de texto: de um retângulo, ele se trans- 
forma em um traço pequeno. Se você 
pressionar a tecla DEL durante o modo 
de inserção, poderá apagar caracteres 
sem desligar a inserção. 

Com o auxílio da tecla <CON- 
TROL>, pode-se obter movimentos 
mais complexos do cursor, assim como 
o acionamento de funções adicionais de 
edição. Pressionando-se simultanea- 
mente <CONTROL > e uma outra te- 
cla alfabética, chega-se a alguns resul- 
tados interessantes: 
<CONTROL> <F> - desloca o cur- 

sor para a pri- 
meira letra da 
próxima pala- 
vra da linha 
<CONTROL> <B> - desloca o cur- 
sor para a pri- 
meira letra da 
palavra ante- 
rior, na linha 
<CONTROL> <N > - desloca o cur- 
sor para O fi- 
nal da linha 
<CONTROL> <E> - apaga a linha 
corrente desde 
o ponto onde 
está o cursor 
até o final 
« CONTROL» «U» - apaga toda a 
linha onde es- 
tá 0 cursor 

Convém lembrar, finalmente, que os 
recursos **normais'' de edicào de pro- 
gramas (numeração, inserção de linhas, 
renumeração, listagem, apagamento, 
etc.), presentes no editor padrão do BA- 
SIC, também funcionam no MSX. 


UM CARTEADO 


Seus amigos e pare: 
gar baralho com vocé? Já se cansaram 
de perder dinheiro? O cacife é muito al- 
to para seu orçamento? A solução para 

ualquer um desses problemas pode es- 
tar na série de artigos que iniciamos 
aqui, Programando seu micro para jo- 
gar Vinte-e-um, você terá uma vítima 
perfeita e poderá jogar sem perder um 
níquel. 

Nesta primeira seção, veremos como 
programar os gráficos necessários para 
criar um baralho na memória — e na te- 
la — de seu computador. O restante do 
programa — o jogo propriamente dito 
— será apresentado nos dois próxi 


es se negam a jo- 


artigos de Programação de Jogos; Gra- 
à 


que for sendo ampliado. 

Se você não sabe jogar Vinte-e-um, 
não se preocupe: explicaremos as regras 
na última seção da série. Antes, porém, 
você precisará de um baralho completo. 


A rotina gráfica que possibilita ao 
. computador mostrar as cartas na tela é 
a seguinte: 


10 BORDER 4: PAPER 4: INK 9: 
CLS : POKE 23658,8: LET B=0: 


LET C*1 А 
20 FOR N-USR "A" TO USR ^R"*7 
N 


Microcomputadores podem se revelar 
grandes jogadores de baralho, com a 
vantagem de que nunca se cansam de 
jogar. Veja aqui como produzir 
gráficos para um carteado. 


LET C(N)-N: NEXT N 
40 DIM A(13,13,2) 
50 FOR N=C TO 10: FOR М-С ТО 
N: READ А(М,М,С).А(М,М,2): 
NEXT M: NEXT N 
60 FOR N-11 TO 13: LET A(N,C, 
: LET A(N,C,2)=2: NEXT N 
^: LET CP-100 
GOSUB 5000 
LET Y=0: LET X=1 
LET Z-C(CC) 
GOSUB 5500 
STOP 
CLS : PRINT AT 10, 
ALHANDO AS CARTAS" 
5010 FOR N=C TO 100 
5020 LET X=1NT (RND#52)+C ү 
5080 LET Y=INT (RNDAS2)+C. 
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=P 
п GRÁFICOS DOS NAIPES 
Ya DE ALTA RESOLUÇÃO Ш COMO USAR VPOKE 
п COMO DESENHAR NA TELA GRÁFICA DO MSX 
AS CARTAS DO BARALHO Ш COMO EMBARALHAR . 
= POSICIONAMENTO E DISTRIBUIR AS CARTAS 
=== = 
5050 NEXT N 9010 DATA 0,8,20,34,34,62,34,34 lores aparecerem. Assim, o programa 
5060 CLS + RETURN ,0,28,34,2,4,24,32,62 poderá rodar no Spectrum de 16K. 
5500-FOR N-Y TO Y*8: PRINT РАР 9020 DATA 0,28,34,2,12,2,34,28, A linha 20 prepara os caracteres 
ER 7;AT N,Xi" NEXT N 0,4,12.20,36,62,4,14 (UDGs) usados nos naipes, números e 
5510 LET ST-INT ((2-C)/13) 9030 DATA 0,62,32,32,60,2:34,28 letras de cada carta. Os dados para is- 
1 5520 LET CH*144*8T ,0,28,34,32,60, 34, 34,28 so estão nas linhas DATA 9000 e 9070. 
£ 5530 LET VA-Z- (13*87) 9040 DATA 0,62,34,2,4,8,16,16,0 Б haha 30 cf US 
5 5540 TF ST«2 THEN INK 2 ,28,34,34,28,34, 34, 28 O cra en 
а 5560 LET AC=147+VA 9050 DATA 0,28,34,34,30,2,34,28 to de 52 cártas não embaralhadas. À ma- 
š 5600 PRINT PAPER 7;AT Y,X;CHRS ,0,76,82,82,82, 76 triz A, dimensionada na linha 40, é 
AC;AT Y,X+4;CHRS AC;AT Y*B,X 9060 DATA 0,14,4,4,4,4,36,24,0, preenchida com os valores das linhas 





HRS AC;AT Y*8,X*4;CHRS AC 28,34,34,34,58,102,30,0,118, 36, 
















5610 FOR N=C TO VA: IF A(VA.N,C — 40,48,40,36, 118. 
)é»B THEN PRINT PAPER 7;AT Y* 9070 DATA 85,88,85,85,85,85,85, 
А(УА,/М.С),ХЖА(МА,М,2);СНВ5 CH 85 
5620 NEXT N 9100 DATA 
5890 INK 9 9110 DATA 
5900 RETURN 9120 DATA 
9000 DATA 0,54,127,127,127,62,2 9130 DATA 
018/2867, 127,62,78/8,8,2: 9140 DATA 
„127 9150 DATA 












1,1,1.3,2.2,4,1,4,3,7 


DATA 
"TS. 
9170, DATA. 
ETI: Ta 


9180 DATA 1, 
LA 7 





1,1,1,3,2,2,4,1,4,3,6 













1,1,2 














na as cores da bor- 
e do ; POKE 
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DATA 9100 e 9190, que contêm as 
coordenadas das figuras dos naipes em 
cada carta. A linha 50 preenche parte 
da matriz com as coordenadas dos sím- 
bolos das cartas numéricas, enquanto a 
linha 60 preenche o restante com as 
coordenadas dos mesmos nas cartas 
com figuras. É possível criar desenhos 
para as cartas com figuras, mas seria 
bem cansativo e demorado digitar os 
dados necessários, Além disso, O pro- 
grama ficaria grande demais para o 
Spectrum de 16K. 
A linha 70 coloca os valores 1 e 100 
nas variáveis CC e CP, respectivamen- 
te, CC éacarta atual, ou o elemento da 
matriz de cartas que o computador se- 
lecionou er último. CP é a quantida- 
de de fichas que o jogador possui. 

A linha 80 chama a sub-rotina que 
embaralha as cartas. Ela começa na li- 
nha 5000, que apaga a tela e comunica 
ques cartas estão sendo embaralhadas. 
O computador embaralha as cartas es- 
colhendo duas, ao acaso, e trocando 
suas posições. O laço FOR...NEXT en- 
tre as linhas 5010 e 5050 repete o pro- 

“cesso 100 vezes: Existe uma chance de 
qué uma mesma carta seja escolhida 
“trocando de posição consigo mesma”. 
Isso, na prática, não tem nenhuma im- 
portância, pois o número de trocas de 
posição é suficiente para garantir uma 
boa ““embaralhada”. 

O valor da linha 5010 pode ser alte- 
rado para aumentar o número de trocas, 

números um pouco maiores que 100 
já provocam uma demora inaceitável. A 
sub-rotina termina na linha 5060, que 

“limpa a tela e retorna. 

$ linha 525 coloca na variável Z o va- 
lor da carta atual — elemento CC da 

matriz C. Em seguida, a linha 530 cha- 
ma a sub-rotina 5500, que coloca as car- 
tas na tela. A linha 5500 apresenta a par- 
te branca da carta. A linha 5510 selecio- 











428 
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na o naipe correto (os naipes são nume- 
rados de 0 a 3). A linha 5520 calcula o 
código do caractere que contém o ѕіт- 
bolo do naipe escolhido. A linha 5530 
identifica a carta — afinal, o número de 
vezes que o símbolo do naipe vai apare- 
cer depende disso. 

Antes de desenhar o naipe, o compu- 
tador seleciona a cor adequada. A linha 
5540 atribui a cor vermelha aos naipes 
com número O ou 1, e a preta aos ou- 
tros dois. 

A linha 5600 desenha o número da 
carta usando o caractere adequado, es- 
colhido pela linha 5560. A linha 5610 de- 
senha os símbolos do naipe, cujas coor- 
denadas são obtidas na matriz A. 

Finalmente, com a escolha da cor 9 
(cor de contraste), termina a sub-rotina. 


Sprites são mais adequados para mo- 
ver figuras. Como as cartas ficarão pa- 
radas, convém utilizar outra técnica pa- 
ra desenhar os números, letras e naipes 
das cartas. 


10 CLEAR 500:COLOR 
EENO:KEY OFF 

20 LOCATE 8,11:PRINT 
NDO AS CARTAS” 

30 DIM NUS(13),NA(32):FOR К=1 Т 
O 13:READ NUS(K) :NEXT 

40 DATA BD2S4U5ER3FD2NL4D3,RDLD 
R, RDNLDL, DRDUZ, NRDRDL, DZRULUR, R 
SBDGD, NDZRDNLDL , NDRDNLD, D2S10BR 
S12NU2RU2L , SABD5F2R2UGL3R4 , SANR 
5D6R3NH2NFR2U6, DNDS8RS12NEF 

50 FOR I-1 TO 32 

60 NA(I)*VPEEK (BASE (2) *23*1) 

70 NEXT I 

82 DIM SQ(61) 

84 R-RND(-TIME) :MN-100 

88 SCREEN 2:FOR 1-0 TO 3 

90 VPOKE BASE (10)+252+1,32 

92 УРОКЕ ВА5Е(10)%252%1%256,32 
94 VPOKE BASE(10)+252+1+512,32 
96 NEXT 1 

120 FOR I=1 TO 32 

130 VPOKE BASE(12)*2015*1,NA(I) 
131 VPOKE BASE(11)+2015+T, (ABS( 
1<17)*5+1)*16+15 

132 VPOKE BASE (12)+4063+1,NA(1) 
133 VPOKE BASE(11)+4063+T, (ABS( 
1<17)*5+1)*16+15 

134 VPOKE BASE(12)*6111*I,NA(I) 
135 VPOKE BASE(11)46111*I, (ABS ( 
1<17)*5+1)*16+15 

140 NEXT 

160 FOR K-0 TO 51:S0(K)=K:NEXT 
180 GOSUB 1500:N=0 

190 FOR CX-31 TO 200 STEP 48:FO 
n CY-)] TO 140 STEP 104 
200 GOSUB 1000:GOSUB 2000 
=1 TO 500:NEXT 

210 FOR J=] TO 


15,12,12:SCR 


"EMBARALHA 


FOR J 


90 
1000 ST-INT(SO(N)/13)*1:NM-: 


) -J3*ST* |4 : N-N*1: TF 
20 

1010 RETURN 

1500 FOR X-52 TO 2 STEP -1 

1510 Q-INT(RND(I) *3) *L 

1520 Q (X-1) :SQ(X-1)=SQ (0-1) 
50(0-1 

1530 МЕХТ 

1540 FOR Х=0 ТО 9:50(Х%52)-50(Х 


N»51 THEN N 


) :МЕХТ 

1550 RETURN 

2000 LINE (CX-1,CY-1)-(CX*42,CY 
*71),15,BF 

2005 LINE (CX-2,CY-1)-(CX-2,CY* 
71),12 

2010 S$=NUS (NM) :PX=CX+24 : PY=CY+ 
24:GOSUB 2550:PY=CY+15:GOSUB 25 
50:PY=CY+35:GOSUB 2550:FOR J=0 





TO 4:PX=CX+7:PY=CY+8+.J*8 :GOSUB 2050 IF NM/2<>INT(NM/2) OR NM>]1  *INT((NM-1)/2) ELSE NS-INT(NM/2 


2550:PX=CX+34:GOSUB 2550:NEXT 0 THEN PX-CX*24:PY-CY*24:GOSUR ) 
2020 IF ST>2 THEN COLORI ELSE C 2500 2100 FOR J=0 TO NS-1 

OLOR6 2060 IF NM=2 OR NM=3 OR ММ-10 0 110 PX-CX*7:PY-CY*8*J*38/ (NS | 
2030 DRAW "SI2BM"+STRS(CX+3)+".  R NM-B THEN PX-CX*24:PY-CY*15:G  ):GOSUB 2500 

"*STR$ (CY*2) *8$ OSUB 2500:PY-PY*19:GOSUB 2500 2120 PX-CX*34:GOSUB 2500 

040 DRAW "S12BM"*STRS(CX*35)*" 2080 ТЕ ММ<4 ОН ММ210 ТНЕМ 2140 2130 МЕХТ 


,"*STR$ (CY*62) «8$ 2090 1F 


(NM-10 OR NM-8) THEN NS 2140 RETURN 


s y / 
Ñ Í 
/ E 


A 
м 





2500 ON š 
2540 
2510 VPOKE RA? 
2+1МТ(РХ/8) +3 
2520 VPOKE BASE(10)*INT(PY/RH) *3 
2+INT(PX/8)+32,753:RETUNN 
2530 VPOKE BASE(10)*INT(PY/R) ^: 
2* INT (PX/8) *32, 254 : RETURN 
2540 УРОКЕ BASE(10)*INT(PY/R)* | 
2*INT (PX/8) *32, 255 : RETUIN 
50 VPOKE BASE(IO) *INT(PY/H)*) 
INT (PX/B) £12, 165: RETURN 


GOTO 2510,2520,2530. 


(L0) 4 TNT (PY/B) & 1 
52:RETURN 


A linha 10 cuida do espaço string da 
memória (retire o comando CLEAR pa- 
ra ver o que acontece), das cores da tela 
e das teclas de função na parte inferior 
do vídeo. A linha 20 comunica que as 
cartas estão sendo embaralhadas. 

As letras e números das cartas serão 
desenhados com DRAW. A linha 30 co- 
loca as instruções para o desenho den- 
tro da matriz NUS, depois que as leu na 
linha DATA 40. A linha 30 também di- 


mensiona essa matriz. 

Como não podemos usar sprites, co- 
locaremos os símbolos dos naipes (os 
caracteres 3 a 6) diretamente na tela 
de alta resolução, com VPOKE. A linha 
50 buscará os desenhos desses símbo- 
los dentro da tabela de padrões da tela 
de 40 colunas. O endereço inicial da ta- 
bela de padrões da tela O começa em 
BASE (2). 

A linha 60 dimensiona a matriz SQ, 





usada para embaralhar as cartas, e, ain- 
da, seleciona a tela de alta resolução e 
inicializa o gerador de números randô- 
micos. 

O laço FOR...NEXT das linhas 120 
a 140 transfere os padrões dos símbo- 
los dos naipes para a tabela de padrões 
da tela de alta resolução. Além disso, 
coloca as cores desses símbolos na tabela 
de cores. 

Como a tela de alta resolução é divi- 
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dida em três porções, tudo deve ser fei- 
to três vezes. Assim, as linhas 130, 132 
e 134 cuidam dos padrões, enquanto as 
linhas 131, 133 e 135 se encarregam das 
cores. 

O lago FOR...NEXT das linhas 70 a 
110 modifica a tabela de nomes da 
tela de alta resolugáo, impedindo que 
os símbolos sejam desenhados agora. 
Apague essas linhas para ver o que acon- 
tece. 


A linha 160 coloca valores de O a 51 
nos primeiros elementos de SQ. A linha 
180 chama a sub-rotina que embaralha 
as cartas (linhas 1500 e 1510). O valor 
0 é colocado em N; isso significa que o 
primeiro elemento de SQ está sendo co- 
locado em questáo. 

A linha 190 inicia um laco FOR... 
NEXT que usa as variáveis CX e CY, 
cuja fungáo é posicionar os símbolos 
dos naipes nas cartas. 

A linha 200 chama duas sub-rotinas. 
A primeira, da linha 1000, fornece o nai- 
pe — ST — e o valor — NM — da car- 
ta em questáo. A segunda, da linha 2000 
à 2140, calcula as posições onde os sim- 
bolos dos naipes devem ser desenhados 
naquela carta. 

Esta última sub-rotina parece compli- 
cada mas, com a ajuda de um baralho, 
pode-se entender melhor seu funciona- 
mento. Vários padrões se repetem na 
disposição dos símbolos dos naipes — 
as cartas de menor valor geralmente 
usam um só deles, enquanto as de maior 
valor requerem três ou mais. A sub- 
rotina verifica quais desses padrões são 
necessários para colocar os símbolos de 
determinado naipe em número e posi- 
ção adequados, 

Antes do cálculo das posições dos 
naipes na tela, os números ou letras cor- 
respondentes ao valor da carta são de- 
senhados em cantos opostos da mesma 
pelas linhas 2030 e 2040, que usam a in- 
formação contida em NUS. 

As linhas 2050 a 2090, com base no 
valor da carta e de CX e CY, calculam 
as posições onde os símbolos dos naipes 
serão colocados na tela. As coordena- 
das da posição estão em PX e PY. 

Uma vez que PX e PY tenham sido 
calculados, a sub-rotina da linha 2500 
é chamada. Ela calcula a posição da ta- 
bela de nomes — BASE (10) — em que 
devemos colocar os simbolos dos naipes, 
para que eles apareçam numa posição 
correspondente a PX,PY. Essa sub- 
rotina é responsável pelo desenho pro- 
priamente dito. 

A linha 2000 desenha a parte branca 
da carta, mas não apaga os desenhos 
produzidos com VPOKE. Isto é feito 
pela linha 2010, que apaga qualquer 
símbolo de naipe que tenha restado de 
uma antiga carta. 

A linha 210 provoca uma pausa an- 
tes que o programa volte para a linha 
190. Esta desenha uma nova série de oi- 
to cartas. 


Apresentamos a seguir o programa 
que mostra as cartas na tela do Apple. 





Para que funcione no TK-2000, preci- 27 .87 ,77 ,105 ,209 ,219 ,63 , = PY + 26:PX = PX + 8: 


saremos fazer uma pequena alteragáo. 159 ,0 ,0 ,0 ,0 ,0 GOSUB 2500: ROT= 0 
94 DATA 0 ,8 ,45 ,45 ,109 ,2 2080 IF NM < 4 OR NM > 10 THEN 


18 ,223 ,27 ,87 ,77 ,9 ,141 ,27 2140 





















































ROT= 32: 


10 HOME :E = 35000: HIMEM: E: ,223 ,27 ,87 ,109 ,9 ‚141 ‚27 2090 IF (NM = 10 OR NM - 8) TH 
НТАВ 9: UTAB 12: PRINT "EMBARAL ‚223 ,31 ,87 ,45 ,45 ,109 ,218 EN NS = INT ((NM - 1) / 2): GO 
HANDO AS CARTAS" 251 .219 ,2 ,0 ,0 TO 2100 

20 Е = INT (E / 256): POKE 232 96 DATA 0 ,8 „77 ,73 „209 ,2 2095 М = INT (NM / 2) 

,E - F * 256: POKE 233,F 23 .219 ,87 ,77 ,9 ,141 .219 ,2 2100 FOR J - 0 TONS - 1 

30 FORI-E TOE *41-* 17 х 23,187 ,41 ,45 ,77 ,209 ,27 ,2 2110 PX = CX * 8:PY = СҮ + 20 + 
i M OE E 23 ,187 ,105 ,73 ,141 ,251 ,219 J* 38 / (NS - 1):F = (J * 38 
10 BEAD A: POKE 1, T o o AM ЛАЛА Пі 
60 SCALE- 1: ROT- 0 BORNE PAL CE ТОЗ ETE * 2: GOSUB 2500: ROT= 0 


70 DATA 20 ,0 542 ,0 (74 50, 199.63 163,87 45 ,45 ,45 ,21 š - 

106 ‚0 ,138 ‚0 ‚170 ‚0 ‚202,0 3 ,59 ,63 ,255 ,74 ,41 ,109 ,20 2 Er ens POR (EE on p) iex 
,234 .0 .10 ,1 ,42 ,1 .74 ,l 1 9 :219 .223 ,83 .73 .73 ,209 .2 „су + 32 + ( NOT FE) * 8:PY = 
06,1 ,138 ,1 ,170.,1 ,202.,1 , 19.5219 ,19 0,0 40 PY (FO ROT= NOT FE * 32: 
234 1,10 ,2 .42 ,2 ,74 ,2 ,10 100 DATA 0 ,72 ,9 .77 .209 . GOSUB 2500: ROT= 0 > 
ЕТУДЕ 27,63,1223 (747 245745 21417,5! 90808;2500: 

22 БАТА 0 ,72 ,45 ,109 ,209 9 .63 ,63 ,191 ,9 ,45 ,45 .141 214 RETURN 

,251 .219 ,23 ,77 ,73 ,169 ,251 2219 ,63 ,223 ,74 ,9 ,77 ,209. 2509 ON sT GOTO 2510,2520,2530 





4239227, 1110 727,9 (212.81. 419 +219 19 ‚0,0 : 2540 

.63 ,63 ,55 .77 .73 ,169 .251 , 102 DATA 0 ,72 ,41 ,109 ,209 › кесе , 

74 DATA. 0,72 145 ,109 ,209 255 .31 ,191 ,41 ,45 ,45 ,173, š 57% 

127 ,222 ,155 ,73.,9 177,218, 591,31 ,31 ,191 ,73 ,105 „137 „ 2920 НСОГОА" 0: ОРАМ Pesa Аа 
$9 ,63 ,159 ,9 ,77 ,73 ,218 .21 219 .63 ,223 ,2 ,0 ,0 I Ж 

PNO ыты ШЫ Сны и йыз мә, Bi rio ор шым ш 
219 ,19 ,0 ,0 ,0 ,0 pa 91,41 ,45 ,45 ,173 2540 HCOLOR= 0: DRAW 17 AT IN 


76 DATA 0 ,72 ,45 ,109 ,209 9 .63 ,63 ,191 ,41 ,45 ,45 : 
.251 ,219 ,63 ,73 ,9 1141 1219 (27,41 .31 ,159 ,73 ,105 ,132 T (PX), INT (PY): RETURN 


,63 ,255 ,74 ,73 ,105 ,218 ,223 219 ,63 ,223 ,2.,0 Se você tiver um monitor monocro- 
,219 ,74 ,45 ,109 ‚209 ‚219 ‚2 Ho ри ABD o 51:8Q(K) = к:  Mático e quiser dar um aspecto mais 
19 ,19 ,0 ,0 ,0 ,0 „0 2 * agradável à tela, apague a linha 170. 











78 DATA 0.272 177 1774218 NEXT A 
‚251 ‚251 ‚74 |77 |77 .218 ,63 160 HGR : POKE - 16302,0 Os usuários do TK-2000 devem mu- 


163 ‚159 ‚73 ‚9 ,77 ,218 ,251 , 170 HCOLOR= 1: FOR I = 0 TO 19 dara linha 160 para: 
219 ,74 ,73 ,77 ,218 ,219 ,219 1: HPLOT 0,1 TO 279,1: NEXT 1160 MP : HGR 
$21,050 50:20:50 180 GOSUB 1500:N = 0 
80 DATA 0 ,72 ,45 ,109 ,209 190 FOR CX = 6 TO 250 STEP 54: As primeiras linhas do programa sáo 
,219 ,27 ,159 ,9 ,77 ,73 ,218 , FOR CY = 2 TO 120 STEP 100 responsáveis por montar na memória do 
59 ,63 ,159 ,73 ,9 ,77 ,218 ,25 200 GOSUB 1000: GOSUB 2000: FO Apple uma tabela de figuras contendo 
1 ,219 ,74 ,45 ,109 ,209 ,219 , RJ = 1 TO 500: NEXT J,CY,CX as letras e números das cartas, bem co: 
219, ,19 ,0 40722 as ,109 ,209 UE a J, 1 29 10001 NEFT mo os símbolos dos naipes. As linhas 
,159',9 ,77 123 ,218 , 1000 ST « INT (SQ(N) / 13) +1 РАТА 70а 104 foram criadas pelo nos- 
so programa editor de figuras. As pri- 


‚159 ‚9 ‚77 ‚77 ,218 ,25 ¿NM * SQ(N) - 13 * ST + 14:N = I 1 
p ,45 ,109 ,209 ,219 , N + 1: IF N > 5) THEN N = 0 meiras delas, com exceção da mensagem 
5D. 4D: «0 1010 RETURN “EMBARALHANDO AS CARTAS”, já 
0,72 ,45 ,45 ,141 , 1500 FOR X - 52 TO 2 STEP - 1 apareceram diversas vezes em INPUT. 


A» i Ea +73 ,105 ,218 1510 0 = ІМТ ( RND (1) * X) + A linha 110 dimensiona a matriz SQ, 


‚219 ы б +77 ,209 ,219 1 usada para embaralhar as cartas. A li. 
pins 219 ,219 1520 T - 8Q(X - 1):80(X - 1) * nha 120 enche essa mesma matriz com 
‚2! 



























































































SQ(Q - 1):8Q0(Q - 1) = T? valores de 0 a 51. 
? P Jans 1329 сенде = 0 TO 9:SQ(X + 52) A linha 160 liga a tela de alta resolu- 
š x š çào. No Apple, um POKE faz com que 











.77 ,77 ,218 ,25 = SQ(X): NEXT M fa 
2109 ‚20 aa 1550 RETURN a tela seja totalmente utilizada. No 


2 2000 HCOLOR= 3: FOR I = CY TO selecionada é a segun- 
М ds CY + 80: HPLOT CX,I TO CX + 50, [P precede HGR, pa- 
23 1159 ‚9 ‚77 1: NEXT 

63 ‚159 T 2010 S - NM 
2020 HCOLOR- 

2030 DRAW S 

„45 , 173 2040 ROT- 32 

SI, : ,105 ,169 ,25 8.СҮ + 72: RO 

1.251 ,187 ,105 ,105 ,169 ,251 IF NM / 
,251 ,187 ,105 ,41 ,45 ,213 ,2 R NM > 10 
19 ,219 ,19 ,0,0,0 = CY + 393 
92 DATA ‚9 ‚45 ,141 F NM = 
19 ,223 9 ,77 ,218 R NM - 
51 ,219 ,218 ,251 СҮ + 27: 


63 159 






















THEN PX = CX + 
GOSUB 2500:PY 











A linha 200 chama duas sub-rotinas. 
A primeira, da linha 1000, fornece o nai- 
pe — ST — e o valor NM — da carta 
em questão. A segunda, da linha 2000 
à 2140, calcula as posições em que de- 
vem ser desenhados os símbolos do nai- 
pe da mesma carta. 

Esta última sub-rotina parece compli- 
cada mas, com a ajuda de um baralho, 
pode-se entender melhor seu funciona- 
mento. Vários padrões se repetem na 
disposição dos símbolos dos naipes — 
as cartas de menor valor geralmente 
usam um só deles, enquanto as de maior 
valor requerem dois ou mais. A sub- 
rotina verifica quais desses padrões são 
necessários para desenhar os simbolos 
de determinado naipe em número e po- 
sição adequados. A instrução ROT com- 
plica um pouco mais essa sub-rotina, 
pois faz com que alguns simbolos apa- 
reçam de cabeça para baixo. 

Antes do cálculo das posições, as li- 
nhas 2030 e 2040 desenham os números 
ou letras da carta em questão em can- 
tos opostos da mesma, usando DRAW. 

As linhas 2050 e 2090 calculam as po- 
sições de cada símbolo do naipe, com 
base no valor da carta. PX e PY são as 
coordenadas desta posição. 

Uma vez que PX e PY tenham sido 
calculadas, a sub-rotina da linha 2500 
é chamada. Essa rotina usa DRAW pa- 
ra desenhar os símbolos dos naipes. 

A linha 210 provoca uma pausa an- 
tes que o programa volte para a linha 
190. Esta desenha uma nova série de dez 
cartas. 


Apresentamos a seguir a seção do 
programa para o TRS-Color que dese- 
nha as cartas. Digite-a e use RUN para 
ver o computador distribuir as cartas. 











10 PMODE 3,1 

20 CLS:PRINT 8226," ESTOU EMBARA 
LHANDO AS CARTAS” 

30 DIM NUS(13):FOR K=1 TO 13:RE 
AD NUS (K) : NEXT 

40 DATA BD2S4U5ER5FD2NL5D3,RDLD 
R,RDNLDL , DRDU2 , NRDJ 

DGD, ND2RDNLDL , ND! 
2NU2RU2L,S4BD5F2! 












90 DATA 1,0,6,64,9,128,38,96,25 
,144,102,100,153,152,102,100,15 
3,152,34,32,1,0 

100 DATA 2,0,9,128,6,64,9,128,3 
4,32,153,152,102,101,153,152,10 
2,101,17,16,2,0 

110 DIM C(3),D(3),H(3),5(3),S0( 
61) 

120 GET(0,0)-(13,10),H,G 

130 GET(0,11)-(13,21),D,G 

140 СЕТ(0,22)-(13,32),5,6 


150 GET(0,33)-(13,43),C,G 

160 FOR K=0 TO 51:SQ(K)=K:NEXT 
170 PCLS 6:SCREEN 1,1 

180 GOSUB 1500:N=0 

190 PCLS 6:FOR CX=6 TO 200 STEP 


50:FOR CY=11 TO 108 STEP 97 
200 GOSUB 1000:GOSUB 2000:FOR J 
=1 TO 500:NEXT J,CY,CX 

210 FOR J=1 TO 1000:NEXT:GOTO 1 
90 

1000 ST=INT(SQ(N)/13)+1:NM=SQ(N 
)-13*8T+14:N=N+1:IF N>51 THEN N 
=0 

1010 RETURN 

1500 FOR X=52 TO 2 STEP -1 

1510 Q=RND(X) 

1520 Т-80(Х-1):50(Х-1)-50(0-1): 
SQ(Q-1)=T 

1530 NEXT 

1540 FOR X=0 TO 9:80(X+52)=SQ(X 
) :NEXT 

1550 RETURN 

2000 LINE(CX,CY) - (CX*44,CY*72) , 
PRESET,BF 

2010 S$=NUS (NM) 

2020 IF ST>2 THEN COLOR 7 ELSE 
COLOR 8 

2030 DRAW"S12BM"*STR$(CX*3)*"," 
+STRS (CY+2) +55 

2040 DRAW"S12BM"+STRS (CX+35) +", 
"+STR$ (CY+64) +55 

2050 IF(NM/2 <> INT(NM/2) AND N 
M<>7) OR NM>10 THEN PX=CX+16: P 
Y=CY+31:GOSUB 2500 

2060 IF NM=2 OR NM=3 OR NM=10 O 
R NM=8 THEN PX=CX+16: PY-CY*19: 
GOSUB 2500: PY=PY+24: GOSUB 250 


0 

2070 IF NM-7 THEN PX=CX+16: PY= 
CY+39: GOSUB 2500 

2080 IF NM<4 OR NM>10 THEN 2140 
2090 IF (NM=10 OR NM=8) THEN NS 
=INT((NM-1)/2) ELSE NS=INT (NM/2 


) 

2100 FOR J=0 TO NS-1 
2110 PX-CX*3:PY-CY*12*J*38/ (N8- 
1):GOSUB 2500 
2120 PX=CX+30:G0SUB 2500 
2130 NEXT 

2140 RETURN 





10,2520,2530, 
X+13,PY+10),H 
PX+13,PY+ 
(PX+13,PY+1 
,OR: RETURN 


2540 PUT(PX,PY)(PX+13,P' 
+ OR: RETURN 























Escolhemos um PMODE com 4 co- 
res, de modo que os naipes e números 
das cartas sejam azuis ou vermelhos. A 
linha 20 comunica ao jogador que as 
cartas estão sendo embaralhadas. 

O comando DRAW coloca na tela de 
alta resolução as letras para os ases, reis, 
damas e valetes, bem como os números 
das cartas. As instruções para esse co- 
mando são lidas na linha DATA 40 e 
guardadas na matriz NUS pela linha 30, 
usando READ. 

A linha 60 coloca os símbolos dos 
naipes na tela, usando POKE. Os pa- 
drões para esses símbolos são obtidos 
nas linhas DATA 70 a 90. As linhas 120 
a 150 usam o comando GET para guar- 
dar os símbolos na memória, tão logo 
sejam desenhados. As matrizes que os 
guardam foram dimensionadas na linha 
110, juntamente com a matriz SQ, em- 
pregada para embaralhar as cartas. A li- 
nha 160 coloca os números 0 a 51 na ma- 
triz SQ. 

A linha 180 chama a sub-rotina que 
começa na linha 1500, para que as car- 
tas sejam embaralhadas. O valor zero é 
colocado em N, o que significa que o ele- 
mento O da matriz SQ está em questão. 

A linha 190 colore a tela de ciano e 
inicia dois laços FOR... NEXT que in- 
cluem as variáveis CX e CY, usadas pos- 
teriormente para posicionar os símbo- 
los dos naipes nas cartas. 

A linha 200 chama duas sub-rotinas. 
A primeira, da linha 1000, calcula o nai- 
pe — ST — e o número — NM — da 
carta em questáo. A segunda, da linha 
2000, calcula as posigóes em que os sím- 
bolos do naipe da carta seráo desenhados. 

Esta última sub-rotina parece compli- 
cada mas, com a ajuda de um bajdlho, 
pode-se entender melhor seu funtidha- 
mento. Existem certos padrões quad re- 
petem na disposição dos sím! “4 
naipe — as cartas de menor us: 
apenas um deles, enquanto as dê maier 
valor requerem dois ou mais. ^d 
rotina verifica quais os padrgiss n&oes- 
sários para desen! estão. 

lo nai- 


é dese- 




















































or- 


2050 a 2090 calculam as po- 
bolos dg naipe со! e 
PY são a: 
, calcul; 


cart; 


partir de CX 
Uma vez que 'Y tenham sido 
calculadas, a sub-rotina 2500 é chama- 
da, desenhando os símbolos do naipe. 

















A função de potenciação tem varia- 
das aplicações, sobretudo quando pre- 
cisamos calcular áreas e volumes em 
nossos programas. 

No computador, essa função, repre- 
sentada por 1, é colocada sempre entre 
dois números. Por exemplo: 213 (diz-se 
“*dois elevado à terceira potência”). 


Na maioria dos computadores aqui 
indicados, a função de potenciação de- 
уе ser digitada por meio da tecla (сіг- 
cunflexo), e é assim que ela aparecerá 
nas listagens. As exceções são: 





Usa-se a tecla 1 para digitar a opera- 
ção de potenciação. 


Usa-se a tecla ** (duplo asterisco) pa- 
ra digitar a operação de potenciação. 

Um número elevado à potência de 
outro é simplesmente o primeiro núme- 
ro multiplicado por ele mesmo um cer- 
to número de vezes. O segundo número 
determina quantas vezes. 

De volta ao exemplo inicial, dois ele- 
vado à terceira potência é dois multipli- 
cado por dois três vezes. Ou seja: 


2°3 = 2*2*2=8 


A operação é a mesma para qualquer 
par de números. 


275 9 2*2*2^2*2 = 32 
5:4 = 5252545 = 625 


Convencionalmente, representa-se a 
função de potenciação colocando-se o 
segundo número, em tamanho menor, 
junto ao primeiro. Por exemplo, 2º, 5º. 
O computador, porém, não entende es- 
sa notação matemática. 


RADO E AO CUBO 


A potência de dois e a potência de 
três recebem denominações especiais. 
Qualquer número elevado à potência de 











dois é dito “elevado ao quadrado”, e 
qualquer número elevado à potência de 
três é dito “elevado ao cubo”. De fato, 
existem razões para esses nomes. 

Quando calculamos a área de um re- 
tângulo (seja ele um tapete ou qualquer 
objeto retangular), medimos seu com- 
primento e largura e, em seguida, mul- 
tiplicamos os dois números. O resulta- 
do dessa multiplicação é um número em 
unidades quadradas. A área é medida 
em “metros quadrados” porque, na ver- 
dade, estamos calculando quantos qua- 
drados, de lados iguais a um metro, ca- 
bem nesta área. Da mesma maneira, um 
número elevado a dois é dito ao quadra- 
do (uma área quadrada é representada 
pela multiplicação da unidade básica 
por ela mesma). 

Enquanto a potência de dois recebe 
um nome de medida de área, a potên- 
cia de três recebe um nome de medida 
de volume. Para calcular o volume de 
um cubo, multiplicamos o comprimen- 
to pela largura e, depois, pela altura. 
São necessárias, portanto, três multipli- 
cações da unidade básica (duas para a 
área e mais uma para a altura). Um nú- 
mero elevado à terceira potência é, as- 
sim, um número ao cubo. 


РОТЕМСІА5 МАІОВЕ5 


Vimos que um número ao quadrado 
calcula área e um número ao cubo cal- 
cula volume. Não é possível construir 
modelos para potências maiores que 
três. Se tivéssemos um objeto com qua- 
tro dimensões, seu volume seria medi- 
do em unidades de quarta potência, o 
que é obviamente absurdo. Contudo, as 
potências maiores têm muita utilidade, 
como veremos a seguir. 

Suponha, por exemplo, que quere- 
mos saber a probabilidade de um dado 
cair com a face seis para cima. É sim- 
ples: cada face tem a mesma chance de 
aparecer; portanto, cada face tem 1/6 
de chance. Suponha, agora, que quere- 
mos saber a probabilidade de obter seis 
duas vezes seguidas. Existe 1/6 de chan- 
ce de que apareça um seis na primeira 
vez e, se aparecer, existe outro 1/6 de 
chance de que apareça um seis na segun- 
da vez. A probabilidade total é 1/6 ve- 


Aqui estão mais algumas funções 
matemáticas em BASIC. Suas aplicações 
práticas vão desde o cálculo da área 
de um piso até o cálculo da velocidade 
de um corpo em queda. 


zes 1/6, ou seja, 1/6 ao quadrado. O 
mesmo vale para quantas vezes quiser- 
mos. A chance de que o dado caia sete 
vezes com o três para cima, por exem- 
plo, é: 1/6 * 1/6 * 1/6 * 1/6 * 1/6 * 1/6 
* 1/6 = (1/6)17. 

Quando examinamos a conversão pa- 
ra binário, tivemos a oportunidade de 
usar números elevados a potências maio- 
res. Cada dígito binário representa uma 
potência do número dois. No número 
binário 11111111, por exemplo, o pri- 
meiro dígito da direita (bit 0) represen- 










ta um 1, o segundo (bit 1) um 2, o ter- 
ceiro (bit 2) um 4 e os seguintes, respec- 
tivamente, 8, 16, 32, 64, 128. 

Veja que 4 é 2*2, ou 2 elevado à po- 
tência de 2; 8 é 2*2*2, ou 2 elevado à 
terceira potência, 16 é 2*2*2*2 e assim 
por diante: 


2*2 4 
2*2*2 8 
2*2*2*2 16 
2*2*2*2*2 32 
2*2*2*2*2*2 64 
2*2*2*2*2*2*2 


E NÚMEROS AO CUBO 
NÚMEROS ELEVADOS 
A GRANDES POTÊNCIAS 


Estão faltando dois valores nessa ta- 
bela. Pode-se perceber facilmente quais 
são eles, mas a explicação talvez se- 
ja um tanto surpreendente. O primeiro 
valor é 211. Obviamente, pela analo- 
gia binária, ele deve ser 2. Na verdade, 
se 212 é 2 multiplicado por ele mes- 
mo uma só vez, 211 deve ser 2 multi- 
plicado por ele mesmo uma vez a me- 
nos, ou seja, nenhuma.vez. 211 fica, en- 
tão, valendo 2. 

O valor abaixo deste é 210. À primei- 
ra vista, parece que o resultado é zero mas, 


DE UM QUADRADO 

A RAIZ QUADRADA 

O USO DA FUNÇÃO SOR 
M PROGRAMA 


pela tabela acima, fica claro que é 1. 

Isso acontece porque 2 precisa ser 
multiplicado por ele mesmo uma vez a 
menos que 211. Como 211 é 2 mesmo, 
só há uma maneira de multiplicar uma 
vez a menos: dividir 2 por ele mesmo. 
E qualquer nümero dividido por ele 
mesmo, como sabemos, vale 1. 

Para verificar o que foi dito ou o va- 
lor de qualquer outra poténcia, vocé de- 
ve digit 


PRINT 2^X 















„onde X é o valor que pretende verifi- 
car. Em seguida, tecle < ENTER > ou 
<RETURN>. 


POR CURIOSIDADE... 


Experimente atribuir qualquer valor 
a X, ainda que valores grandes possam 
acarretar erros de sobrecarga (overflow). 
O que aconteceria, por exemplo, se se 
fizesse X igual a 1/2? Retornaremos ao 
assunto mais tarde, Por enquanto, va: 
mos explorar um pouco mais a tão usa- 
da potência quadrada. 


ОМРАҺЕ ОШАОНАО05 


O programa abaixo usa uma série de 
números para desenhar na tela diferen- 
tes quadrados, permite que se escolha 
dois deles e compara suas áreas. Acom- 
panhando-o, a idéia de potência ficará 
mais clara. 


Y 


10 SCREEN 2:COLOR 15,12,3 
20 FOR N-17 TO 1 STEP -1 
30 LINE(60,171)-(60*8*N,171-8*N 
















































),1,B 

40 NEXT 

50 IF INKEYS="" THEN 50 
60 CLS:SCREEN O 






70 PRINT"Deseja comparar alguma 
área (s/n) ?” 

80 AS=INKEYS:IF AS<>"s” AND AS< 
>"n” AND AS<>"S” AND ASSN” TH 
EN 80 

90 IF AS="n" OR A$=" THEN 270 
100 PRINT:INPUT"Qual o primeiro 
quadrado cuja área quer compar 
аг (1-17) ";¡A:A=INT(A):IF ACI O 
R A»17 THEN 100 

110 PRINT:INPUT"E qual é o segu 
ndo (1-17) ";B:B*INT(B):TF B«l 
OR B>17 THEN 110 

120 TF AB THEN 220 

130 CLS:PRINT” A primeira área 
cabe "; 
140 PRINTUSING"$444.44";B^2/A^2; 
150 PRINT" vezes den-tro da seg 
unda" 
160 FOR K=1 TO 2500:NEXT 
170 CLS:SCREEN 2 

180 LINE(60,171)- (60*8*A,171-8* 
A) ,1,BF:LINE(60,171)- (60*8*B,17 
1-8*B),1,B 

190 IF INKEYS-"" THEN 190 

200 CLS:SCREEN 0:PRINT" Quer co 
mparar mais alguma área (s/n) ? 

















































210 GOTO 80 

220 CLS:PRINT” A primeira área 
é"; 

230 PRINTUSING"444. $1" :A72/B^2; 
240 PRINT" vezes maior que a se 
gunda” 

250 SWAP A,B 

260 GOTO 160 

270 CLS 

280 LOCATE 5,10 

290 PRINT"qualquer tecla para r 
einiciar" 
300 IF INKEY 
310 GOTO 10 


(4%) 


10 HGR2 : HCOLOR= 3 

20 HPLOT 10,180 TO 180,180 

30 HPLOT 10,10 TO 10,180 

40 FOR I * 10 TO 170 STEP 10 
50 HPLOT 10,I TO 190 - I.I 

60 HPLOT 190 - I,I TO 190 - I, 


Io MIA 

































THEN 300 


70 NEXT I 


80 FOR T - 0 TO 3000: NEXT : T 








90 HOME VTAB 10 

100 PRINT "DESEJA COMPARAR ALG 

UMA AREA (S/N) ?" 

110 GET AS: IF AS < 

AS < > "N” THEN 110 

120 IF AS = "N” THEN 500 

130 PRINT INPUT "QUAL O PRIM 

EIRO QUADRADO QUE DESEJA COM-PA 

RAR (1-17) ";А:А = ІМТ (A): IF 

À < 1 OR A > 17 THEN 130 

140 PRINT : INPUT “E QUAL O SE 

GUNDO (1-17) ";B:B = INT (B): 

IF B < 1 OR B > 17 ТНЕМ 140 

150 IF À > B THEN 190 

160 HOME VTAB 10 

170 PRINT "А PRIMETRA AREA CAB 

BUB 5S NT VEZES DENTR 

O DA SEGUNDA” 

180 GOTO 210 

190 HOME VTAB 10 

200 PRINT "A PRIMEIRA AREA E' 

"ЧА”2/В 2;" VEZES MAIOR Q 

UE A SEGUNDA” 

210 FORT = 0 ТО 2000: 

220 HGR2 HCOLOR* 3 

230 KA = (A * 1) * 10:LA = 
A 


» "S" AND 


NEXT 


(B * 1) * 10:LB = 190 
HPLOT 10,LA TO KA,LA TO KA 
TO 10,180 TO 10,LA 
HPLOT 10,LB TO KB,LB TO KB 
TO 10,180 TO 10,LB 
FOR T = 0 TO 3000: NEXT 
TEXT : HOME : VTAB 10 
PRINT "QUALQUER TECLA PARA 
REINICIAR" ; 
520 GET AS: 


IF AS = "* THEN 52 


0 
530 


RUN 


10 сїз 
20 PRINT AT 2,0;"Comprimento" 
ТАТ 3,0;"dos";AT 4,0;"lados” 
30 PRINT AT 2,24;"Area";AT 3, 

4:"40";АТ 4,24;"quadrado" 
40 LET z-0: PLOT 55,23 

50 FOR n=1 TO 13 
60 LET m=n: IF m>7 
m=m-8 

70 DRAW 0,пх8 

80 DRAW PAPER m;n*B,0 

90 DRAW PAPER m;0,-(n*8) 
100 DRAW PAPER 7;-(n*8),0 
110 PRINT AT 6*(13-n),0;n;AT 6 
*(13-n) ,25;n*n 
120 PAUSE 10: NEXT n 
140 INPUT "Voce quer comparar 
areas (s/n)?";a$ 
150 IF as<>"s" AND aS<>”n” 
THEN GOTO 140 
160 IF a$="n” THEN GOTO 300 
170 INPUT "Qual e o primeiro q 
uadrado cuja area voce quer co 
mparar? (1-13)" IF а<1 ОВ а 
>13 THEN GOTO 170 
180 INPUT "E qual e o segundo? 
(1-13)";b: IF b<] OR b>13 THEN 
GOTO 180 

190 LET x=INT (a): 


THEN LET 


LET y=INT ( 


200 IF x>y THEN GOTO 280 
210 CLS : PRINT "A segunda are 
а е ";y^2/x^2;" vezes maior do 
que a primeira” 
220 PLOT 20,0: DRAW x*8,0: 
DRAW 0,x*8: DRAW -x*8,0: DRAW 
0,-x*B: DRAW y*B,0: DRAW 0,y*8 
DRAW -y*8,0: DRAW 0,-y*8 
230 PRINT "Voce quer comparar 
mais areas (в/п)?" 
240 INPUT as 
250 IF а8<>”в” 
THEN GOTO 240 
260 IF a$-"n" 
GOTO 300 
270 GOTO 
280 GLS : PRINT 
ea e ^2/y^ui" 
o que a segunda" 
290 бото 220 
300 IF 2-1 THEN CLS 
310 PRINT INK 2; FLASH 
,0;" Pressione qualquer 
para — recomecar" 
320 PAUSE 0 
330 IF INKEYS=" 
340 RUN 


AND ag<>"n” 


THEN LET z 

170 

“A primeira ar 
vezes maior d 


LET 2=0 
1:А7 0 
tecla 


THEN STOP 


10 PMODE4,1:PCLS:SCREEN1,1 

20 FOR N=17 TO 1 STEP -1 

30 ГІМЕ (20,171) – (20+8%М,171-8* 

N),PSET,B 

40 NEXT 

50 CLS 

60 IF INKEYS-"" THEN 60 

70 PRINT" VOCE QUER COMPARAR AR 
EAS (S/N) ?" 

80 AS=INKEYS:IF AS<>"S” AND ASS 
»"N" THEN 80 

90 IF AS="N” THEN 220 

100 PRINT: INPUT” QUAL E O PRIME 
IRO QUADRADO CUJA AREA VOCE QUE 
R COMPARAR (1-17)";A:A=INT(A):I 
F А<1 ОҢ А217 THEN 100 

110 PRINT:INPUT" E QUAL E O SEG 
UNDO (1-17)";B:B=INT(B):IF B<1 
OR B>17 THEN 110 

120 IF A>B THEN 200 

130 CLS:PRINT” A SEGUNDA AREA E 
";B^2/A^2;"VEZES MAIOR DO Q 
UE A PRIMEIRA” 

140 FOR K=1 TO 6000:NEXT 

150 PCLS:SCREEN 1,1 

160 LINE(20,171)-(20*8*A,171-8* 
A) ,PSET, B:LINE(20,171)- (20*8*B, 
171-8*B),PSET,B 

170 IF INKEYS="” THEN 170 

180 CLS:PRINT” VOCE QUER COMPAR 
AR MAIS AREAS (S/N) ?" 

190 GOTO 80 

200 CLS:PRINT” A PRIMEIRA AREA 
E";A^2/B^2:PRINT 632," VEZES MA 
IOR DO QUE A SEGUNDA.” 

210 GOTO 140 

220 CLS 

230 PRINT 633,"PRESSIONE QUALQU 
ER TECLA PARA RECOMECAR” 

240 IF INKEY$-"" THEN 240 

250 GOTO 10 
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A rotina que faz a comparação co- 
meça pedindo que se escolha o primei- 
ro dos dois quadrados que serão cote- 
jados. Em seguida, verifica se o núme- 
ro que entrou não é ilegal, ou melhor, 
se não é menor ou maior que o número 
de quadrados. 

A função INT transforma em intei- 
ro o número que entrou, caso este seja 
um decimal. 

Uma vez escolhidos os dois números, 
o computador compara-os a fim de de- 
terminar qual é o maior. Em seguida, 
eleva cada número ao quadrado (isto é, 
multiplica cada um por si mesmo) e di- 
vide o maior pelo menor. 

Finalmente, obtido o resultado, a ro- 
tina joga na tela a mensagem que diz 
qual número é o maior e o quanto ele 
é maior que o outro. 


RAIZ 





ОВА! 





A potência de dois, ou a função qua- 
drada, talvez seja a mais utilizada das 
potências. Mas muitas vezes precisamos 
usá-la no modo inverso, ou seja, achar 
o número que gerou o número ao qua- 
drado que conhecemos. Suponha que 
sabemos, por exemplo, que a área de um 
quadrado é 81 e queremos especificar o 
comprimento dos lados. 

Com o número 81 não é tão difícil: 
9 vezes 9 é 81; portanto, o comprimen- 
to de cada lado deve ser 9. Mas se a área 
fosse 127, por exemplo, o cálculo do 
comprimento do lado (ou do número 
que ao quadrado é 127) torna-se bem 
mais difícil. Os computadores possuem 
uma função que ajuda neste cálculo: a 
função raiz quadrada. 

Digite PRINT SQR(81) e tecle 
<ENTER> ou <RETURN> — o nú- 
mero 9 deverá aparecer na tela. Para sa- 
ber quanto vale a raiz quadrada de 127, 
basta repetir a operação, substituindo o 
81 dentro dos parênteses por 127. 

O computador dispõe do comando 
especial SQR porque a raiz quadrada é 
amplamente empregada. Mas podemos 
utilizar também, para o mesmo cálcu- 
lo, a função de potenciação. 

Se você já usou frações como potên- 
cia, deve ter observado que 21.5 (ou dois 
elevado a 1/2) tem o mesmo efeito que 
SQR(). Experimente em seu micro 
SQR(81) e depois 811.5. Os resultados 
podem náo ser exatamente os mesmos 
mas, certamente, seráo bem próximos. 

A fração 1/3, usada como potência, 
calcula o inverso do cubo, ou seja, a raiz 
cúbica. A mesma analogia vale para as 
outras potências. Embora cada raiz te- 
nha sua própria aplicação, a raiz qua- 
drada é a mais usada de todas. 





O comando SQR faz muito mais do 
que simplesmente calcular o lado de um 
quadrado do qual se conhece a área. Al- 
gumas equações matemáticas têm núme- 
ros ao quadrado e raízes quadradas e, 
nesses casos, pode-se utilizar SQR para 
calcular o resultado no computador. 

O programa que apresentamos a se- 
guir usa uma equação para calcular o 
tempo de queda de um objeto (despre- 
zando-se a resistência do ar). Os físicos 
chamam essa situação de “corpo em 
queda livre no vácuo”. O programa 
também calcula a velocidade em que o 
objeto se encontra quando atinge o so- 
lo. Esses cálculos envolvem números ao 
quadrado e raizes quadradas porque 
qualquer objeto em queda e sob a in- 
fluência da gravidade cai cada vez mais 
rápido com o passar do tempo (despre- 
zando-se a resistência do ar). Na verda- 
de, estamos tratando com o quadrado 
do tempo. Mas, antes de maiores deta- 
lhes, vejamos o programa funcionando. 


nau 








10 CLS 
20 PRINT"Qual a altura da queda 
¿+ INPUT D 


30 IF D<O THEN 20 

40 T=SQR((2*D)/9.81) 

50 V=SQR(2*D*9.81) 

60 T=INT(T*100)/100 

70 V=INT(V*100)/100 

80 PRINT:PRINT"Tempo até chegar 
":PRINT"ao solo =";T;"segundos” 


90 PRINT:PRINT"Velocidade máxim 
a":PRINT"de 






impacto *";V;"metro 
do” 


";1.6*INT(2.25*U*.5) 





200 LOCATE 4,20:PRINT"Qualquer 
tecla para reinicio” 

210 IF INKEYS="" THEN 120 

220 RUN 


417%) 


10 HOME 
20 PRINT "QUAL A ALTURA DA QUE 
DA ";: INPUT D 


30 IF D « 0 THEN 20 





40 Т = SQR ((2 * D) / 9.81) 

50 V = SOR (2 * D * 9.81) 

60 T - INT (T * 100) / 100 

70 У = INT (V * 100) / 100 

80 PRINT PRINT "TEMPO ATE CH 
EGAR": PRINT "AO SOLO = ";T;" S 
EGUNDOS" 

90 PRINT : PRINT "VELOCIDADE M 
AXIMA": PRINT "DE IMPACTO ";V;" 
METROS POR SEGUNDO" 

100 PRINT "(";1.6 * INT (2.25 
* V * .5);" KM/H)” 

200 VTAB 20: PRINT "QUALQUER T 
ECLA PARA REINICIO” 

210 GET AS: IF AS = ”” THEN 21 
о 

220 RUN 




















10 CLS 

20 INPUT "INTRODUZA A DISTANC 
IA DA QUEDA (METROS)",D 

30 IF D<XO THEN GOTO 20 

40 LET T-SOR ((2*D)/9.81) 

50 LET V-SQR (2*D*9.81) 

60 LET T-INT (T*100)/100 

70 LET V=INT (V*100)/100 

80 PRINT INVERSE 1''"TEMPO P 
ARA CHEGAR AO CHAO:"; INVERSE 
0'T;" SEGUNDOS" 

90 PRINT INVERSE 1'"VELOCIDA 
DE MAXIMA ATINGIDA:"; INVERSE 
0'V;" METROS POR SEGUNDO" 

100 PRINT "(";INT (2.25*U*.5); 

" MPH)" 

200 PRINT ''"PRESSIONE QUALQUE 

R TECLA PARA RECOMECAR" 

210 IF INKEYS="" THEN GOTO 
210 

220 GOTO 10 


10 CLS 

20 INPUT "DIGITE A DISTANCIA DA 
QUEDA (EM METROS)”;D 

30 IF D<O THEN 10 

40 T=SQR((2*D)/9.81) 

50 V=SQR(2*D*9.81) 

60 T=INT(T*100)/100 

70 V=INT(V*100)/100 

80 PRINT €697,"tempo para chegar 
ао chao:":PRINT T;"SEGUNDOS" 
90 PRINT 6225,"velocidade maxim 
a alcancada RINT V;"METROS P 
OR SEGUNDO” 
100 PRINT " 
MPH)" 

110 PRINT:PRINT"PRESSIONE QUALQ 
ШЕҢ TECLA PARA  RECOMECAR" 

120 IF INKEYS="" THEN 120 

130 GOTO 10 





(*;INT(2.25*V+,5);” 


Em primeiro lugar, o computador 
limpa a tela e pergunta pela altura da 
qual o objeto vai cair. Caso vocé respon- 
da com um número negativo, a pergun- 
ta será feita novamente, pois náo se po- 
de calcular raiz quadrada de um núme- 
ro negativo. 

Depois o computador calcula o tem- 
po que o objeto levará para chegar ao 
chão e a velocidade com que chega. Is- 
so é feito nas linhas 40 e 50. 

A equação usada na linha 40 é uma 
das versões da “equação de movimen- 
to” que, depois de rearranjada, tomou 
a forma: 


т = V *D/a 

...Onde T é o tempo necessário para per- 
correr determinada distáncia (nesse ca- 
so, para atingir o solo), D é a distância 
(fornecida por você) e a é a aceleração 
(mede o quanto a velocidade aumenta 


em cada segundo). 

No programa não há nenhuma variá- 
vel a, já que seu valor é constante: no 
lugar de a vemos, assim, 9.81. 

A linha 40 resolve a equação, indi- 
cando o tempo que o objeto leva para 
atingir o solo. 

A linha seguinte resolve uma equação 
semelhante, que calcula a velocidade 
со objeto no momento em que atinge o 
solo. 


v = Y 2xDx9.81 

Nessa equação, em vez de dividir, o 
computador multiplica o número 2*D 
pela aceleração. V significa, no caso, ve- 
locidade. 

Em ambas as equações, o sinal V — 
sobre o “2*D*9.81” ou “‘2*D39.81” 
significa raiz quadrada de — é aqui, 
portanto, que usamos a raiz quadrada. 
Uma vez obtida a resposta para uma das 
equações, pode-se mudá-la de modo que 
o computador calcule a altura da qual 
o objeto foi jogado. 

De um modo geral, a equação se apli- 
ca a qualquer objeto em queda, seja ele 
um tijolo ou um foguete. O que pode 
mudar é o valor da aceleração. No nos- 
so exemplo, a aceleração deve-se à gravi- 
dade; por isso, a é ajustado para este va- 
lor. A gravidade tem uma aceleração de 
9.81 metros por segundo por segundo. 
Em outras palavras, para cada segundo 
na queda de um objeto sua velocidade 
aumenta de 9.81 metros por segundo. 
Metros por segundo por segundo tam- 
bém pode ser escrito como metros por se- 
gundo ao quadrado — e é aqui que a 
função potência entra em cena. 

As equações para esse cálculo tomam 
a seguinte forma: 


a*(U2) 
2 


ou 
р = V^2/(a*2) 

Tente modificar o programa de mo- 
do que ele calcule respostas para estas 
equações. Em vez de altura, poderíamos 
fornecer ao computador a velocidade 
com que desejamos que um objeto atin- 
ja o solo (para a segunda equação) ou 
o tempo que ele deve levar antes do im- 
pacto. Em ambos os casos, o computa- 
dor calcularia a altura necessária para 
satisfazer o dado fornecido. 

A capacidade de resolução de proble- 
mas desse tipo tem vários usos práticos. 
Na maioria deles, porém, as equações 
necessitam de um tratamento mais cui- 
dadoso, que leve em conta influências 
sobre o corpo em movimento. Alguns 





Por que recebo uma mensagem de er- 
ro quando tento calcular a raiz quadra- 
da de um número negativo? 

Os computadores não são capazes 
de calcular a raiz quadrada de um nú- 
mero negativo e, na verdade, isto não 
existe no universo dos reais (embora 
para certos propósitos se atribua um 
valor imaginário). 

Elevar um número ao quadrado sig- 
nifica multiplicá-lo por ele mesmo. Nú- 
meros positivos multiplicados entre si 
resultam num número positivo, mas o 
mesmo acontece com os negativos 
(negativo vezes negativo resulta num 
número positivo). Náo existe nenhum 
número real que, elevado ao quadrado, 
resulte num número negativo. E é cla- 
ro que o computador acusa erro quan- 
do lhe pedimos para fazer o impossível. 

Quando usamos SQR num progra- 
ma precisamos estar certos de que o 
número em questão será sempre posi- 
tivo. Caso haja a possibilidade de que 
aparecam nümeros negativos (resulta- 
dos de cálculos anteriores, por exem- 
plo), aconselha-se o uso da funcáo 
ABS. Essa função converte um núme- 
ro em seu valor absoluto, ou seja, reti- 
ra o sinal negativo, se houver. Para 
incluí-la num programa, substitua SOR 
(A) por SQR(ABS(A)), onde A repre- 
senta o número que está usando. 


exemplos de aplicação seriam o cálculo 
do desempenho de um carro em testes 
de frenagem e aceleração ou mesmo a 
reconstituição de um acidente automo- 
bilístico. Neste último caso, poderíamos 
precisar a velocidade em que se encon- 
trava o veículo no momento da batida. 
O cálculo é possível, contanto que co- 
nheçamos os valores corretos para sa- 
tisfazer as equações. 

Por meio da função de potenciação 
pode-se calcular muitas outras coisas 
além do desempenho de um carro ou da 
área de uma casa. Ela permite determi- 
nar, por exemplo, o quanto uma árvo- 
recresce, ou por que um pássaro do ta- 
manho de um elefante não pode levan- 
tar vôo. Num próximo artigo continua- 
remos a explorar o uso das funções ma- 
temáticas no computador, inclusive pa- 
ra a obtenção de efeitos gráficos. 











COMO EVITAR 


ERROS 


USE MENSAGENS CLARAS 
ROTINAS DE PREVENÇÃO 

DE ERROS 

EXCLUA VALORES INCORRETOS 

E INDICAÇÃO DE ERROS 











Nem sempre é fácil separar o joio do 
trigo, quando se trata de 
programação: programas inteiramente 
corretos podem apresentar 

erros inesperados. Aprenda a evitá-los. 





A palavra-chave é uso. Não importa 
se o programa é considerado bom de um 
ponto de vista estritamente técnico: se 
ele se mostrar complicado, alguém vai 
fatalmente acabar tendo dificuldades e 
cometendo erros. 

O segredo para contornar esse pro- 
blema é fazer programas bem ordena- 
dos, de forma que todos os seus módu- 
los sejam claros no que se refere à fun- 
ção e ao modo de uso. 

Isso significa oferecer muitas infor- 
mações e telas explicativas e proteger 


adequadamente tanto o programa quan- 
to o usuário de erros simples, 

O ideal seria colocar no programa 
proteções contra todos os erros possi- 
veis. Teclas pressionadas equivocada- 
mente, entradas irregulares, valores ab- 
surdos — tudo, enfim, que possa atra- 
palhar a correta execução de um pro- 
grama deve ser evitado. Para isso, é 
necessário que se incorporem vários ti- 
pos de rotinas de verificação de erros e 
validação de entradas ao programa. 
Muitos dos programas mostrados por 
INPUT até o momento fazem uso des- 
ses artifícios. 


Mensagens precisas são muito impor- 
tantes para ajudar o usuário a com- 
preender de que maneira deve respon- 


CRIAR NOVO REGISTRO 
ALTERAR REGISTRO 


EXISTENTE 


CARREGAR ARQUIVO 
GRAVAR ARQUIVO 


AR 
INDICAR ESCOLHA ( 


ba 


der quando apresentado, por exemplo, 
a um menu de opções. 

Suponhamos, por exemplo, um me- 
nu que mostre as seguintes opções, típi- 
cas de um programa que manipula um 
banco de dados: 


. Criar um novo registro. 

. Alterar um registro existente. 
. Carregar um arquivo. 

. Gravar um arquivo. 


һәм 


Se for usada uma mensagem do tipo 
“Selecione uma opção:”' ou “Faça sua 
escolha:", o usuário ficará em dúvida 
sobre o que fazer. Deve dar entrada ao 
número da opção ou digitar uma ou 
mais letras do nome da opção? 

Certamente, uma mensagem mais ade- 
quada seria "Indique a escolha (1-4)” ou 
“Tecle 1-4 para fazer sua opção”, 

Esse tipo de indicação deve ser feito 




















também em perguntas que exijam uma 
resposta simples do género sim ou nào. 
Assim, em vez de usar alguma coisa 
do tipo “Tenta novamente?" — onde 
“tsim” pode ser indicado por uma tecla 
não específica, ou pelo acionamento do 
botão de disparo do joystick, ou teclan- 
do-se S —, especifique as possibilidades: 
“Pressione o botão de disparo para jo- 
gar novamente”, ou **Tenta novamen- 
te? (S/N)”. Estas são formas muito 
mais diretas e claras de proceder. 

Mesmo a mensagem “Pressione qual- 
quer tecla para continuar” pode causar 
confusão. Vale a pena prepará-la a fim 
de evitar que alguém queira pressionar 
algo como <BREAK> ou <STOP> 
ou ainda <ESCAPE>, correndo, as- 
sim, o risco de terminar o programa. 
Por exemplo, nenhum problema pode 
acontecer com esta mensagem: ““Pres- 
sione a barra de espaços para con- 
tinuar”. 

Em alguns tipos de computador, a te- 
cla a ser pressionada pode ser evidencia- 
da por meio do caractere invertido na 
mensagem. 

Outra boa opção (que é também uma 
excelente técnica de programa), não im- 
porta a espécie de mensagem, é desati- 
var qualquer tecla que possa atrapalhar 
ou interromper a execução do progra- 
ma (isso pode ser feito com o emprego 
de rotinas que excluam todas as entra- 
das impossíveis). 

Para recapitular, ou mesmo para 
uma simples resposta “sim” ou “'não”, 


pode-se usar algo como: 


90 LET AS=INKEYS 

92 IF A$="" THEN GOTO 90 
95 IF AS<>"S” AND AS<>"N” 
THEN GOTO 90 


[тт 0 


90 AS=INKEYS 


95 IF AS<>"S” AND AS<>"N” THEN 
90 

10 GET AS 

20 IF AS<>"S” AND AS<>"N” THEN 


GOTO 10 


Por outro lado, rotinas bem mais so- 
fisticadas podem ser usadas para inva- 
lidar a entrada de grupos de valores. 

Outra maneira de tornar as coisas 
mais fáceis para o usuário é restringir a 
quantidade de dados a serem digitados. 
Por exemplo: se for suficiente pressio- 
nar apenas uma tecla, então prepare o 
programa de acordo com essa possibili- 
dade. E, para evitar qualquer confusão, 
utilize sempre o mesmo tipo de mensa- 
gem e resposta ao longo de um progra- 
ma comandado por menus. Assim, se a 
seleção da opção do menu de abertura 
for feita pela teclagem de um número, 
tende a usar o mesmo sistema em todos 
os outros menus. 





Da mesma forma, empregue sempre 
o mesmo código para cada menu ou lis- 
ta de opções. Se a terceira opção for 
“GRAVAR” em um ponto e “SAIR 
DO PROGRAMA” em outro, alguém 
pode não ficar muito satisfeito com o 
seu programa. 

Essa regra deve também ser aplicada 
quando a entrada de dados for necessá- 
ria (particularmente, quando houver 
uma longa seqüéncia). Quando os da- 
dos forem restritos a um pequeno gru- 
po e tiverem um padrão simples, pode- 
se usar uma mensagem múltipla. Um 
exemplo de dados desse tipo é um ar- 
quivo de nomes e endereços, no qual ca- 
da nome é seguido de quatro linhas de 
endereço e um número de telefone. 

Por outro lado, é necessário tomar 
cuidado com coisas mais complexas, co- 
mo um arquivo de cadastro de clientes, 
onde há pouca semelhança entre os da- 
dos, e o número de entradas muda de 
registro para registro. Alguns campos 
podem mesmo ficar vazios. 

Uma maneira de limitar o número de 
erros, neste caso, é fazer uma divisão da 
entrada de dados, por grupos ou indi- 
vidualmente. Assim, pode-se ter apenas 
uma mensagem para nome e endereço 
e outra para cada detalhe específico que 
vier depois. 

Monte as mensagens para que elas 
apareçam, uma de cada vez, ou em di- 
ferentes cores, ou (pelo menos) bem es- 
paçadas umas das outras. Limpar a te- 
la após cada série de entradas é muito 

















mais eficiente em termos estéticos do 
que deixar a tela ir rodando para cima 
(scroll) indefinidamente. 

Em alguns tipos de programa uma 
entrada não usual pode chamar uma 
sub-rotina particular. Assim, em um ar- 
quivo de dados, pode ser requerida uma 
informação adicional para determina- 
dos tipos de entrada. Nesse momento, 
se o usuário, razoavelmente familiariza- 
do com a seqüéncia normal na qual os 
dados são entrados, não notar a nova 
série de entrada de dados, pode come- 
ter diversos tipos de erro. 

Nesses casos, são necessárias algumas 
rotinas de detecção de erros; mas é im- 
portante também deixar claro para o 
usuário que os dados requeridos muda- 
ram. Isso pode ser feito por meio de 
uma mensagem piscando ou um vídeo 
inverso, ou mesmo de algum tipo de avi- 
so sonoro, como um bipe, se o seu com- 
putador puder emitir sons. 


DETECÇÃO D 





ROS 


A maneira mais fácil de evitar que o 
programa incorpore erros é dar ao usuá- 
rio a possibilidade de aceitar ou rejeitar 
os dados já digitados. Isso pode ser fei- 
to com o auxílio de uma mensagem do 
tipo: “OS DADOS ESTÃO CORRE- 
TOS? (S/N)”. Neste caso, se você pres- 
sionar a tecla N provocará o reinício da 
rotina dé entrada de dados. Mas isso só 
será necessário se uma grande quantida- 
de de dados for manipulada. 

Se você pretende incorporar a um 
programa uma rotina de confirmação 
dos dados, junte as entradas em grupos; 
desse modo, o programa ficará mais fá- 
cil de operar, evitando a repetição da 
confirmação a cada entrada. 

No entanto, apesar de rotinas desse 
tipo serem eficazes no combate aos er- 
ros, os programas têm que ser protegi- 
dos contra entradas inadequadas. 

Por exemplo, como evitar que letras 
e números sejam colocados juntos on- 
de somente se requer um desses tipos de 
informação (ou letra ou número)? Deve- 
se sempre antecipar possibilidades de er- 
ro como esta quando se está montando 
uma rotina. 


LIMITES DE TAMANHO 


Na maioria dos programas de contro- 
le de arquivos, o tamanho das entradas 
tem um limite máximo, seja em núme- 
ro de caracteres, seja em valor numéri- 
co. Um programa que imprima etique- 
tas, por exemplo, tem os seus dados res- 
tringidos pelo tamanho de cada etique- 


ta. Afinal, nào tem sentido fazer a digi- 
tacáo de um endereco de 25 ou de trin- 
ta caracteres se a entrada dispuser de es- 
paço para apenas vinte. 

Podemos usar mensagens ou mostrar 
o limite da entrada com indicadores co- 
mo caracteres invertidos ou qualquer 
outro efeito visual que deixe claro qual 
é o limite máximo aceitável. 

Ainda assim, rotinas adicionais de- 
vem ser usadas para invalidar entradas 
que excedam o máximo. Em alguns ca- 
sos, pode-se truncar o dado no tamanho 
certo e deixar para a rotina de confir- 
mação a tarefa de verificar se o dado se- 
rá aceito ou não. Na maioria das vezes, 
porém, é melhor recomeçar a rotina de 
entrada no ponto onde houve erro, colo- 
cando uma mensagem como “ENTRA- 
DA MUITO LONGA! DIGITE NOVA- 
MENTE.” ou qualquer coisa parecida. 

Outra boa razão para se limitar o ta- 
manho das entradas é economizar me- 
mória. Afinal, não há sentido, por 
exemplo, em usar vinte ou mais carac- 
teres para o código de endereçamento 
postal, quando este nunca ocupa mais 
de cinco. Procure diminuir o tamanho 
dos campos tanto quanto possível para 
economizar memória, especialmente no 
caso de programas de arquivo. 


VALORES INCORRETOS 


Estabelecer limites é importante tam- 
bém por outras razões, particularmen- 
te em programas que fazem uso de da- 
dos numéricos. Suponhamos, por exem- 
plo, que o programa pede três números 
(ou os lê da memória), e divide a soma 
dos dois primeiros pelo terceiro. Um pe- 
queno erro de digitação pode colocar 
um 0 no lugar de um 9 ou fazer com que 
o valor 0 apareca como resultado de ou- 
tra operação. Nesse caso, a não ser que 
o programa esteja protegido contra es- 
se tipo de erro, o resultado será uma 
mensagem “DIVISÃO POR ZERO” e 
o término abrupto do programa. 

Num caso como o nosso, a proteção 
exigida é mínima, visto que uma simples 
rotina de verificação de entradas do te- 
clado é suficiente para restringir entra- 
das inoportunas. 

Mas, no caso de cálculos “internos”, 
onde é possível gerar um 0, devemos uti- 
lizar rotinas específicas. Este é um caso 
em que é preciso prever o pior. Assim, 
convém construir uma rotina com o uso 
de operadores relacionais (que serão 
abordados mais adiante, em outra li- 
ção). Podemos usar alguma coisa assim: 




















IF A=0 THEN GOTO 10000 


A linha 10000 será então o início de 
uma rotina que poderá ajustar o valor 
para algo diferente de O (mas aceitável 
pelo programa) ou avisar o usuário de 
que um cálculo impossível está para 
acontecer. Neste último caso, o progra- 
ma será redirecionado para a rotina de 
entrada de dados para que se escolha um 
valor alternativo. 

Uma gama específica de valores po- 
de ser determinada usando-se simples- 
mente algo como o familiar: 


IF N>100 OR N<1 THEN... 


No caso de ser digitado um valor fora 
da faixa, essa instrução devolverá a exe- 
сисао para o início da rotina de entrada. 

Qualquer que seja o seu procedimen- 
to dentro do programa, o usuário deve 
ser avisado sobre qual é a faixa aceitá- 
vel de dados e, se algum erro ocorrer, 
ele deve ser informado com uma men- 
sagem adequada. 


Desta maneira, ele saberá como pro- 
ceder. Isso tudo pode ficar em uma sub- 
rotina acessada só em caso de neces- 
sidade. 


[T а аты 


Se você der ao usuário instruções cla- 
ras de como proceder a cada vez que ele 
for confrontado com uma entrada de 
dados, uma grande parte dos erros será 
evitada. No entanto, quando algum er- 
ro ocorrer, deve-se informar exatamen- 
te a origem do problema para que ele 
não se repita. 

Esse procedimento exige um conjun- 
to de mensagens feitas especialmente pa- 
ra cada situação (não confundir com as 
mensagens de erro do computador). Es- 
tas, por sua vez, podem ser definidas e 
colocadas em uma sub-rotina especial 
que só deve ser chamada quando acon- 
tecer algum problema. 

Essas rotinas são normalmente usa- 
das para indicar valores fora dos limi- 


DETECTE ERROS AUTOMATICAMENTE 
Uma das formas de se evitar erros 
em um programa consiste em equipá- 
lo com dispositivos de detecção. Esses 
dispositivos funcionam no sentido de 
desviar o fluxo do programa, enviando-o 
a rotinas que corrigem a falha ou pre- 
vinem o usuário de sua ocorrência. 
Para isso, são necessárias instru- 
ções especiais. Os micros das linhas 
TRS-80, TRS-Color, Apple, TK-2000 e 
MSX, por exemplo, dispõem do pode- 
roso comando de desvio ON ERROR 
GOSUB... Este deve ser colocado em 
um ponto do programa anterior ao blo- 
co em que se deseja detectar erros de 
execução. Normalmente, ele é digitado 
no começo do programa. Sua função 
consiste em preparar o computador pa- 
ra “saltar” para a linha indicada após 
o GOSUB, sempre que ocorrer um er- 
ro. O programador deve então escrever 
uma rotina (começando na linha indica- 
da) que identifique o erro e adote as 
medidas pertinentes. Para isso, existem 
as seguintes instruções suplementares: 


- Função ERR: retorna o número de có- 
digo do erro cometido. 

- Função ERL: retorna o número da li- 
nha onde ocorreu a falha. 

- Instrução RESUME: retorna a rotina 
de tratamento do erro para um ponto 
imediatamente após ao da ocorrência 
desse erro. 





Os micros citados acima contam 
também com o comando ERROR n, que 
provoca uma indicação de erro num 
ponto do programa (n é o número do 
código). Esse comando testa a instru- 
ção ON ERROR GOSUB e a rotina de 
tratamento de erros. 





tes, duplicação de nomes de um campo- 
chave de um arquivo de dados, ou ain- 
da entradas incorretas, seja pelo tama- 
nho excessivo, seja pelo uso incorreto de 
caracteres. Assim, é possível criar men- 
sagens para quaisquer tipos de erros em 
um programa. 

Uma matriz e uma variável indicado- 
ra são suficientes para definir um certo 
número de mensagens e fazer com que 
o computador escolha a que é adequa- 
da para a situação, após identificar o er- 
ro ocorrido. 

A matriz para tais mensagens deve ser 
dimensionada logo no início do progra- 
ma, como parte dos procedimentos de, 


























inicialização. Ela deve ser ajustada de 
tempos em tempos de modo a incluir no- 
vas mensagens prevenindo erros que 
possam vir a ocorrer. Desta maneira, se 
você resolver usar um conjunto de no- 
ve mensagens de erro, este poderia ser 
um exemplo: 


10 DIM e$(9,20): FOR 2-1 ТО 9 
: READ e$(z): NEXT z 

20 DATA "Dado muito longo!"," 
Erro de digitacao!" 

22 DATA "Senha errada!","Nao 
confere!" 

24 DATA "Introduza novamente! 
","Nao toque!" 

26 DATA "Pressione (s)im ou ( 
n)ao!","Somente numeros!","So 
mente letras!" 


инин usc 


10 DIM EM$(9):FOR Z=1 TO 9:READ 
EM$ (Z) :NEXT Z 

20 DATA "DADO MUITO LONGO!","ER 
RO DE DIGITACAO!" 

22 DATA "SENHA ERRADA!", 
NFERE!" 

24 DATA " REINTRODUZA OS DADOS! 
","NAO TOQUE!" 

26 DATA "PRESSIONE (S)IM OU (N) 
AO!","SOMENTE NUMEROS!","SOMENT 
E LETRAS!" 


"NAO CO 


Obviamente, vocé escolherá mensa- 
gens adequadas às condições do seu pro- 
grama. Assim, máis á frente no progra- 
ma, a cada entrada de dados, pode ser 
feita a seguinte verificação: 








1000 LET a$- LET em-0: INPUT 
as 

1010 IF LEN a$>25 THEN LET em= 
1 

1010 IF aS<>"credito” THEN LET 
em-3 

1010 IF a$-"5" OR a$-"9" THEN 
LET em-4 

1010 TF aS="” THEN LET em=5 
1010 IF a$-" " THEN LET em-6 
1010 1F aS<>"s” AND a$<>"n” THE 
N LET em=7 

1010 IF aS<"0” OR aS>"9" THFN 
LET em-B 

1010 IF a$c"a" OR a$»"z" THEN 
LET em=9 

1010 FOR z=l TO LEN aS: IF aS(z 
)="0" THEN LET em=2 

1015 NEXT 2 





М5) 


1000 EM=0:INPUT AS 

1010 1F LEN(AS)>25 THEN EM=1 
1010 IF AS<>"CREDITO” THEN EM=3 
1010 IF A$-"5" OR AS-"9" THEN E 
M=4 
1010 IF 
1010 IF 
1010 IF 
М ЕМ=7 
1010 IF 
M=8 
1010 IF 
M=9 
1010 FOR Z=1 TO LEN(AS):IF MIDS 
(AS,Z,1)="0" THEN EM=2 

1015 NEXT Z 


AS="" THEN EM=5 
AS=" " THEN EM=6 
AS<>"S” AND AS<>"N" THE 


AS<"0” OR AS>"9” THEN E 


AS<"A” OR AS>"Z” THEN E 








Observe que a linha 1010 é opcional, 
ou seja, você pode escolhê-la ou não, de- 
pendendo da situação. Apenas a última 
opção utiliza uma linha adicional, a 
1015. Atenção para a quinta opção, que 
funciona apenas no TRS-Color e no 
Spectrum. 

Quando a checagem de entrada reve- 
la um erro, a variável ME assume um 
valor particular, relacionado com a 
mensagem previamente definida que 
corresponde ao*erro. 

A primeira opção testa se ocorreu 
uma entrada maior do que 25 caracte- 
res; a segunda insiste na senha correta. 
A terceira é típica de uma reconfirma- 
ção de informação. A quarta pede que 
um dado seja redigitado após uma en- 
trada vazia. A opção seguinte responde 
de modo inesperado quando a barra de 
espaços é pressionada. A sexta é uma va- 
riação da checagem que geralmente é 
feita após uma resposta sim/nào. As 
duas seguintes verificam se apenas nú- 
meros ou letras foram digitados e a úl- 
tima testa a presença de um O (letra) no 
lugar de um O (número). 

O programa prossegue, através de 
uma sub-rotina que mostra a mensagem 
adequada ao erro: 


2000 IF EM>0 THEN 
estem) 


ЫГА) 


2000 IF EM>O THEN PRINT EMS (EM) 


PRINT TAB 6; 




















Nos filmes de ficção científica, vemos 
com fregiência computadores capazes 
de falar. Você deve se lembrar, entre vá- 
rios outros, do HAL 9000, o tenebroso 
e megalomaníaco computador do filme 
**2001 — Uma Odisséia no Espaço”, e 
os robôs falantes da série “Guerra nas 
Estrelas’. Só muito recentemente, po- 
rém, os computadores reais e, particu- 
larmente, os microcomputadores pes- 
soais receberam periféricos que lhes 
conferem o dom da voz. No exterior, já 
existem sintetizadores de voz para qua- 
se todos os tipos de microcomputado- 
res— e a preços bastante baixos, gra- 
ças à nova geração de chips de circuito 
integrado, fabricados especialmente pa- 
ra a síntese da voz. Alguns desses sinte- 
tizadores podem ser encontrados tam- 
bém no Brasil. 


PARA QUE SERVEM? 


Por que dar ao micro a capacidade 
de falar? Bem, antes de mais nada, nào 
há düvida de que isso seria tremenda- 
mente divertido. Basta pensar na infi- 
nidade de coisas que vocé faria com um 
computador falante: ele poderia contar 
piadinhas, recitar poemas ou, então, 
efetuar tarefas mais práticas, como ler 
em voz alta instruções complexas para 
um jogo, dispensando-o de abrir o ma- 
nual a toda hora. 

A utilização dos sintetizadores de 
voz em jogos é, também, muito interes- 
sante. Você já deve ter visto alguns vi- 
deogames e flipers que tagarelam alegre- 
mente com o jogador. O sintetizador 
permite que você aumente a velocida- 
de de interação com o jogo e que eco- 
nomize espaço na tela, se as mensagens 
ou instruções dirigidas ao jogador fo- 
rem faladas, e não exibidas. Além dis- 
so, como você não precisará ler fre- 
quentes mensagens na tela, poderá con- 
centrar sua atenção nos joysticks e nos 
gráficos. 

É claro que os sintetizadores de voz 
também têm aplicações mais “sérias”, 
tais como auxiliar uma pessoa cega a uti- 
lizar o computador. Um programa es- 
pecial pode fazer com que o sintetiza- 
dor pronuncie, letra por letra, ou pala- 
vra por palavra, tudo o que é digitado 


COMPUTADORES 
QUE FALAM 


no computador, ou que leia em voz al- 
ta listagens de programas ou dados, à 
medida que aparecem na tela. 

Chips de síntese de voz estão come- 
cando a ser usados também em automó- 
veis, para lembrar ao motorista que ele 
esqueceu de colocar o cinto de seguran- 
ça, avisar-lhe que a pressão do óleo es- 
tá baixa, e assim por diante. E, sem dú- 
vida, podemos prever que seu uso se ex- 
pandirá grandemente no ramo dos ele- 
trodomésticos. Já temos uma amostra 
disso nos fornos de microondas que avi- 
sam quando o prato está pronto, ou em 
secretárias eletrônicas que atendem edu- 
cadamente aos telefonemas na ausência 
do morador. 

Os sintetizadores de voz também são 
muito úteis no ensino, tornando diver- 
tido aprender a soletrar palavras em 
qualquer idioma, ou a reconhecer letras 
e números. 

Seu micro pessoal é capaz de tudo is- 
so, desde que você conecte a ele o tipo 
apropriado de sintetizador de voz. 


OS TIPOS PRINCIPAIS 


Tecnicamente, existem dois métodos 
principais para se obter a síntese da voz 
humana. Eles são bem diferentes en- 
tre si, e ambos apresentam vantagens e 
desvantagens. 

O primeiro método utiliza amostras 
de fala humana: um locutor enuncia le- 
tras, números, palavras ou frases intei- 
ras, que sáo convertidas para números 
digitais e armazenadas permanentemen- 
te em um chip de memória. O segundo 
método armazena apenas sons elemen- 
tares (fonemas, sílabas), que um gera- 
dor de sons do computador produz, uti- 
lizando-os depois para compor palavras 
e frases mais complexas. 

O tipo de sintetizador que armazena 
amostras de fala humana alcança, na- 
turalmente, uma qualidade de reprodu- 
ção muito mais fiel. Em compensação, 
ocupa muito espaço na memória e seu 
vocabulário é mais restrito. 

O chip sintetizador de voz desenvol- 
vido pela Texas Instruments (já dispo- 
nível no Brasil, com um vocabulário em 
português) é um bom exemplo deste pri- 
meiro tipo. As ondas sonoras (o sinal de 









Já existem sintetizadores de voz para 

a maioria dos microcomputadores 
domésticos. Veja aqui a descrição dos 
tipos mais importantes e os efeitos 

que você pode obter com cada um deles. 


voz) são inicialmente convertidas para 
números digitais por um conversor ana- 
lógico-digital (ADC), de maneira que 
possam ser armazenadas em um chip de 
memória ROM. Posteriormente, quan- 
do a palavra ou frase é gerada, o sinal 

tal armazenado é convertido de volta 
para o sinal analógico original. Na ver- 
dade, não se armazena o sinal de voz 
original de forma integral, o que exigi- 
ria uma quantidade enorme de memó- 
ria, mas apenas informações sobre o si- 
nal. Consegue-se, assim, uma grande - 
compactação do sinal original. Se 
la fosse integralmente digitada, 
ríamos de cerca de 500 kbytes 
nutos de fala — muito mais rt 
que a maioria dos micros 
dispóe. Felizmente, a técni 
pressão obtém uma redução 
modo que os dois minutos cab 
simples chip de ROM. 

O segundo tipo de sin! 

é o mais comum. Em vez de 
nar palavras completas, ele gera 
os fonemas básicos do idio 





nemas também sáo 
nos, o sintetizador tornou-se 
como sintetizador alofónico. 

Existem cerca de si 1 
deste tipo na maioria das. 
tais. Com eles, pode-se const 
quer palavra ou frase em 
nada língua. É claro que os fc 
língua portuguesa são be: 
dos da língua inglesa. Assim, em prin- 
cípio, é possível sintetizar fala em por- 
tuguês a partir de um sintetizador fabri- 
cado nos Estados Unidos, só que o com- 
putador terá um acentuado “'sotaque” 
norte-americano. 

Neste método, não se armazena a fa- 
la verdadeira, mas apenas a informação 
digital que é empregada para ativar O ge- 
rador de sons interno, o qual produzirá 
uma aproximação digital do fonema de- 
sejado. Cada fonema tem um código, 
ou endereço inicial de armazenamento, 
que está disponível em uma tabela de 
consulta dentro do chip. 

Um programa escrito para o sinteti- 
zador deve preocupar-se apenas em cha- 
mar o código correto, quando ele é ne- 
cessário. Assim, economiza-se muita 
memória, pois para cada segundo de fa- 


la são necessários somente 12 bytes de 
informação digital. 

Você já deve ter visto alguns dicio- 
nários que utilizam esquemas fonéticos 
escritos, para indicar a pronúncia das 
palavras. A representação de cada som 
muitas vezes corresponde а própria le- 
tra ou sílaba, como ““te”, “cha”? etc.; 
mas, em alguns casos, assume formas 
bem mais complexas, como “ng”, “cz” 
etc. O número de sons e a forma exata 
como são indicados dependem, natural- 
mente, do idioma ou, ainda, do sotaque 
regional. 





VOCABULÁRIO 


Os sintetizadores alofônicos têm a 
vantagem de dispor de um vocabulário 
praticamente ilimitado, pois qualquer 
palavra, em princípio, pode ser construí- 
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POR QUE USAR UM 


"O QUESÃO OS FONEMAS 
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TE “SINTETIZADOR DE VOZ 

ш SINTETIZADOR COM 
ARMAZENAMENTO DE VOZ 

n O TIPO ALOFÔNICO 


da a partir dos fonemas. Mas esses sin- 
tetizadores apresentam uma desvanta- 
gem: a qualidade da voz, que é baixa, 
parecendo mais a voz típica de robôs — 
monótona, sem as modulações de inten- 
sidade e frequência que tornam a fala 
melodiosa e carregada de diversos tipos 
de significado (fim de uma frase, excla- 
mação, ironia, ênfase etc.) 

A maioria dos sintetizadores que ar- 
mazenam a fala, por sua vez, dispõe de 
um vocabulário bastante limitado (algo 
em torno de cem palavras ou frases cur- 
tas), mais a pronúncia das letras do al- 
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fabeto, dos números e alguns sufixos e 
prefixos, como “'ésimos””. Além disso, 
ao contrário dos sintetizadores alofôni- 
cos, eles não podem ser programados, 
o que diminui muito sua flexibilidade, 
ainda que se possa comprar chips adi- 
cionais com novos conjuntos de pala- 
„ Mas eles apresentam uma vanta- 
gem: como a fala sintetizada é muito 
mais autêntica, são mais úteis quando 
mensagens curtas — mas que precisam 
ser muito claras — devem ser pronuncia- 
das (por exemplo, instruções como “pres- 
sione qualquer tecla para começar”), 





PA 


а 









Quase todos os sintetizadores de voz 
são vendidos na forma de cartuchos (se- 
melhantes à expansão de memória dos 
micros da linha Sinclair; são conectados 
à interface de expansão na parte de trás 
do console) ou na forma de placas de 
circuito impresso, que devem ser encai- 
xadas em um dos soquetes internos do 
computador (é o caso dos micros da li- 
nha Apple). Os sintetizadores que ocu- 
pam o único soquete de expansão da 
máquina geralmente fornecem um so- 
quete de expansão próprio, ao qual se 
pode ligar um joystick, uma impresso- 
ra etc. 

Outro tipo bastante comum de sinte- 
tizador é o que utiliza uma porta serial 
padrão, do tipo RS-232C, para se comu- 
nicar com o computador. Assim, podem 
ser usados com muitos tipos diferentes 
de microcomputadores. 

Todos esses sintetizadores estarão 
prontos para operar tão logo sejam li- 
gados ao soquete correto. A saída do 
som pode ser feita através de uma co- 
nexão para um sistema de alta- 
fidelidade (amplificador e alto-falantes), 
ou então para a TV. Em ambos os ca- 
sos, controla-se o volume e a altura do 
som gerado, o que possibilita torná-lo 
menos áspero ou “robótico”. Outros ti- 
pos de sintetizador tém seu próprio sis- 
tema de amplificação e de alto-falante, 
ou utilizam o alto-falante interno do mi- 
crocomputador. Nesse caso, geralmen- 
te é impossível controlar o volume 
sonoro. 


SÍNTESE POR SOFTWARE 


Os microcomputadores que possuem 
geradores sonoros sofisticados oferecem 
uma alternativa bastante razoável para 
se obter síntese de voz sem necessidade 
de hardware especial. Uma máquina 
bem popular na Europa e nos Estados 
Unidos, o Commodore 64, tem um po- 
deroso gerador de efeitos sonoros e mu- 
sicais, que pode ser programado para 
sintetizar voz por aproximação digital, 
O sintetizador possibilita o controle de 
diversos canais de som, simultaneamen- 
te, bem como a manipulação de vários 
parâmetros de modulação de fregiiên- 
cia, envelope e intensidade. 

No Brasil, os micros da linha TRS- 
Color e MSX podem ser usados desta 
maneira, ou seja, simplesmente adqui- 
rindo-se um software específico para 
síntese de voz. Evidentemente, o tipo 
utilizado, nesse caso, é o de síntese alo- 
fônica, ou por fonemas. 





A forma mais direta de operação da 
maioria dos sintetizadores consiste, sim- 
plesmente, em pronunciar letras e núme- 
ros, cada vez que a tecla corresponden- 
te é pressionada no computador. Alguns 
modelos existentes para o Sinclair e o 
Spectrum também são capazes de pro- 
nunciar por extenso instruções, coman- 
dos e funções do BASIC, associados a 
cada tecla. 

Entretanto, para fazer com que o sin- 
tetizador emita palavras ou frases com- 
pletas, é necessário dispor de um softwa- 
re especial — geralmente em linguagem 
de máquina — que deve ser carregado 
na máquina antes da utilização do sin- 
tetizador. Este software habilita o inter- 
pretador BASIC, por meio de uma se- 
qüéncia de comandos PRINT, a trans- 
mitir ao sintetizador a mensagem ou 
mensagens a serem pronunciadas. 

Um sintetizador de voz para os mi- 
cros da linha Apple, por exemplo, po- 
de ser programado por meio de instru- 
ções PRINT comuns, dentro de um pro- 
grama BASIC. Para isso, bastam alguns 
comandos POKE especiais, que habili- 
tam a interface do sintetizador. 

Existem trés sistemas diferentes pa- 
ra especificar a seqüéncia de fonemas ou 
de vocábulos que devem ser pronuncia- 
dos pelo sintetizador. O mais simples de- 
les utiliza códigos numéricos para iden- 
tificar os fonemas ou os vocábulos. Es- 
tes códigos dependem do chip sintetiza- 
dor que está sendo empregado; a forma 
de usá-los dentro de um programa tam- 
bém varia amplamente. Por exemplo, os 
códigos para **hello"' (aló) sào 27, 7, 45 
e 53. Os números pqdem ser entrados 
como uma linha DATA: 


DATA 27,7,45,53 
-.. OU como uma cadeia alfanumérica: 
LET A$-"27074553" 


O manual que acompanha o sinteti- 
zador explica detalhadamente, com mui- 
tos exemplos, como utilizar os códigos. 

A desvantagem desse sistema é que 
ele é pouco “natural”, tornando muito 
trabalhosa a tarefa de especificar até 
mesmo seqüéncias curtas de fonemas ou 
de palavras. Por isso, desenvolveu-se 
um segundo tipo de software, mais fá- 
cil de usar, que se baseia em algo seme- 
Ihante aos esquemas fonéticos de pro- 
nüncia encontrados nos dicionários. Por 
este método, as palavras que compõem 
a frase são escritas com notações espe- 
ciais para cada fonema. Veja como vo- 
cê poderia dizer “hello” em dois tipos 
diferentes de sintetizador: 


COM0 CONECTAR 0 SINTETIZADOR COMO PROGRAMAR O SINTETIZADOR = 


10 ГЕТ в$ = "ће (11)(00)” : 
PAUSE 1 


10 AS="HH1,EH,LL,0W,4" 
20 РВІМТФА, АҘ 


O manual do sintetizador traz uma 
lista de todos os fonemas, indicando co- 
mo especificá-los. Como você vê, é bem 
mais fácil do que usar códigos numéri- 
cos mas, em compensação, é preciso co- 
nhecer detalhadamente a forma de es- 
pecificação dos fonemas. 

O terceiro sistema é bem mais sofis- 
ticado, fazendo a chamada “síntese por 
transformação direta texto-fala”. Por 
enquanto, programas desse tipo existem 
somente para alguns idiomas, entre os 
quais o italiano, o alemão, o japonês, 
o francês e o inglês. Com eles, basta for- 
necer um texto escrito de forma correta 
ao sintetizador, e este produzirá auto- 
maticamente a sequência de fonemas 
que gerará a voz: 


[é] 


10 САМ. -435 
20 PRINT "HELLO” 


As regras de conversão texto-fala não 
são, naturalmente, infalíveis, e a exis- 
tência de um grande número de exce- 
ções, notadamente no inglês, pode pro- 
duzir os mais absurdos resultados. 

Para usar em português um sistema 
como este, é necessário grafar as frases 
como um norte-americano as pronun- 
ciaria. Por exemplo, como será pronun- 
ciado o texto abaixo? 


20 PRINT "EHDEEHTOHURAH NOHVAH 
KOOLTOORAHL" 


Alguns sistemas de síntese de voz per- 
mitem a programação de entonação e 
ênfase, de modo que a fala saia menos 
monótona e mais interessante, com pau- 
sas e modulações capazes de dar diferen- 
tes conotações às palavras — o que é 
muito importante na linguagem falada. 
Com isso, pode-se indicar ao computa- 
dor qual a sílaba tônica de uma palavra, 
se a frase é interrogativa ou exclamati- 
va etc. 

Como se vê, os sintetizadores, além 
de nos proporcionar momentos de diver- 
são, poderão nos ensinar muita coisa so- 
bre nossa própria linguagem, se forem 
do tipo alofônico. 
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DÁ AS CARTAS 











Wi ADISTRIBUICAO DAS CARTAS 

COMO APOSTAR 
PECA MAIS CARTAS 
n TOTAL DE PONTOS 
п TENTE QUEBRAR A BANCA 














Num luxuoso cassino, o homem da banca 
lança um olhar frio e indiferente. 

Você faz sua aposta e recebe uma 
nova carta. Há um momento de suspense. 
Será que você atingiu os 21 pontos? 


SS “Além: dar 1ój na gráfica antestaqa 
t, precisamos de duas 
Vinte-e/um: uma que 


— Q 


" - e — 
“m TEA EPI 


se comunique com o jogador e outra que 
permita ao computador fazer o papel da 
banca. A parte que você digitará agora 
cuida do jogador. Ela faz três coisas: dá 
as cartas, permite ao jogador fazer apos- 
tas e pedir mais cartas, e mostra o total 
de pontos — soma dos valores das car- 
tas — e de fichas, 

A banca solicita ao jogador que apos- 
te, depois de ter dado duas cartas: uma 
para ele e outra para si mesma, Após re- 
«ceber a segunda carta, o jogador pode 


aa outra, “comprar” mais uma ou 


= 


q 
























tar as tarefas correspondentes às opções 
do jogador, distribuindo novas cartas 
e/ou dobrando a aposta, ou passando 
a vez de jogar para a banca. Depois de 
dar uma carta, o programa verifica se 
o total de pontos ultrapassou 21, ou se- 
ja, se o jogador “estourou”, 

Além disso, o programa prevê duas 
outras situações: “natural” (quando o 
jogador faz 21 pontos com apenas duas 
cartas) e “'máo de cinco” (quando cin- 
co cartas reunidas náo chegam a somar 
22 pontos). Se qualquer delas ocorrer, 
o jogador será informado e a vez pas- 
sará para a banca. 






Adicione estas novas linhas ao pro- 
grama do artigo anterior. Note que a li- 
nha 530 foi apenas aumentada, 


90 DIM S(2): LET BET=B ` 

100 DIM.O(2 DIM W(2) 

1: LET TF*B 
LET FF*B 





450 





595 GOSUB 7000: 
NEXT U 

622 IF S(2)=21 THEN LET PF=C: 
PRINT PAPER 2;AT 4,18;" NATUR 
AL ": GOTO 2500 

700 IF (S(C)<16 AND (S42)<16 

OR S(2)>21) OR TF=C OR CP<AM) 
THEN GOTO 705 


GOSUB 7000: 


702 INPUT "COMPRA,PEDE OR SATI 
SFEITO? "; LINE D$: IF D$<>"C" 
AND DS<>"P” AND DS<>"S” THEN 
GOTO 702 


703 GOTO 715 
705 IF (S(C)>21 OR CP<AM OR TF 


=C) THEN GOTO 710 
706 INPUT "COMPRA OU PEDE? "; 
LINE DS: IF D$<>"C” AND D$<>"P 


” THEN СОТО 706 

708 GOTO 720 

710 IF (S(C)<16 AND (S(2)<16 
OR S(2)>21)) THEN GOTO 770 
711 INPUT "PEDE OU SATISFEITO? 
"; LINE DS: TF DS<>"P” AND DS 
«»"S" THEN GOTO 711 

715 IF D$-"S" THEN GOTO 2500 
720 IF LEN D$-B THEN GOTO 700 
725 IF DS(C)<>"C" THEN LET TF 
=C: GOTO 905 

760 LET BET=BET+AM: 
AM 

770 PRINT PAPER 7;AT 21,B;"VO 
СЕ TEM ";CP;" FICHAS" 

905 LET Z-C(CC) 
910 GOSUB 5500: 
GOSUB 7000 

920 LET X-X*6 
921 IF S(C)>21 THEN GOTO 2000 
925 IF X=31 AND S(C)<22 THEN 
PRINT PAPER 2;AT 21,B;" MAO D 
E CINCO! ": LET FF=C: GOTO 
2500 

930 GOTO 700 

2000 IF CP=B THEN PRINT AT 21, 

B;"VOCE PERDEU TODAS AS FICHAS! 

": STOP 

2010 IF CP>=1000 THEN PRINT AT 
21,B;"PARABENS! VOCE QUEBROU A 
ВАМСА!": STOP 

2020 PRINT 4C;”PRESSTONE 

ВА OUTRA MAO” 

2030 IF INKEYS<>"S” 

2030 

2037 IF PF=C OR DPF=C THEN GOS 

UB 5000 

2040 CLS 

2500 STOP 

6000 IF VA>10 THEN LET VA=10 

6010 LET S(C)=S(C)+VA: LET S(2) 

=S (2) +VA 

6020 IF VA=C AND AF=B THEN 
8(2)-8(2)%10: LET AF-C 

6030 IF S(C)>21 THEN PRINT FL 

ASH C; PAPER 7;AT 20,B;" ";TAB 

9;"VOCE QUEBROU! ";TAB 31;" ": 

LET DPF-B: RETURN 

6040 PRINT AT 20,B;" ";TAB 31;" 


LET CP=CP- 


GOSUB 6000: 





'S' PÀ 


THEN GOTO 


: GOTO 90 


LET 


6050 PRINT PAPER 7; INK B;AT 2 
0,B;"SEU SCORE E' ";S(C);: IF 8 
(2)<>S(C) AND S(2)<22 THEN PRI 
NT PAPER 7; INK B;” OU ”;S(2) 
6060 RETURN 

6500 FOR N=10 TO 18 
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6510 PRINT PAPER 7; INK l;AT N 

,XiCHR$ 161;CHR$ 161;CHR$ 161;C 

HR$ 161;CHR$ 161 

6520 NEXT N 

6530 RETURN 

7000 LET CC-CC*C: 
LET CC-C 

7010 RETURN 


IF CC=53 THEN 


As linhas 90 e 100 estabelecem a va- 
riável BET e três matrizes: S, que con- 
tém os dois totais do jogador (um ás vale 
1 ou 11); O, que contém as duas primei- 
ras cartas da banca; e W, que contém 
os dois totais correspondentes à soma 
dessas duas cartas. 

A linha 500 estabelece as coordena- 
das do canto superior esquerdo da car- 
ta, e coloca o valor 0 em quatro variá- 
veis indicadoras. TF indica se o jogador 
já pediu cartas. Quando isto acontece 
pela primeira vez, seu valor passa a ser 
1 (segundo as regras, após “pedir” uma 
carta, o jogador não poderá mais “'com- 
prar” outras). AF é um sinalizador de 
ases usado para calcular os dois totais, 
já que um ás vale 1 ou 11. PF é um si- 
nalizador de “naturais”, e FF é um si- 
nalizador de “mãos de cinco” (as regras 
do jogo serão apresentadas no próximo 
artigo). 

O laço FOR...NEXT entre as linhas 
520 e 595 cuida da distribuição das duas 
primeiras cartas do jogador e da banca. 
A linha 530 chama duas sub-rotinas: 
da linha 6000 atualiza o total à medida 
que as cartas são dadas, e a da linha 
6500 desenha a parte de trás das cartas 
da banca. 

Analisemos essas sub-rotinas mais 
detalhadamente. A linha 6000 verifica 
se a carta em questão é uma carta de fi- 
gura. Se for, seu valor será 10. A linha 


2 E 





6010 soma o valor da carta aos dois to- 
tais da matriz S. A 6020 verifica se a car- 
ta é um ás. A 6030 averigua e informa 
se o jogador “estourou”. 

Depois que o programa retorna ao 
seu curso principal, a linha 535 verifica 
se a carta atual é de número 52; se isso 
acontecer, o número da carta será mu- 
dado para O (nosso baralho tem 52 car- 
tas, numeradas de 1 a 52). A linha 540 
coloca as cartas da banca na matriz 0. 
A 550 adiciona seis posições à coorde- 
nada X da carta seguinte. 

O número de fichas que o jogador 
ainda tem é mostrado pela linha 560. A 
linha 570 pede para que seja feita a 
aposta e verifica se há fichas suficien- 
tes. O valor da aposta é colocado na va- 
riável BET e subtraído do total de fichas 
pela linha 590. As variáveis AM e BET 
são necessárias para o caso de o joga- 
dor vir a “comprar” cartas. 

Os dois GOSUB 7000 da linha 595 se- 
lecionam a carta atual (CC), asseguran- 
do seu retorno ao início do monte de 
cartas para que este náo acabe. O lago 
FOR...NEXT termina aqui. 

A linha 622 verifica se as duas primei- 
ras cartas do jogador fazem um ““natu- 
ral”, ou seja, um total de 21 pontos. O 
sinalizador de “naturais””, PF, se torna 
leo programa pára (a linha 2500 será 
apresentada no próximo artigo). 

As linhas 700, 705 e 710 testam as di- 
versas combinações de totais de pontos, 
o indicador TW e o número restante de 
fichas. Sua função é selecionar as op- 
ções para o jogador. Por exemplo, su- 
ponhamos que o total de pontos do jo- 
gador seja maior que dezesseis e menor 
que 21. Se ele ainda não tiver pedido ne- 
nhuma carta e o número de fichas for 














suficiente, a linha 720 colocará à sua dis- 
posição as opções de “parar”, “pedir” 
ou “comprar” cartas. Se, ao contrário, 
ele já tiver “pedido” alguma carta, não 
poderá mais “comprar” e apenas as op- 
ções de “parar” ou “pedir”” mais car- 
tas lhe serão dadas pela linha 711. A ou- 
tra combinação de opções — “'com- 
prar" ou *'pedir" mais cartas apenas 
quando nenhum dos totais em S ultra- 
passar dezesseis — é oferecida pela li- 
nha 706. Se o jogador resolver parar a 
essa altura, essa versão inacabada do 
programa terminará. 

Caso apenas <ENTER> tenha sido 
pressionado, sem a letra corresponden- 
te à opção, a linha 720 repetirá as op- 
ções. A linha 725 acionará o indicador 
TW caso o jogador não tenha “compra- 
do” cartas. Se tiver, o programa irá pa- 
ra a linha 905. 

Se o jogador preferir comprar uma 
carta, a linha 760 modificará o valor da 
aposta (BET) e do restante das fichas 
(CP). A linha 770 mostra quantas fichas 
sobraram. As linhas de 905 a 920 mos- 
tram as cartas restantes, que foram 
“сотргайаѕ’’ ou “pedidas”, A linha 
921 atualiza os pontos do jogador. Ca- 
so ele tenha “estourado”, o programa 
irá para a linha 2000, onde será feita 
uma série de verificações. 

A linha 925 verifica se o jogador tem 
uma “'mão de cinco”, examinando a po- 
sição da última carta dada ao jogador: 
se esta corresponder à quinta carta, e o 
total for inferior a 22, isso significa que 
o jogador tem uma “'mão de cinco”. O 
indicador FF será então acionado e o 
programa irá para a linha 2500. Se o jo- 
gador ainda não tiver parado de “'pe- 
dir” cartas nem conseguido uma ''mão 
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de cinco”, a linha 930 fará o programa 
voltar à linha 700. 


QUEBRANDO A BANCA 


Se o jogador perder todas as fichas, 
será informado pela linha 2000 e o jogo 
acabará. Se ganhar mais de 1000 fichas, 
ele **quebrará a banca", sendo informa- 
do pela linha 2010. Se isso acontecer, o 
jogo terminará. 

Se o jogador tiver menos de 1000 fi- 
chas, a linha 2020 perguntará se ele de- 
seja outra “mão”. PRINT 1 é usado pa- 
ra colocar a mensagem na primeira li- 
nha da parte inferior do vídeo. 

Quando um dos jogadores obtiver 
um “natural”, as cartas serão embara- 
lhadas novamente pela linha 2037, que 
chamará a sub-rotina adequada. Se ele 
quiser jogar outra vez a linha 2040 lim- 
pará a tela, reiniciando o jogo. 


Apague as linhas 190 e 200 do pro- 
grama anterior e adicione as próximas 
linhas. 

84 R=RND(-TIME) :MN=100 
86 CX=31:CY=1:PL=0:DL=0:NC=2:DA 
=0:PA=0:P5=0:TW=0:PF=0:NA=N:BT= 





0 

210 GOSUB 3000 

220 DI=N:GOSUB 1000:FOR 1=107 Т 
2 180 STEP 3:LINE (30,1)-(74,1+ 
2),6-8*(I/2-INT(I/2)) , BF:NEXT 
240 GOSUB 5000:GOSUB 6500 

250 GOSUB 8000:GOSUB 5000:GOSUB 
7000 

260 GOSUB 5000:PRESET (8,80) : PRI 
NT41,"Use as setas para apostar 
.":PRESET (8,92) : PRINT41,"Depois 
aperte <RETURN>" :CLOSE1 




























































































265 AS=INKEYS:1F AS<>CHRS (28) A 

ND AS<>CHRS (29) AND AS<>CHRS (31 
) AND AS<>CHRS(30) AND AS<>CHRS 
(13) THEN 265 

266 IF ASC(AS)=30 THEN BT=BT+10 
:GOSUB 5000:GOSUB 8000:GOTO 265 
267 IF ASC(AS)-31 THEN BT-BT410 
*(BT29):GOSUB 5000:GOSUB 8000:G 

ото 265 

268 IF ASC(AS)=28 THEN BT=BT+1: 

GOSUB 5000:GOSUB 8000:GOTO 265 
269 IF ASC(AS)=29 THEN BT=BT+1* 
(BT>0) :GOSUB 5000:GOSUB 8000:G0 
то 26% 

270 GOSUB 5800:BT-INT(BT):IF BT 
<1 OR BT>MN THEN 240 

280 OB=BT:MN=MN-BT 

290 CX=63:GOSUB 3000 

300 D2-N:GOSUB 1000:LINE (61,10 
6)-(105,185),12,BF:FOR I-107 TO 
180 STEP 3:LINE (62,1)-(105,1+ 
2) ,6-8* (1/2*INT (1/2)) , BF : NEXT 
320 IF PL=11 AND PA=1 AND NC=2 

THEN 650 

330 CX=CX+32 

340 PT=PL+1O* (PA AND(PL<12)) 
350 IF PL>21 THEN 680 

360 IF NC=5 THEN GOSUB 5000:G08 
UB 6000:PRINT&1, "VOCE TEM UMA 

MAO DE CINCO":P5=1:GOSUB 5500:G 
ото 500 

370 GOSUB 5000:GOSUB 6000 

380 GOSUB 8000 

390 GOSUB 5000:GOSUB 7000 

400 IF TU-0 THEN GOSUB5000:PRES 
ET (8,80) :PRINT41,"(C)ompra ou": 
CLOSEl 

410 GOSUB 5000:PRESET (8-12*8*( 
TW-0) ,80) :PRINT41,"(P)ede mais 
ou acha” :PRESET (8,92) : PRINT,” 
(S)uficiente ?” 

430 AS=INKEYS:1F AS<>"P" AND (A 
$<>"S" OR PT<I6) AND (ASC»"C" O 
R TW=1) THEN 430 





440 IF AS="S" THEN GOSUB 5800:G 
ото 490 

450 IF A$-"P" THEN TW-1:GOSUB 5 
800:GOTO 480 

460 IF MN<OB THEN GOSUB 5800:GO 
SUB 5000:PRESET (8,80) : PRINT$1," 


Vocé nào tem":PRESET(8,92) : PRIN 
Tél,"tanto dinheiro assim":GOSU 
B 5500:GOTO 400 

470 BT=BT+0B:MN=MN-0B:GOSUB 700 
0:GOSUB 5000:GOSUB 8000:GOSUB 5 
000:GOSUB 5800 

480 NC-NC*1:GOSUB 3000:GOTO 320 
490 IF PT<16 THEN GOSUB 5000:PR 
ESET (8,80) :PRINT#1, "Você não po 
de parar tendo apenas ";PT:GOSU 
B 5500:CX=CX-32:GOTO 370 

500 GOTO 750 

650 GOSUB 5000:GOSUB 6000:PRESE 
T(8,88):PRINT&1," VOCE TEM UM N 
ATURAL":GOSUB 5500:PF-1:GOTO 86 
680 GOSUB 5000:GOSUB 6000:PRESE 
T(8,88) :PRINT41,"Vocé estourou 
e perdeu a aposta":GOSUB 5500 
750 GOSUB 5000:GOSUB 6000:IF MN 
2999 THEN PRINT41,"PARABENS, VO 
CE QUEBROU A BANCA” :CLOSE] :PLAY 
"T255ADFBFEADC”:GOSUB 5500:GOT 
0 790 





760 PRESET (8,80) : PRINT&1,"Apert. 

e «RETURN? para":PRESET (8,92) :P 

ВІМТФ1," јодаг novamente” 

770 IF INKEYS<>CHR$(13) THEN 77 

0 

780 CLOSE1:GOTO 86 

2005 LINE (CX-2,CY-1)-(CX-2,CY+ 

71) 12 

3000 GOSUB 1000:GOSUB 2000:IF М 

M>10 THEN PL=PL+10 ELSE PL=PL+N 

M 

3010 IF NM=1 THEN PA=1 

3020 RETURN 

5000 OPEN "GRP FOR OUTPUT AS 

41:COLORL RESET (8,88) : RETURN 

5500 CLOSEl:FOR I=1 TO 2000:NEX 

T:LINE (0,80)-(255,106),12,BF:R 

ETURN 

5800 CLOSEl:LINE (0,80)-(255,10 

6) ,12,BF: RETURN 

6000 LINE (204,0)-(255,23),12,B 

F:PRESET (204,16) : PRINT&1,"PONTO 

S":PRESET(204,0) :PRINT&1,PL;:IF 

PA=1 AND PL<12 THEN PRESET(204 

,8) : PRINT41,"0U";PT 

6010 RETURN 

6500 LINE (204,0)-(255,23),12,B 

F:PRESET (204,16) : PRINT&1,"PONTO 

S":PRESET (204,0) : PRINT&1,PL;:IF 

PA*1 THEN PRESET (204,8) :PRINT4$ 

1,”0U 11” 

6510 RETURN 

7000 LINE (204,32)-(255,55),12, 

BF:PRESET (204,48) :PRINT4],"FICH 

AS":PRESET (204,32) : PRINT&1,MN:C 

LOSE41:RETURN 

8000 PRESET(204,132) : PRINT41,"A 
INE (204,148)-(255,155) 

'T (204,148) :PRINTHI, 


A linha 86 estabelece o valor inicial 
de uma série de outras variáveis: CX e 
CY sáo as coordenadas do canto supe- 
rior esquerdo da carta. PL e DL sáo os 
totais do jogador e da banca, respecti- 
vamente. NC é o número de cartas que 
um deles tem, conforme aquele que es- 
teja jogando no momento. DA e PA sáo 
indicadores que passam a valer 1, caso 
a banca ou o jogador tenham um ás. PS 
é outro indicador que passa a valer 1 
caso o jogador tenha uma ““máo de cin- 
co cartas". TW mostra se o jogador já 
pediu uma carta; caso isso tenha acon- 
tecido, as regras impedem que ele ““com- 
pre” novas cartas. PF indica se o joga- 
dor tem um “natural” (21 pontos em 
duas cartas) e NA é o número da pri- 
meira carta distribuída pela banca. 

A sub-rotina que fica entre as linhas 
3000 e 3020 é chamada pela linha 210, 
Uma carta é mostrada na tela; se ela for 
maior que 10, o total de pontos do jo- 
gador será aumentado em dez pontos 
caso contrário, o valor real da carta 
rá somado ao total. A linha 3010 verifi- 
ca se a carta é um ás e modifica o valor 
de PA (indicador de ases do jogador) em 
caso de necessidade. 


( 


“ШЕ 








А BANCA DÁ AS CARTAS 


O programa retorna da sub-rotina 
3000 para a linha 220. D1 é a primei- 
ra carta da banca. A sub-rotina 1000 
verifica qual o seu valor e naipe. O 
FOR...NEXT desenha o reverso da pri- 
meira carta da banca. 

Para facilitar a impressão de mensa- 
gens na tela de alta resolução, foram fei- 
tas várias sub-rotinas no final do pro- 
grama. A da linha 5000 abre um arqui- 
vo ““GRP:;” para que possamos impri- 
mir na tela gráfica por meio de PRINT 
1; acor usadaé o branco e PRESET(8,88) 
estabelece a posição onde vai ser impres- 
sa a mensagem. A sub-rotina da linha 
5500 fecha o arquivo aberto pela sub- 
rotina anterior e apaga a mensagem es- 
crita no meio da tela, usando LINE,BF; 
isso é feito após uma pequena pausa por 
um laço FOR... NEXT para que o joga- 
dor tenha tempo de ler a mensagem. A 
sub-rotina da linha 5800 é igual à da li- 
nha 5500, só que não provoca uma 
pausa. 

A sub-rotina da linha 6000 mostra o 
total de pontos do jogador no canto su- 
perior direito da tela. A da linha 6500 
exibe, no mesmo local, o valor da pri- 
meira carta do jogador. A sub-rotina da 
linha 7000 mostra o total de fichas que 
restam ao jogador e a da linha 8000, o 
valor da aposta feita. 

A linha 240 revela os pontos do jo- 
gador com o auxílio das sub-rotinas. A 
linha 250 mostra o valor da aposta — 
que ainda é zero — e o total de fichas. 
Estas linhas usam a sub-rotina 5000 pa- 
ra abrir o arquivo que possibilita a im- 
pressão na tela gráfica. 

A linha 260 solicita ao jogador que 
faça sua aposta. O arquivo 41 é fechado 
para evitar problemas — não se deve 
deixar nunca um arquivo aberto. As li- 
nhas 265 a 269 permitem o uso das te- 
clas de controle do cursor para fazer 
apostas: as setas “direita” e “esquerda” 
subtraem ou somam 1 ao valor da apos- 
ta, as setas “para cima” e “para baixo” 
somam ou subtraem 10. 

A linha 270 apaga a mensagem ante- 
rior e também verifica se a aposta foi vá- 
lida; caso contrário, ela tem que ser feita 
novamente. Seu valor é subtraído do to- 
tal de fichas do jogador pela linha 280. 

A linha 290 traça a segunda carta do 
jogador e a linha 300 desenha o reverso 
da segunda carta da banca. A linha 320 
verifica se o jogador tem um “natural” 
(ou seja, 21 pontos em duas cartas). 
Neste caso, a linha 650 informa o fato 
e o jogo recomeça. 

A linha 330 cuida da posição da car- 
ta seguinte. PT é o maior total de pon- 


tos que pode ser obtido caso uma das 
cartas seja um ás. O menor total, ou o 
único total, se não houver ases, será PL. 
Se este for maior que 21, a linha 680 in- 
formará ao jogador que ele “estourou”. 
O programa continua na linha 750, on- 
de são impressas algumas mensagens, 
conforme a situação. 

A linha 360 verifica se o jogador tem 
uma “mão de cinco". Em caso positi- 
vo, o sinalizador PS será ativado e o jo- 
gador informado; o programa continua- 
rá então na linha 500. 

A linha 370 mostra os pontos do jo- 
gador, a 380 exibe a aposta feita e a 390, 


:0 restante das fichas. 


А$ ОРСОЕ$ 00 JOGADOR 


As opcóes de **comprar'' ou “pedir” 
cartas e de “parar” são dadas pelas li- 
nhas 400 e 410, enquanto as linhas 430 
a 450 cuidam da resposta. Se o jogador 
tentar “comprar” cartas (o que dobra 
a aposta) sem ter fichas suficientes, a li- 
nha 460 dará a resposta adequada. A li- 
nha 470 ajusta e mostra o total de fichas 
antes que outra carta seja exibida pela 
linha 480. 

Por mais que tente, o jogador não 
conseguirá “parar” antes de obter pelo 
menos dezesseis pontos, devido às con- 
dições do IF da linha 430. A linha 490 
é na realidade desnecessária e só entra- 
rá em ação caso se mude a condição 
PT «16 da linha 430. 

A linha 750 atualiza o total de pon- 
tos do jogador e verifica se este tem mais 
de 999 fichas; neste caso, a banca “que- 
brará”' e o jogador será informado, en- 
quanto uma melodia comemora o fei- 
to. As linhas 760 e 780 perguntam en- 
tão se o jogador quer outra “queda”. 


EE s 


Apague a linha 170 e acrescente as 
próximas linhas ao programa do artigo 
anterior: 





150 MN = 100 

190 HCOLOR= 1: FOR I = 0 TO 19 
1: HPLOT 0,1 TO 279, NEXT 
200 CX = 6:CY = 2:PL = O:DL = O 


¿NC = 2:DA = O:PA = 0:Р5 = 0:ТЫ 
- O:PF = O:NA = N 
210 GOSUB 3000 


220 Dl = N: GOSUB 1000: FOR I = 
100 TO 180: HCOLOR= 3 + 2 * ( 
INT (I / 2) = I / 2): HPLOT 6,I 
TO 56,I: NEXT 

230 FOR K = 1 TO 3500: NEXT 
240 HOME TEXT : PRINT "VOCE 
TEM ";PL;: IF PA = 1 THEN PRIN 
T ” OU 11”: GOTO 250 





245 PRINT 

250 PRINT PRINT "VOCE TEM "; 
MN;" FICHAS" 

260 PRINT INPUT "QUANTO VOCE 
APOSTA ?";BT 

270 BT = INT (BT): IF BT « 1 0 
R BT > MN THEN 240 

280 OB - BT:MN -.MN - BT 

290 CX - 60: GOSUB 3000 

300 р2 = N: GOSUB 1000: FOR I = 
100 TO 180: HCOLOR= 3 + 2 * ( 
INT (I / 2) = I / 2): HPLOT 60, 
I TO 110,I: NEXT 

310 FOR K = 1 TO 4000: NEXT 
320 IF PL = 11 AND PA = 1 AND 


NC = 2 THEN 650 

330 CX = CX + 54 

340 PT = PL + 10 * (PA AND (PL 
< 1215 


350 IF PL > 21 THEN 680 

360 HOME : TEXT : IF NC = 5 TH 
EN PRINT "VOCE TEM UMA MAO DE 
CINCO":P5 = 1: FOR K = 1 TO 250 
0: NEXT : GOTO 500 

370 PRINT "VOCE TEM ";PL;: IF 


РА = 1 AND PL < 12 THEN 
” OU ";PT: GOTO 380 


PRINT 


375 PRINT 

380 PRINT : PRINT "VOCE APOSTO 
U ";BT 

390 PRINT PRINT "VOCE TEM "; 
MN;" FICHAS" 

400 PRINT : IF TW * 0. THEN PR 


INT "(C)OMPRA OU " 

410 PRINT : PRINT "(P)EDE MAIS 

: IF PT > 15 THEN PRINT "OU 
ACHA (S)UFICIENTE"; 

420 PRINT " ?" 

430 GET AS: IF AS < > "P” AND 
(AS < > "S" OR PT < 16) AND ( 

A$ < > "C" OR TW = 1) THEN 430 

440 IF AS - "S" THEN 490 





450 IF AS = "P” THEN TH = 1: G 
ото 480 

460 IF MN < OB THEN PRINT : P 
RINT "VOCE NAO TEM TANTO DINHEI 
RO ASSIM”: GOTO 400 





470 BT = BT + OB:MN = MN - ОВ 
480 NC = NC + 1: GOSUB 3000: GO 
TO 310 

490 IF PT € 16 THEN PRINT : P 
RINT "VOCE NAO PODE PARAR TENDO 
APENAS ";PT:CX = CX - 50: GOTO 





370 

500 GOTO 750 

650 HOME : TEXT : PRINT "VOCE 
TEM UM NATURAL”: FOR K = 1 TO 1 
500: NEXT :PF = GOTO 190 
680 HOME : TEXT : PRINT "VOCE 


ESTOUROU E PERDEU A APOSTA" 


750 PRINT : PRINT "VOCE TEM ^"; 
MN;" FICHAS": PRINT : IF MN 5» 9 
99 THEN HOME : INVERSE : HTAB 






8: VTAB ll: PRINT "VOCE QUEBROU 
A BANCA! FOR I = 1 TO 2000:XX 
= PEEK ( - 16336): NEXT : GOT 
0 790 

760 PRINT : PRINT "APERTE <RET 
URN> PARA OUTRA MAO” 

770 GET A$: IF A$ < > CHBS ( 


13) THEN 770 
780 GOTO 190 
3000 POKE - 16299,0: 


POKE - ош 











16304,0: GOSUB 1000: GOSUB 2000 
: IF NM > 10 THEN PL = PL + 10: 
GOTO 3010 

3005 PL = PL + NM 

3010 IF NM = 1 THEN PA = 1 
3020 RETURN 


Os leitores que possuem vídeo mono- 
cromático e que no último artigo prefe- 
riram apagar a linha 170 devem substi- 
tuir a linha 190 por: 


190 HGR2 


A linha 150 faz com que o número 
de fichas (MN) do jogador seja 100. A 
linha 190 limpa a tela. 

A linha 200 estabelece os valores ini- 
ciais de uma série de variáveis. CX e CY 
sáo as coordenadas do canto superior es- 
querdo da carta. PL a DL sáo os totais 
de pontos do jogador e da banca, res- 
pectivamente, NC é o número de cartas 
do jogador ou da banca, conforme 
aquele que estiver jogando. DA e PA 
sáo indicadores, respectivamente, de que 
o jogador ou a banca possuem um ás. 
P5 é um indicador de que o jogador pos- 
sui uma “*mão de cinco cartas”. TW re- 
vela se o jogador já “pediu” cartas, sen- 
do então utilizado para evitar que ele 
“compre” cartas, segundo as regras do 
jogo. PF é um indicador de “naturais” 
(ou seja, pontos em duas cartas). NA é 
o número da primeira carta dada pela 
banca, Um indicador é uma variável que 
vale O ou 1, de acordo com a situação. 

A sub-rotina da linha 3000 é chama- 
da pela linha 210. Uma carta é coloca- 
da na tela; se for maior que 10, o total 
de pontos do jogador será aumentado 
em 10; caso contrário, o valor da carta 
será somado aos pontos do jogador. A 
linha 3010 verifica se a carta é um ás, 
se necessário. 


А ВАМ! 





O programa retorna da sub-rotina 
para a linha 220. Ali, D1 é a primeira 
carta da banca e a sub-rotina 1000 é usa- 
da para descobrir seu valor e naipe, O 

FOR...NEXT desenha o reverso da car- 
ta da banca. 

A linha 230 faz uma pausa antes que 
a linha 240 limpe e ative a tela de tex- 
tos e informe o total ao jogador. A 
mensagem adicional “OU 11” é usa- 
da somente quando a carta é um ás. O 
número de fichas é escrito pela linha 
250. A linha 269 cuida da aposta do jo- 
gador e a 270 providencia para que a 
aposta seja maior que zero e esteja den- 
tro das posses do jogador (caso con- 
trário, ela terá que ser feita novamen- 
te). O valor da aposta é subtraído das 





fichas do jogador pela linha 280. 

A seguir, a linha 290 chama a sub- 
rotina que distribui as cartas, e a linha 
300 desenha a parte posterior da segun- 
da carta da banca. 

A linha 320 verifica se o jogador tem 
um “natural” depois da pausa causada 
pela linha 310. Em caso positivo, a li- 
nha 650 informará o fato ao jogador e 
o programa recomeçará. 

A linha 330 cuida da posição da car- 
ta seguinte. PT é o maior dos totais de 
pontos, para o caso de o jogador pos- 
suir um ás. Se não houver ases, PL será 
o menor (ou o único) total. Se PL for 
maior que 21, a linha 680 informará ao 
jogador que ele “estourou”. O progra- 
ma continuará, então, imprimindo as 
mensagens da linha 750 em diante. 

A linha 360 verifica se o jogador tem 
uma “'mão de cinco cartas", colocan- 
do 1 em P5 e criando uma pausa, caso 
isto seja necessário. 

A linha 370 mostra o total contido 
nas cartas do jogador (dois valores, se 
houver um ás e o valor menor for infe- 
rior a 12). A aposta do jogador é impres- 
sa pela linha 380 e a quantidade de fi- 
chas pela linha 390. 


А$ ОРС! )06АООВ 


As opcóes de ''parar"', **comprar'* 
ou ''pedir'' cartas sáo oferecidas pelas 
linhas 400 a 420. As linhas 430 a 450 cui- 
dam das respostas do jogador. Se este 
tentar “comprar” cartas sem ter dinhei- 
ro para dobrar a aposta, a linha 460 tra- 
tará de informá-lo. A linha 470 acerta 
o valor da aposta e do total de fichas an- 
tes da linha 480 dar a próxima carta. 

A condição PT < 16 da linha 430 im- 
pede que o jogador “'pare”” sem ter pe- 
lo menos dezesseis pontos. A linha 490 
é desnecessária e só entrará em ação se 
essa condição for modificada. O progra- 
ma continua na linha 750, que avisa ao 
jogador o número de fichas restantes, 
verificando se a banca foi “quebrada”. 
Se isso acontecer, um ruído será pro- 
duzido. 

As linhas 760 a 780 oferecem ao jo- 
gador a opção de jogar outra “mão”. 


EN d 


Para que o programa funcione no 
TK-2000 sáo necessárias algumas modi- 
ficações. Em primeiro lugar, daqui pa- 
ra a frente use apenas a MP (segunda 
página de vídeo). Quando o programa 
estiver completo, qualquer retorno a 
MA (primeira página de vídeo) vai 
danificá-lo. Então, primeiro digite MP 


e depois < RETURN >; carregue o pro- 
grama inicial e faça as mesmas modifi- 
cações sugeridas para o Apple com ex- 
ceção das seguintes linhas: 





160 HGR2 

240 GOSUB 5000: PRINT "VOCE ТЕ 
М "тр TF PA = 1 THEN PRINT 
" OU 11": GOSUB 6000: GOTO 250 
245 PRINT : GOSUB 6000 

250 GOSUB 5000: PRINT "VOCE TE 


GOSUB 6000 
INPUT "QUANTO 


M ";MN;" FICHAS": 
260 GOSUB 5000: 
VOCE APOSTA ?";B GOSUB 6000 
360 GOSUB 5000: IF NC = 5 THEN 

PRINT "VOCE TEM UMA MAO DE CI 
МСО":Р5 - 1: GOSUB 6000 GOTO 50 
0 





PRINT "VOCE TEM ";PL;: IF 
PA = 1 AND PL 12 THEN PRINT 
" QU ";PT: GOSUB 6000: GOTO 380 
375 PRINT : GOSUB 6000 
380 GOSUB 5000: PRINT 
OSTOU ";BT: GOSUB 6000 
390 GOSUB 5000: PRINT "VOCE TE 
M ";MN;" FICHAS": GOSUB 6000 

400 GOSUB 5000: IF TW = O THEN 

PRINT "(C)OMPRA OU " 

460 IF MN < OB THEN GOSUB 500 
0: PRINT "VOCE NAO TEM TANTO DT 
NHEIRO ASSIM": GOSUB 6000: GOTO 
400 
490 


370 





"VOCE AP 


IF PT < 16 THEN GOSUB 500 
0: PRINT "VOCE NAO PODE PARAR T 
ENDO APENAS "¡PT:CX = CX - 50: 
GOSUB 6000: GOTO 370 

650 GOSUB 5000: PRINT "VOCE ТЕ 
M UM NATURAL": GOSUR 6000:PF * 
1 

660 GOSUB 4000: 





GOSUB 5000: IF 


DL = 11 THEN PRINT "MAS A BAN 
CA TEM A MESMA COISA”: GOSUB 60 
00: GOTO 610 

680 GOSUB 5000: PRINT "VOCE ES 
TOUROU E PERDEU A APOSTA”: GOSU 
B 6000 

690 GOSUB 5000: IF MN < 1 THEN 


PRINT "VOCE PERDEU TODAS AS F 
ICHAS”: GOSUB 6000: GOTO 790. 
700 IF PF = 1 THEN PRINT "EMB 
ARALHANDO AS CARTAS”: GOSUB 150 
0: GOSUB 6000: GOTO 750 
750 GOSUB 5000: PRINT "VOCE TE 
M ";MN;" FICHAS": GOSUB 6000: I 
F MN > 999 THEN GOSUB 500 PR 
INT "VOCE QUEBROU A BANCA": FOR 
J = 1 TO 2000: NEXT : GOTO 790 
760 GOSUB 5000: PRINT "APERTE 
<RETURN> PARA OUTRA MAO": GOSUB 
6000 
5000 
108: 
HTAB 1: 
6000 FORT = 
RETURN 


Note que você terá que procurar na 
listagem das modificações para o Apple 
algumas linhas que não estão aqui por 
falta de espaço. À diferença entre o pro- 
grama do Apple e do TK-2000 se deve 
ao fato de este último não possuir uma 
página só para textos, Assim, as men- 





HCOLOR= 1: FOR 1 = 84 TO 
HPLOT 0,1 TO 255,1: NEXT : 
VTAB 12: RETURN 


1 TO 1000: NEXT 


sagens terão que ser impressas na tela 
gráfica. 

A sub-rotina da linha 5000 apaga 
qualquer coisa que tenha sido escrita an- 
tes e posiciona o cursor para a mensa- 
gem seguinte. A sub-rotina 6000 provo- 
ca uma pausa para que a mensagem pos- 
sa ser lida. No restante, o programa é 
igual ao do Apple e as explicações são 
as mesmas. 

As linhas 220 e 300 são um pouco di- 
ferentes das do Apple. Elas colocam as 
cartas da banca mais abaixo, abrindo 
um espaço para que as mensagens sejam 
impressas na tela. 


Acrescente as próximas linhas àque- 
las que digitou da outra vez: 





170 MN=100 
190 PCLS 6 
200 С :Cy=11:PL=0:DL=0:NC=2:D 
A=0:PA=0:P5=0:TW=0:PF=0:NA=N 
210 GOSUB 3000 

220 POKE 178,156:D1=N:GOSUB 100 
O:LINE (6,108)-(50,180),PSET,BF 
230 FOR K-1 TO 2000:NEXT 

240 CLS:PRINT" VOCE TEM";PL;:IF 
PA=1 THEN PRINT "ОУ 11” ELSE P 
RINT 

250 PRINT:PRINT" 
FICHAS" 

260 INPUT" FACA SUA APOSTA ";BT 
270 BT=INT(BT):IF BT<1 OR BT>MN 
THEN 240 

280 OB=BT:MN=MN-BT 

290 CX=56:GOSUB 3000:POKE 178,1 
56 

300 D2=N:GOSUB 1000:LINE (56,108 
)=(100,180), PSET,BF 

310 FOR K=1 TO 2500:NEXT 

320 IF PL=11 AND PA=1 AND NC=2 
THEN 650 

330 CX=CX+50 

340 PT=PL+10*(PA AND(PL<12)) 
350 IF PL>21 THEN 680 

360 CLS:IF NC=5 THEN PRINT” VOC 
E TEM UMA MAO DE CINCO” :P5=1:FO 
R K=1 TO 1500:NEXT:GOTO 500 

370 PRINT" VOCE TEM";PL;:IF PA* 
1 AND PL<12 THEN PRINT "OU";PT 
ELSE PRINT 

380 PRINT:PRINT" 





VOCE TEM";MN;" 


VOCE APOSTOU"; 


BT 

390 PRINT:PRINT" VOCE TEM";MN;" 
FICHAS" 

400 PRINT:IF TW-0 THEN PRINT" ( 
C)OMPRA OU"; 

410 PRINT” (Р) ЕЄ”Е MAIS CARTAS"; 


:IF PT>15 THEN PRINT” OU (S)ATI 
SFEITO”; 

420 PRINT " ?" 

430 AS=INKEYS:IF AS<>"P” AND (A 
$<>”S" OR PT<16) AND (AS<>"C” O 
R TW=1) THEN 430 

440 IF AS="S” THEN 490 

450 IF AS="P” THEN TW-1:GOTO 48 


0 
460 IF MNXOB THEN PRINT " VOCE 


NAO TEM TANTO DINHEIRO":GOTO 40 
0 


470 BT-BT*OB:MN-MN-OB 

480 NC-NC*1:GOSUB 3000:GOTO 310 
490 IF PT<16 THEN PRINT ” VOCE 
NAO PODE PARAR AGORA”; 
50:GOTO 370 

500 GOTO 750 

650 CLS:PRINT" VOCE TEM UM NATU 
RAL":FOR K-1 TO 1000:NEXT:PF=1: 
GOTO 190 

680 CLS:PRINT” VOCE ESTOUROU E 
PERDEU A APOSTA” 

750 PRINT:PRINT" VOCE TEM";MN;" 
FICHAS":PRINT:IF MN>999 THEN PR 
INT "MUITO BEM, VOCE QUEBROU A 
BANCA!” : SCREEN 0,1:PLAY"T6ADFBF 
EADC":GOTO 790 

760 PRINT:PRINT" PRESSIONE (S) 
PARA RECOMECAR" 
770 IF INKEYS<>"S" 
780 GOTO 190 

3000 SCREEN 1,1:GOSUB 1000:GOSU 
B 2000:IF NM>10 THEN PL=PL+10 E 
LSE PL=PL+NM 

3010 IF NM=1 THEN PA=1 

3020 RETURN 


A linha 170 faz com que o número 
de fichas do jogador seja igual a cem. 
A linha 190 limpa e dá cor à tela. 

A linha 200 estabelece o valor inicial 
de uma série de variáveis, CX e CY são 
as coordenadas do canto superior es- 
querdo da carta. PL e DL são, respect 
vamente, os totais de pontos do jogador 
e da banca. NC é o nümero de cartas de 
quem estiver jogando no momento, jo- 
gador ou banca. DA e PA são indica- 
dores que passam a valer 1 se a banca 
ou o jogador tiverem um ás. PS é um 
indicador que sofrerá a mesma modifi- 
cação caso o jogador consiga uma “mão 
de cinco cartas". TW é um indicador 
que passará a valer 1 quando o jogador 
“pedir” uma carta. Segundo as regras, 
a partir de então ele não poderá mais 
“comprar”. PF é um indicador de “'na- 
turais’ e NA o número da primeira car- 
ta dada pela banca. 

A sub-rotina da linha 3000 é chama- 
da pela linha 210. Uma carta é coloca- 
da no vídeo. Se for maior que 10, o to- 
tal do jogador será.aumentado em dez; 
caso contrário, o valor da carta será so- 
mado aos pontos do jogador. Se a car- 
ta for um ás, a linha 3010 colocará 1 no 
sinalizador de ases PA. 


A BANC AS CARTAS 


Quando o programa retornar, a linha 
220 usará POKE para obter o padrão 
usado no reverso das cartas. D1 é a pri- 
meira carta da banca; a sub-rotina des- 
cobre seu valor e naipe. LINE desenha 
a carta e POKE cria o padrão. 

A linha 230 provoca uma pausa an- 


THEN 770 


PT:CX=CX- * 


tes que a linha 240 limpe a tela e es- 
creva o total do jogador. O comando 
PRINT muda automaticamente a tela 
gráfica para a tela de textos. Se a carta 
for um ás, aparecerá uma mensagem 
adicional “OU 11”. O número de fichas 
é informado pela linha 250. 

A linha 260 cuida da aposta; a linha 
270 verifica se esta é válida; caso con- 
trário, ela deve ser refeita. A aposta é 
subtraída das fichas do jogador pela li- 
nha 280. 

A seguir, a linha 290 chama as sub- 
rotinas que dão as cartas e a linha 300 
desenha a segunda carta da banca. 

A linha 320 verifica se o jogador tem 
um “natural” (isto é, 21 pontos em duas 
cartas), depois da pausa criada pela li- 
nha 310. Se houver um “natural”, a li- 
nha 650 informará ao jogador, e o jogo 
começará de novo. 

A linha 330 cuida da posição da car- 
ta seguinte. Se o jogador tiver um ás, o 
maior dos seus totais será PT. Se não 
houver ases, o menor (ou único) total se- 
rá PL. Se este for maior que 21, a linha 
680 informará ao jogador que houve um 
“estouro”, e o programa irá para a li- 
nha 750. A linha 350 verifica se o joga- 
dor tem uma “mão de cinco”. Neste ca- 
so, o indicador PS será ativado e uma 
pausa será provocada antes de o jogo 
prosseguir. 

A linha 370 mostra o total dos pon- 
tos do jogador — dois valores, se hou- 
ver um ás e o valor menor for inferior 
a 12. A aposta é mostrada pela linha 380 
eas fichas remanescentes sáo indicadas 
pela linha 390. 


AS OPCÓES DO JOGADOR 


As opções de “'parar”, “comprar” 
u “pedir” cartas são oferecidas ao jo- 
gador pelas linhas 400 a 420. As linhas 
430 a 450 cuidam das respostas. Se o jo- 
gador tentar comprar cartas sem ter fi- 
chas suficientes para dobrar a aposta, 
a linha 460 dará o aviso. A linha 470 
atualiza o valor da aposta e do total de 
fichas, antes que a linha 480 dê outra 
carta. 

Se o jogador tentar “parar” sem ter 
pelo menos dezesseis pontos, será impe- 
dido pela condição PT < 16 na linha 430. 
A linha 490 é desnecessária e só entrará 
em ação caso essa condição seja modi- 
ficada. 

A linha 750 diz ao jogador quantas 
fichas sobraram e verifica se ele conse- 
guiu quebrar a banca. Se isso acontecer, 
haverá um efeito sonoro depois de uma 
mudança de cores. 

As linhas 760 a 780 permitem ao jo- 
gador uma outra ''mão”. 















Uma das características da programa- 
ção consiste em que tudo o que não es- 
teja gravado em fita ou no disquete tem 
que ser digitado. Frequentemente, con- 
tudo, pode-se economizar tempo, mo- 
dificando programas já prontos ou com- 
binando dois (ou mais) programas para 
formar um terceiro. 

Existem basicamente duas maneiras 
de combinar programas. A primeira 
consiste em somar duas partes com nú- 
meros de linhas diferentes. A segunda, 
mais complexa, permite a união de pro- 
gramas com números de linhas iguais. 
Neste curso, os dois métodos serão tra- 
tados simultaneamente. 


QUANDO COMBINAR 


Combinar programas (Merge é o ter- 
mo usado em inglés) é essencialmente 
um método de auxílio à programação. 
Suponhamos, por exemplo, que você te- 
nha feito um programa que não funcio- 
na do modo esperado, ou que deseje al- 
terá-lo para que ele execute uma tarefa 
diferente daquela para a qual foi cria- 
do. A melhor maneira seria gravá-lo em 
fita ou disquete e continuar a trabalhar 
nele sem medo de danificar o original. 
Uma vez aperfeiçoado, o programa es- 
taria, digamos, com o dobro do tama- 
nho original, ou teria ganho vários mó- 
dulos diferentes. Em qualquer caso, as 
duas versões podem ter elementos que 
você deseje conservar, mas existem en- 
tre elas tantas diferenças que seria mui- 
to difícil digitar cada coisa separada- 
mente. E há mais um problema: a não 
ser que você coloque os dois programas 
no papel, é necessário ter tudo na me- 
mória para poder fazer as mudanças na 
hora de combiná-los. 

Outra situação em que se torna ne- 
cessário combinar programas é aquela 
em que se deseja incorporar rotinas ou 
procedimentos já existentes a um novo 
programa. Estes podem ser longas roti- 
nas em código de máquina que tocam 
uma música, ou uma rotina que anima 
um desenho em alta resolução, ou mes- 
mo uma rotina de detecção de erros. 

A maioria dos programadores tem 
uma variada “biblioteca” de sub-roti- 
nas, montadas ao longo dos anos e in- 








corporadas aos novos programas de 
acordo com as necessidades. Uma “*bi- 
blioteca”” desse tipo tem um valor ines- 
timável pois, uma vez que as rotinas te- 
nham sido digitadas, testadas e grava- 
das, não é necessário nem mesmo dese- 
jável redigitá-las toda vez que for pre- 
ciso utilizá-las. Elas podem : ser incorpo- 
radas ao programa por meio das técni- 
cas de combinação. 

Esse recurso serve igualmente para 
enfileirar uma série de pequenos progra- 
mas e executá-los sequencialmente. Nes- 
te caso, pode-se ter, por exemplo, uma 
série que comece por uma saudação ini- 
cial, seguida de um desenho multicolo- 
rido, e assim por diante. 

A última linha pode desviar o progra- 
ma para o início, provocando uma exe- 
cução contínua. 




















Por que perder tempo digitando rotinas 
e programas já digitados e 
testados, se o computador pode fazer 
todo esse trabalho com 
a ajuda apenas de alguns comandos? 









BINAR 





Cada computador tem seu próprio 
método para fazer a combinação de pro- 
gramas. Alguns dispõem de um coman- 
do (MERGE) que se encarrega da tare- 
fa, fazendo com que o programa que es- 
tá na memória seja retido enquanto ou- 
tro é carregado da fita ou disquete. Já 
outros exigem que se digite algumas li- 
nhas de instrução, ou se destine espaço 
na memória para o segundo programa. 

Qualquer que seja o método utiliza- 
do, no entanto, é necessário que os nú- 
meros de linhas sejam ajustados antes 
para que a combinação se dê da forma 
desejada. 

O ZX-81 é um caso especial. Ele não 
tem um comando para fazer a combi- 
nação e não há nenhuma técnica razoa- 





POR QUE JUNTAR PROGRAMAS 
COMO ACRESCENTAR 
SUB-ROTINAS PRÉ-FABRICADAS 
COMO COMBINAR VÁRIOS 
PROGRAMAS EM UM SÓ 












velmente simples que permita que dois 
programas sejam carregados na memó- 
ria. Veja a seção Perguntas e respostas 
para maiores informações. 


No Spectrum, a combinação de pro- 
gramas é feita por intermédio do coman- 
do MERGE, que torna muito simples 
essa operação. No entanto, é necessário 
atenção com a numeração dos progra- 
mas a serem combinados. Por exemplo, 
para juntar uma sub-rotina de umas vin- 
te linhas a um programa maior, é preci- 
so deixar um espaço na numeração. As- 
sim, o programa seria numerado de 10 
a 50, digamos, e de 300 a 1000, e a 
sub-rotina de 60 a 250. 

Outra possibilidade é dar á sub-rotina 
uma numeração superior à do progra- 
ma. Com um pouco de cuidado, pode- 
se arranjar as coisas de tal forma que, 
com a substituição de algumas linhas 
por outras, e a incorporação de novas 
linhas, obtenha-se um novo programa. 

Agora, digite e execute o programa 
a seguir. Ele mostra quadrados colori- 
dos em posições aleatórias. Mais adian- 
te, você verá como combiná-lo com ou- 
tro programa: 


10 BORDER 0: INK 9 

50 PAPER O 

60 CLS 

70 FOR n=1 TO 400 

80 LET x=INT (RND*32) 

90 LET y=INT (RND*22) 

100 PAPER 7: IF x>8 AND x<24 
AND y>6 AND y<16 THEN PAPER 4 
110 PRINT AT y,x;" " 

120 NEXT n 


Grave o programa (com o título de 
801, por exemplo). E nào desconecte o 
gravador — vocé ainda vai precisar de- 
le. Note que qualquer outro programa 
que você já tenha serviria para nossa de- 
monstração. Digite NEW e em seguida 
o próximo programa: 


10 BORDER O: PAPER O: INK 9: 
CLS 

30 FOR t=1 TO 5 

40 INK INT (RND*6)*2 

60 PRINT AT t,0;"ISTO E UM TE 
STE" 

130 NEXT t 

















Existe uma forma simples de combi- 
nar programas no ZX-81? 


Infelizmente, não. Isso pode ser fei- 
to em linguagem de máquina, mas o 
programa é bem complicado. 

O ZX-81 não tem um comando 
MERGE e não existe nenhuma forma 
em BASIC de carregar dois programas 
na memória ao mesmo tempo (todos os 
programas são carregados no mesmo 
endereço da memória). Assim, ao se 
carregar um programa, inevitavelmen- 
te se destrói o anterior. 





Este é um programa muito simples, 
que mostra uma mensagem (linha 60) 
cinco vezes. Agora digite МЕКСЕ”” 
para combiná-lo com o anterior (não se 
esqueça de retroceder a fita até o início 
do programa). O programa da fita será 
então adicionado ao da memória do mi- 
cro. Liste o novo programa e observe 
que as linhas 10 e 60 foram substituídas, 
enquanto as linhas 50 e de 70 a 120 fo- 
ram acrescentadas. Execute o programa 
para ver o procedimento inicial (SQ1) 
executado cinco vezes. 

Como nào é muito fácil renumerar 
programas no Spectrum, convém ajus- 
tar a numeração das linhas antes de 
combinar os programas. 


O TRS-Color permite a junção de 
programas em sequência, mas não a so- 
breposição de linhas. 

Digite e execute o programa seguin- 
te, que coloca quadradinhos coloridos 
em áreas retangulares da tela. 





10 PCLEAR 4 

20 FOR T=1 TO 5 

30 CLS O 

40 FOR N=1 TO 400 

50 X=RND(32)-1 

60 Y=RND(16)-1 

70 IF X<6 OR X>25 OR Y<4 OR Y>1 
1 THEN C=175 ELSE C=255 
80 POKE 1024+Y*32+X,C 
90 NEXT 

100 NEXT 


Agora, grave o programa (como 
501, рог ехетріо), рага que ele possa 
ser carregado novamente na memória. 
Ele poderia ser uma longa sub-rotina ou 
parte de um programa inacabado. 


Digite o comando NEW e, em segui- 
da, o próximo programa: 


10 PCLEAR 4 

20 CLS 

30 PRINT 6192, STRINGS (32,CHR$(2 
36)); 


40 PRINT ” BENVINDO A UM DISPLA 
Y COLORIDO” 
50 PRINT STRINGS (32,CHR$(163)) 

O programa imprime uma mensagem 
na tela (linha 40). Para juntar a ele o 
programa que você já gravou, entre as 
linhas a seguir: 
РОКЕ 25,РЕЕК (27) 
POKE 26,РЕЕК (28) -2 

Em seguida, carregue o programa da 
fita (SQI) e entre estas instruções: 
POKE 25,30 
POKE 26,1 

Ao listar o novo programa, ele apa- 
recerá com números de linha de 10 a 50 
e a seguir de 10 a 100. Digite RENUM 
para renumerar o programa e liste-o no- 
vamente; vocé verá algo como: 


10 PCLEAR 4 

20 CLS 

30 PRINT €192, STRINGS (32,CHRS (2 
36)); 


40 PRINT ” BENVINDO A UM DISPLA 
Y COLORIDO” 
50 PRINT STRINGS (32,CHR$(163)) 
60 PCLEAR 4 
70 FOR T=1 TO 5 
80 CLS 0 
90 FOR N=1 TO 400 
100 X=RND(32)-1 
110 Y=RND(16)-1 
120 IF X<6 OR X>25 OR Y<4 OR Y> 
11 THEN C=175 ELSE C=255 
130 РОКЕ 1024+үх32+Х,С 
140 МЕХТ 
150 МЕХТ 

A primeira parte do programa é exe- 
cutada rapidamente. Para separá-la da 
segunda parte, mude a linha 60 para: 


60 FOR K=1 TO 2000:NEXT 


ES ES 


O MSX é outro computador que 
apresenta grande facilidade para com- 
binação de programas. Como o Spec- 
trum, ele possui o comando MERGE, 
que se encarrega de todo o trabalho. 

Todavia, é sempre importante tomar 
cuidado com a numeração das linhas, 
pois, se existirem|linhas de mesmo nüme- 
ro nos dois programas a serem unidos, 
aquelas que vém do programa que é car- 
regado da fita substituirão as da memó- 
ria. Assim, deve-se sempre deixar espa- 
ço suficiente no programa que vai rece- 
ber o novo trecho para que não se per- 
cam linhas. 


Digite o programa apresentado a se- 
guir. Ele desenhará quadradinhos colo- 
ridos em determinada região da tela. Em 
seguida grave-o na fita, usando o co- 
mando SAVE (e não CSAVE). Chame- 
o, por exemplo, 4е 501. 

60 R=RND(-TIME) 

70 SCREEN3 

80 COLOR 15,R*15 

90 FORI-1TO400 

100 X-INT (RND (1) *256) 

110 Y=INT(RND(1)*192) 

120 IFX<360RX>2100RY<200RY>110T 
НЕМ100 

130 PSET(X,Y),RND(1)*15 

140 NEXT 

Quando tiver terminado a gravação 
do programa, digite NEW e, sem desco- 
nectar o gravador do micro, coloque es- 
te outro programa no seu computador: 


10 CLS 

20 PRINTSTRINGS (39,36) 

30 PRINTTAB(10);"VEJA QUE BELO 
EFEITO!” 

40 PRINT:PRINTSTRINGS (39,36) 
50 FORJ=1T0500:NEXT 

150 SCREENO 

160 PRINTSTRINGS (39,123) 
170 PRINTTAB(10);"ACABOU! 

Este é um programa muito simples, 
que coloca duas mensagens na tela. So- 
zinho, nào quer dizer muita coisa; mais 
adiante, porém, vocé poderá avaliar sua 
importância. 

Agora, rebobine a fita para posicio- 
ná-la no início do programa anterior. 
Digite MERGE“SOL”. Em seguida, di- 
gite LIST. Veja que os dois programas 
estão juntos, O primeiro colocado den- 
tro do segundo. 

Como o MSX também oferece o co- 
mando RENUM, você não terá dificul- 
dade para fazer com que os números das 
linhas dos programas sejam os mais ade- 
quados às combinações que quiser fazer. 


é RR ECA 


O Apple II não tem o comando MER- 
GE no BASIC; mas, para quem traba- 
lha com uma unidade de disco, existe 
um programa no disco-mestre do siste- 
ma operacional que renumera as linhas 
de um programa em BASIC e permite 
que se faça a combinação de programas. 
Para trabalhar com ele, basta seguir as 
instruções do manual. 

Aqui, mostraremos duas outras for- 
mas de se combinar programas, A pri- 
meira é destinada a quem trabalha com 
disquetes. Essa técnica aproveita a fa- 
cilidade do Apple para ler um arquivo 
texto, simulando entradas de teclado. 
Pode-se guardar, assim, uma série de 
instruções (uma rotina de ordenação, 
por exemplo) na forma de um arquivo 











texto e, por meio do comando EXEC, 
fazer com que a rotina seja adicionada 
ao programa da memória. Tudo funcio- 
na como se a rotina tivesse sido digita- 
da no teclado. Vejamos como isso acon- 
tece. Digite o programa a seguir: 


D$ = CHR$ (4) 

PRINT D$;"OPEN TEXT” 

PRINT D$;"WRITE TEXT" 

POKE 33,33: LIST 10 - 

PRINT DS;"CLOSE": POKE 33,40 
END 

100 0$ = CHRS (4) 

110 PRINT D$;"OPEN TEXT” 

120 PRINT D$;"WRITE TEXT” 

130 POKE 33,33: LIST - 5 

140 PRINT D$;"CLOSE": POKE 33, 
40 


nu UNT 


Depois de digitá-lo, execute-o a par- 
tir da linha 100 (RUN 100). Isto fará 
com que seja criado um arquivo texto 
no seu disco que contém as linhas 1 a 
5. Ao verificar o diretório (catálogo) do 
disco (CATALOG), vocé verá que o 
arquivo tem o nome de TEXT. Modi- 
fique-o para MERGE e vocé se lem- 
brará facilmente do nome (RENAME 
TEXT, MERGE). Agora digite NEW e 
a seguir o próximo programa: 


40 GR 
50 FOR I = 1 TO 500 
60 COLOR= RND (1) * 16 


90 PLOT X,Y 


100 NEXT 
70 X = RND (1) * 40 
80 Y = RND (1) * 40 


O programa mostra uma grande quan- 
tidade de quadrados coloridos na tela; 
é bem simples, mas servirá para a nossa 
demonstraçào. Agora digite MON C,LO 
e depois EXEC MERGE. Vocë verá as 
linhas 1 a 5 do programa anterior apa- 
recerem na tela. Liste o programa e ve- 
rifique se as linhas que vocë havia digi- 
tado ainda estào lá. Dessa forma, vocë 
já conseguiu combinar dois programas: 
o que desenha na tela e o outro, que po- 
de não lhe parecer muito claro. Agora, 
vamos explicá-lo melhor. A primeira li- 
nha apenas define a variável D$ como 
o caractere de código 4; este indica ao 
computador que um comando do siste- 
ma operacional está sendo usado. A se- 
guir, um arquivo é aberto e preparado 
para receber dados (linhas 2 e 3). A linha 
4 coloca a listagem do programa nesse 
arquivo, a partir da linha 10. O arqui- 
vo é então fechado e termina a rotina. 

A vantagem dessa operação consiste 
em que uma rotina assim armazenada 
pode ser adicionada a qualquer progra- 
ma com apenas um comando. 

Para compreender melhor, digite RUN. 
Nossa pequena rotina será executada e 
o programa que coloca os quadrados co- 
loridos na tela será armazenado no ar- 
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Se o seu micro tem um comando pa- 
ra a renumeração de linhas, use-o pa- 
ra que o programa comece em uma de- 
terminada linha e tenha um incremen- 
to constante. Se você não tem o pro- 
grama, a renumeração deve ser feita 
manualmente; mas tome cuidado com 
todas as linhas referenciadas em ins- 
truções GOTO ou GOSUB e ON...G0- 
TO ou ON...GOSUB 


quivo de nome TEXT. À medida que 
outras rotinas forem sendo guardadas, 
é necessário dar a elas novos nomes co- 
mo foi feito com MERGE. Agora digi- 
te NEW e a seguir o próximo programa: 


10 HOME 

20 PRINT "*** DEMONSTRACAO 
DO MERGE жай” 

30 FOR I = 1 TO 2000: NEXT 
110 TEXT : GOTO 10 


Este programa imprime apenas duas 
mensagens na tela. Para uni-lo ao pro- 
grama dos quadradinhos, vocë deve di- 
gitar EXEC TEXT. Feito isso, os dois 
programas podem ser executados como 
se fossem um só. 





E 
RRA A 





Para quem náo tem uma unidade de 
disco, há um outro método, mais rudi- 
mentar, que também permite a combi- 
nação de programas. Esse método co- 
loca um programa após o outro, blo- 
queando a mistura de linhas de núme- 
ros variados. Assim, o programa da me- 
mória deve ter numeração inferior ao 
daquele que vai ser carregado da fita. 

Digite inicialmente as linhas de 40 a 
100 do programa anterior. A seguir, gra- 
ve-o em fita. Limpe a memória do mi- 
cro (NEW) e digite as linhas de 10 a 30. 
Não digite a linha 110. Agora execute 
as seguintes instruções: 

E-PEEK (106) *256*PEEK (105) -2 
POKE 104,INT(E/256) 
POKE 103,E-PEEK(104)*256 


Carregue o programa da fita com 
o comando LOAD 


POKE 104,8 
POKE 103,1 
LIST 


E temos os dois programas juntos. 


Os microcomputadores compatíveis 
com a linha TRS-80 que dispõem de BA- 
SIC para disco (ou seja, sob o sistema 
operacional DOS) já têm os comandos 
MERGE — destinado a combinar pro- 
gramas (com possibilidade de substitui- 
ção de linhas e de inserção de linhas in- 
termediárias) — e RENUM, que permite 
a renumeração das linhas do programa 
resultante. Assim, é muito fácil fundir 





















































dois ou mais programas em rotinas em 
BASIC: basta carregar ou digitar o pri- 
meiro programa na memória (através de 
um comando LOAD) e, em seguida, di- 
gitar um comando MERGE “nome”, 
para especificar a denominação do pro- 
grama a ser fundido com o primeiro. 
O TRS-80 na versão cassete não tem 
o comando MERGE; para combinar 
programas nesse micro sáo necessários, 
portanto, alguns “truques” especiais. 
Esses “truques”, contudo, permitem 
apenas que se juntem programas em se- 
айёпсіа, isto é, um depois do outro, im- 
pedindo a superposição de linhas. 
Digite e execute o programa seguin- 
te, que coloca uma mensagem várias ve- 
zes na tela: 
100 CLS 
110 FOR I=1 TO 5 
120 PRINT "GOSTOU DO TESTE ?" 
130 NEXT I 


Agora, grave o programa (como 
SQI, por exemplo), para que ele possa 
ser carregado novamente na memória. 
Ele poderia ser uma longa sub-rotina ou 
parte de um programa inacabado. 

Digite NEW e depois o programa a 
seguir, que serve para preencher a tela 
com. quadradinhos ao acaso: 


10 
20 
30 
40 
50 
60 
70 
80 
90 


RANDOM 

FOR T=1 TO 5 
cLS 

FOR N=1 TO 400 
X=RND (64) -1 
Y=RND(16)-1 
SET (X,Y) 
NEXT N 

NEXT T 


Ele imprime uma mensagem na tela. 
Para juntar o programa que vocé já gra- 
vou, entre a linha a seguir: 


PRINT PEEK(16633) 


Se o resultado mostrado na tela for 
menor do que 2, digite as linhas abaixo: 


POKE 16548,PEEK(16633)+254 
POKE 16549,PEEK(16634)-1 


Entretanto, se o resultado for maior 
ou igual a 2, digite estas linhas: 


РОКЕ 16548,РЕЕК(16633)-2 
РОКЕ 16548,РЕЕК(16634) 


A seguir, carregue o programa da fi- 
ta (SQ1), usando o comando CLOAD, 
e entre estas instruções: 


POKE 16548,233:POKE 16549,66 


Ao listar o novo programa, ele apa- 
recerá com números de linha de 10 a 70 
e a seguir com os números de 100 em 
diante. Liste-o novamente, e você verá 
o programa inteiro. 


Para completar nosso jogo de 
vinte-e-um, só falta ensinar o 
computador a fazer as vezes da banca. 
É hora, portanto, de se preparar para 
enfrentá-lo: conheça as regras do jogo. 


Antes de passar à última seção do 
programa, convém conhecer as regras 
do jogo. 

O vinte-e-um utiliza um baralho com 
52 cartas. As cartas que vão do 2 ao 10 
têm valor igual ao seu número. As fi- 
guras valem 10 pontos e o ás pode valer 
lou ll, conforme a decisão do jogador. 
Em nosso jogo, o computador calcula 
os pontos automaticamente. 


Joga-se, em geral, com dinheiro ou 
fichas. Nosso computador é programa- 
do para marcar os pontos com fichas. 
Cabe a ele desempenhar o papel da ban- 
ca, sendo sempre quem dá as cartas. 

No início do jogo, o computador em- 
baralha as cartas e distribui duas, vira- 
das para baixo (“fechadas”). A carta do 
jogador aparece ““aberta”” na tela, mas 
o programa foi feito de modo que o 
computador não conheça as cartas do 
jogador. Este faz sua aposta, antes que 
ele e a banca recebam outra carta. 

O objetivo do jogo é ter uma mão 
melhor que a da banca, isto é, um maior 
número de pontos na soma das cartas. 
Quem tiver um total maior que 21, estou- 
rou, perdendo a aposta. Com um total 
entre 16 e 21, o jogador só ganha da 


EDA VERSÃO COMPUTADORIZADA 
FUNCIONAMENTO DO PROGRAMA 

E AS DECISÕES DA BANCA 
PERDER OU GANHAR 


banca se esta possuir um total menor, 
ou se tiver estourado. Assim, a banca 
tem sempre a vantagem do empate. 
Existem duas mãos especiais — o 
“natural”: um ás e um dez ou um ás e 
uma figura, somando 21 em duas car- 
tas; ea *“máo de cinco””: uma mão com 
cinco cartas, cujo total é igual ou infe- 
rior a 21. Um natural do jogador ganha 
de qualquer máo da banca, exceto de 
outro natural. Uma máo de cinco tam- 
bém ganha de qualquer coisa, menos de 
um natural ou outra mão de cinco. 


COMO FUNCIONA O PROGRAMA 


Depois que o jogador recebeu a se- 
gunda carta, o programa verifica se ele 








conseguiu um natural. Se não conse- 
guiu, mas obteve um total maior ou 
igual a 16, e está satisfeito com este va- 
lor, ele pode “*parar””, não recebendo 
mais cartas. A vez de jogar passa, en- 
táo, á banca. Se obteve um total infe- 
rior a 16, ou náo está satisfeito com o 
valor de sua máo, pode receber mais car- 
tas pelo ato de “pedir” ou de “com- 
prar”. No jogo normal, quando se com- 
pra uma carta, a aposta original é do- 
brada e a banca dá a carta fechada. Na 
nossa versão computadorizada, não há 
diferença entre cartas fechadas ou aber- 
tas, e pedir cartas não dobra a aposta, 
pois todas são dadas abertas. O jogador 
não poderá comprar depois de ter pedi- 
do alguma carta e, ao chegar na quinta 
carta, só poderá pedir. Após cada carta 
fornecida, o computador verifica se o 
jogador ou a banca ultrapassaram os 21 
pontos. 

Quando o jogador estoura, a banca 
ganha a aposta e não precisa jogar. 
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Quando ele tem 21 ou menos, a banca 
mostra suas duas cartas e decide se pe- 
de mais cartas ou pára por ali. Se as 
duas cartas da banca são um natural, ela 
ganha a aposta. Caso contrário, a ban- 
ca pede mais cartas até ficar satisfeita 
com o total, conseguir uma mão de cin- 
co ou então estourar — para alegria do 
jogador. 

Se a banca pára com um total menor 
que 21 e sem ter obtido uma mão de cin- 
co, surge na tela a mensagem: a BAN- 
CA PAGA... totais que tenham um 
ponto a mais que o valor de sua mão. 
Se a mão da banca for 21, a mensagem 
NATURAIS E MÃOS DE CINCO 
APENAS é mostrada. E, caso obtenha 
uma mão de cinco, o jogador é infor- 
mado: APENAS NATURAIS. No jo- 
go convencional, cada jogador declara- 
ria o valor de sua mão, se tivesse venci- 
do a banca. Na nossa versão, o compu- 
tador soma as cartas do jogador para sa- 
ber seu total. Se o jogador tiver um to- 
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tal maior ou igual ao que a banca paga, 
ele vence; se tiver menos, perde. Quan- 
do vence, a banca paga um valor igual 
a sua aposta, ou seja, ele recebe o do- 
bro do que apostou. Nenhuma ficha ex- 
tra é paga a naturais ou mãos de cinco, 
e não é permitido blefar. 

O jogador também não pode dar as 
cartas nem fazer papel de banca — no 
jogo convencional a banca pertence a 
quem consegue um natural. Resta, as- 
sim, ao jogador, a difícil tarefa de que- 
brar a banca, o que ocorre quando ele 
consegue acumular mais de 1 000 fichas. 
No início da partida, o jogador recebe 
100 fichas e, caso perca todas, perde 
também o jogo. 


Carregue as duas seções iniciais do 
programa e acrescente as linhas seguin- 
tes para completar seu jogo. 


2500 PAUSE 50 











2510 LET DPF=B: LET AF=B: LET X 
=C: LET Y=10 

2520 FOR J=C TO 2 

2530 LET Z-0(J): GOSUB 5500 
2540 IF ЧА>10 THEN LET VA=10 
2545 FOR K=C TO 2: LET W(K)*W(K 
J+VA: NEXT K 

2546 IF VA=C AND AF=B THEN LET 
W(2)-W(2)*10: LET AF*C 

2550 LET X-X*6: NEXT J 

2560 IF W(2)-21 THEN PRINT PA 
PER 2; T 14,18;" NATURAL 
1 ;" ^ BANCA GANHA ": 
LET DPF-C: GOTO 2000 

2600 IF PF=C THEN GOTO 2720 
2610 PAUSE 75 

2630 IF W(C)>21 THEN PRINT PA 
PER C; INK 7;АТ 21,В;" A BANCA 
ESTOURA! ";: GOTO 2740 
2635 IF W(2)>21 THEN 
w(c) 
2640 
2650 
2660 
1670 
:700 





LET W(2)= 


IF W(2)<16 THEN GOTO 2800 


IF FF=C THEN GOTO 2800 
LET PR=(W(2)-8)/13 

IF PR<RND THEN GOTO 2800 
IF W(2)>21 THEN 


LET W(2)= 
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ч(с) 

2710 IF W(2)=21 THEN PRINT AT 
20,B;” A BANCA PAGA SOMENTE NAT 
URAIS E MAOS DE CINCO”: GOTO 
2000 

2720 PRINT PAPER 2;AT 21,B;" A 
BANCA OBTEVE ";W(2)*C; 

2725 IF S(2)>21 THEN LET S(2)= 
в(с) 

2730 IF W(2)>=S(2) THEN PRINT 


PAPER 2;" E GANHOU! ": GOTO 20 
00 

2740 PRINT PAPER 2;” VOCE GANH 
OU ": LET CP=CP+BET*2: GOTO 200 
0 

2800 LET Z=C(CC): GOSUB 5500 
2805 IF VA>10 THEN ГЕТ VA=10 
2810 FOR K=C TO 2: LET W(K)=W(K 
J+VA: NEXT K 

2820 IF VA=C AND AF=B THEN LET 


W(2)=W(2)+10: LET AF=C 

2822 IF W(1)<22 AND X=25 THEN 
PRINT PAPER 2; INK 7;AT 21,B;" 

MAO DE CINCO! ": GOTO 2000 
2825 GOSUB 7000 
2830 LET X-X*6: GOTO 2610 

A linha 2500 provoca um segundo de 

pausa e, entào, o programa inicia a jo- 
gada da banca. A 2510 coloca zero no 
sinalizador de naturais e no sinalizador 
de ases da banca, e acerta as coordena- 
das da primeira carta. 


DIETS D D e EC] 


As duas cartas iniciais so **viradas'" 
pelo FOR...NEXT entre as linhas 2520 
e 2550; a linha 2530 mostra as cartas. 
A 2540 atribui o valor dez às cartas de 
figuras, antes que a 2545 some seu va- 
lor com o total da banca (dois totais, se 
houver um ás). A 2546 soma dez a W(2), 
se uma das cartas for um ás, e coloca 
1 no indicador de ases. A linha acerta 
a posição da próxima carta. 

A linha 2560 verifica se foi obtido um 
natural, anunciando a vitória da banca, 
se for o caso. O indicador de naturais 
da banca passa a valer 1. Se o jogador 
também tem um natural — linha 2600 
—, 0 programa vai à rotina que cuida 
das mensagens: “quem tem o que” e 
“quem venceu”. Após a pausa da linha 
2610, a linha 2630 verifica se a banca es- 
tourou; em caso afirmativo, surge a 
mensagem A BANCA ESTOUROU. A 
linha 2635 verifica se o maior dos totais 
— quando há um ás — excedeu 21. O 
programa só considera o menor total. 
Se a banca tiver menos de 16 pontos, a 
linha 2800 vira outra carta. 


QUER MAIS CARTAS? 


As linhas 2660 e 2670 decidem se a 
banca quer outra carta. Não há regra fi- 








xa para isso. Não vale a pena impor um 
limite acima do qual a banca não pede 
mais cartas, pois ela se tornará previ- 
sível e o jogador logo saberá como 
derrotá-la. кор introduzir um 
fator de incerteza (como fazemos aqui), 
que torne impossível prever quando a 
banca vai parar de pedir cartas. 

Para isso, o programa deverá fazer 
o computador se comportar de manei- 
ra semelhante a um ser humano. 
Coloque-se no lugar da banca: tendo um 
total de 20 pontos, você se sentiria me- 
nos inclinado a pedir outra carta do que 
se tivesse 16. Quando o computador 
compara PR com um número randômi- 
co, introduz-se um fator de incerteza e, 
ao mesmo tempo, a decisão passa a de- 
pender do valor da mão da banca. 


RESULTADO FINAL 


A linha 2700 troca o valor de W(2) pe- 
lo de W(1), se W(2) contiver mais de 21. 
Se a banca conseguir 21 pontos, a linha 
2710 imprime na tela a mensagem A 
BANCA PAGA SOMENTE NATU- 
RAIS E MÁOS DE CINCO. Caso pos- 
sua uma mão inferior a 21, a linha 2720 
escreve A BANCA OBTEVE, seguido 
de um valor um ponto mais alto que o 
total alcançado pela banca. 

A linha 2730 compara o total do jo- 
gador com o da banca. Quando esta 
vence, a linha 2730 informa o fato; ca- 
so contrário, a linha 2740 anuncia a vi- 
tória do jogador e calcula o novo total 
de fichas. 

A parte final do programa — linhas 
2800 a 2830 — cuida da distribuição das 
cartas da banca. 

A linha 2805 atribui dez pontos às 
cartas de figura. O valor da carta é so- 
mado ao de W(1) e W(2) na linha 2810. 
Se houver um ás, à linha 2820 cabe exe- 
cutar as alterações necessárias antes que 
a linha 2822 verifique se se conseguiu 
uma mão de cinco. A linha 2825 ajusta 
o monte de cartas, preparando uma no- 
va distribuição. A linha 2830 calcula a 
posição onde a carta vai ser desenhada. 


Apague o GOTO 86 do final da linha 
650 e adicione as linhas seguintes: 


500 GOSUB 4000:GOTO 540 

510 CX=CX+32:GOSUB 3500:NC=NC+1 

530 IF DL>21 THEN 620 

540 DT=DL+10*(DA AND(DL<12)):IF 

DT=21 AND NC=2 THEN GOSUB 5000 

:РВІМТФІ, "A BANCA TEM UM NATURA 
:GOSUB 5500:GOTO 610 


550 IF NC-5 THEN GOSUB 5000:PRI - 














NT&1,"A BANCA TEM UMA MÃO DE CI 
NCO":GOSUB 5500:GOTO 610 

560 R=20-DT:IF RND(1)*100<R*R*R 
OR DT<16 OR PS-1 THEN 510 

570 GOSUB 5000:IF P5-1 THEN PRI 
NT41,"VOCE£ TEM UMA MÃO DE CINCO 
” ELSE PRINT41,"Você tem”;PT 
580 GOSUB 5500:GOSUB 5000:PRESE 
T(8,80) :PRINTA1,"A banca paga в 
omente”;: PRESET(8,92):IF DT<21 
THEN PRINT41,"totais maiores ou 
iguais a";DT*l ELSE PRINT41,"n 
aturais e mãos de cinco" 

590 GOSUB 5500:1F P5=1 THEN 630 
600 IF DT<PT THEN 630 

610 GOSUB 5000:PRINT41,"A banca 
venceu” :GOSUB 5500:GOTO 690 
620 GOSUB 5000:PRINT41,"A banca 
estourou. Vocé venceu":GOSUB 5 
500:GOTO 640 

630 GOSUB 5000:PRINT41,"Vocé ve 
nceu":GOSUB 5500 

640 MN=MN+2*BT:GOSUB 5000:GOSUB 
7000:GOTO 700 

650 GOSUB 5000:PRINT41,"VOC£ ТЕ 
М ОМ NATURAL” :PF=1:GOSUB 5500 
660 GOSUB 4000:TF DL=11 THEN GO 
SUB 5000:PRINT41,”MAS A BANCA T 
EM UM TAMBÉM":GOSUB 5500:GOTO 6 
10 

670 сото 630 

690 1F MN<1 THEN GOSUB 5000:PRI 
NT41,"Suas fichas acabaram” :GOS 
UB 5500:GOTO 790 

700 IF PF-1 THEN GOSUB 5000:PRI 
NT41,"Embaralhando as cartas”:G 
OSUB 5500:GOSUB 1500:GOTO 750 
710 NF-N IF NA>N THEN NF=N+51 
720 FOR X=NF TO NA*l STEP -1:Q- 
INT ( (X-NA) *NA) : T-8Q(X) :SQ(X) -SQ 
(0) :50(0) =Т:МЕХТ:ТЕ МА>М№ THEN 7 
40 

730 FOR X=0 TO 9:SQ(X+52)=SQ(X) 
:NEXT:GOTO 750 

740 FOR X=0 TO 9:5Q(X)=SQ(X+52) 
¿NEXT 

790 GOSUB 5000:PRINT41,"Quer јо 
Qar novamente (S/N)?":CLOSEl 
800 А5-ІМКЕҮ5:ІҒ А9<>"М" АМО АЗ 
<>"М" ТНЕМ 800 

810 IF A$-"S" THEN RUN 

820 COLOR 15,4,4:END 

3500 GOSUB 1000:GOSUB 2000:IF N 
M=1 THEN DA=1 

3510 IF NM>10 THEN DL=DL+10 ELS 
E DL=DL+NM 

3520 RETURN 

4000 NN=N:N=D1:CX=31:CY=105:G0S 
UB 3500 

4010 N=D2:CX=63:GOSUB 3500:N=NN 
4020 NC=2:RETURN 


Antes da banca jogar, vêem-se na te- 
la a mão do jogador e as duas cartas da 
banca fechadas. A banca abre, então, 
suas cartas — a linha 500 chama a sub- 
rotina 4000. Esta abre a primeira carta, 
chamando inicialmente outra sub- 
rotina, da linha 3500, que cuida do de- 
senho das cartas e calcula os pontos da 
banca. Na linha 4010 a segunda carta é 








49% aberta, chamando-se a sub-rotina nova- 


Ooo 
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mente, depois que a posição horizontal 
da carta foi modificada. O número da 
carta é atualizado e a sub-rotina termi- 
na na linha 4020. 

A linha 510 muda e acerta a posição 
horizontal da carta seguinte e chama a 
sub-rotina da linha 3500. Assim, a ban- 
ca recebe uma nova carta. A linha 530 
verifica se a banca ultrapassou 21 pon- 
tos; a linha 620 avisa o jogador, se for 
o caso. Se a banca conseguiu um natu- 
ral, o indicador de naturais da banca 
passa a valer 1 e o jogador recebe uma 
mensagem. A linha 550 detecta mãos de 
cinco. 


AS DECISÕES DA BAN 


A parte mais interessante do progra- 
ma está na linha 560, que faz o compu- 
tador decidir se quer ou não mais car- 
tas. Seria mais fácil que a máquina pa- 
rasse de pedir cartas quando atingisse 
um determinado total — 19, por exem- 
plo. Porém, seria igualmente fácil para 
o jogador derrotar a banca, uma vez que 
soubesse do fato. É necessário, portan- 
to, introduzir um fator de incerteza na 
decisão do computador, tornando-a im- 
previsível. Isso não significa que se de- 
va programar uma estratégia suicida — 
fazendo, por exemplo, com que a ban- 
ca habitualmente peça mais cartas, já 
tendo 20 pontos. 

Criamos, então, uma variável R, 
igual a 20, menos os pontos da banca. 
A seguir, um número qualquer entre O 
e 100 é escolhido ao acaso e comparado 
com R*R*R. Se o número for menor, 
se a banca tiver menos de 16 pontos ou 
se o jogador conseguir uma mão de cin- 
со, o computador pede mais uma car- 
ta. O modo como calculamos R faz a 
chance da banca pedir mais cartas dimi- 
nuir à medida que seu total de pontos 
aumenta. Raramente ela pedirá mais 
cartas já tendo 19 pontos, mas quase 
sempre o fará quando ainda tiver 16. 

Usando o mesmo raciocínio e modi- 
ficando um pouco a linha 560, pode- 
mos, além de variar a dificuldade do jo- 
go, fazer com que a banca jogue 
baseando-se também nas cartas abertas 
do jogador, por exemplo. 


0 RESULTADO FINA! 


A linha 570 mostra o valor da mão 
do jogador, apontando a ocorrência de 
uma mão de cinco, se for o caso. A li- 
nha 580 indica as mãos que vencem a 
banca. Se o jogador tiver uma mão de 
cinco e a banca não, a linha 590 exibe 
a mensagem VOCÊ VENCEU. De mo- 


19 













































do semelhante, a linha 600 compara os 
totais do jogador e da banca, informan- 
do o resultado através da linha 610 ou 
da linha 630. 

Quando o jogador vence, a linha 640 
acrescenta as fichas ganhas às que o jo- 
gador já tinha. Sempre que alguém con- 
segue um natural, as cartas são emba- 
ralhadas. A linha 700 verifica o indica- 
dor de naturais e as linhas 710 a 740 em- 
baralham as cartas. 

Após o anúncio de que o jogador con- 
seguiu um natural, a linha 660 verifica 
se a banca obteve o mesmo tipo de mão. 
Em caso afirmativo, vence a banca e a 
linha 610 indica o resultado. Se o joga- 
dor ganhar, caberá à linha 670 informar 
o fato. 

Quando se acabam as fichas do jo- 
gador, a linha 690 diz VOCÊ PERDEU 
TODAS AS FICHAS. 

Finalmente, uma pequena rotina (li- 
nhas 790 a 820) oferece ao jogador a op- 
ção de jogar novamente. 
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4010 N = D2:CX = 60: GOSUB 3500 
:N = NN 

4020 FOR K = 1 TO 3500: 
NC = 2: RETURN 


NEXT : 


Como o programa completo é muito 
extenso, utilizamos a página gráfica 2. 
Nunca use a página 1, pois o programa 
será danificado. 

Quando a vez de jogar passa à ban- 
ca, as cartas do jogador e as duas car- 
tas fechadas do adversário aparecem na 
tela. A banca, em primeiro lugar, abre 
suas cartas — a linha 500 chama a sub- 
rotina 4000, que abre a primeira carta 
da banca chamando outra sub-rotina, 
da linha 3500. Esta sub-rotina liga o mo- 
do gráfico da página 2, sem apagar seu 
conteúdo, desenha a carta e calcula o to- 
tal de pontos. A linha 4010 abre a se- 
gunda carta, que chama a mesma sub- 
rotina após ter modificado a posição ho- 
rizontal da carta. O número da carta é 
atualizado e a sub-rotina termina na li- 
nha 4020. 

A linha 510 calcula a posição hori- 
zontal da nova carta e volta a chamar 
a sub-rotina 3500. Assim, a banca rece- 
be mais uma carta. A linha 520 provo- 
ca uma pausa antes que a linha 530 ve- 
rifique se a banca não ultrapassou os 21 
pontos — a linha 630 informa o fato, 
se necessário. A linha 540 verifica se a 
banca obteve um natural; em caso afir- 
mativo, coloca 1 no indicador de natu- 
rais e exibe uma mensagem na tela. A 
linha 550 detecta uma mão de cinco. 


AS DECISÓES DA BANCA 


A parte mais interessante do pro- 
grama está na linha 560, que faz o com- 
putador decidir se quer ou náo mais 
cartas. Seria mais fácil programar a 
máquina de modo que parasse de pedir 
cartas sempre que atingisse um deter- 
minado valor — 19, por exemplo. Mas 
seria igualmente fácil para o jogador 
derrotá-la, uma vez que tivesse conhe- 
cimento dessa estratégia inflexível. É ne- 
cessário introduzir no programa um ele- 
mento de acaso, que torne as decisões 
da banca imprevisíveis. Não devemos, 
porém, programar o computador com 
uma estratégia suicida — que faça a 
banca pedir sempre mais cartas, já ten- 
do 20 pontos, por exemplo. 

Criamos, assim, uma variável R, 
igual a 20, menos o total de pontos da 
banca. Um número qualquer entre O e 
100 é escolhido e comparado com 
R*R*R. Se o número for menor, se a 
banca tiver menos de 16 pontos ou se o 
jogador conseguir uma máo de cinco, o 
computador pede mais uma carta. A 


maneira como calculamos R faz com 
que a chance da banca pedir cartas di- 
minua á medida que seu total de pon- 
tos aumenta. Raramente ela pede mais 
uma carta já tendo 19 pontos, mas quase 
sempre o fará quando ainda tiver 16. 


0 RESULTADO FIN. 


A linha 570 mostra o total de pontos 
do jogador. A linha 575 indica uma mão 
de cinco. As linhas 580 e 585 informam 
quais os tipos de mão que a banca está 
pagando. 

Se o jogador tiver uma mão de cinco 
€ a banca não, a linha 590, após uma 
pequena pausa, exibe na tela VOCÊ 
GANHOU. De modo semelhante, a li- 
nha 600 compara os totais do jogador 
e da banca; o resultado é dado pelas li- 
nhas 610 ou 630, dependendo do 
vencedor. 

Quando o jogador ganha, a linha 640 
acrescenta as fichas obtidas às que ele 
já possuía. Sempre que alguém conse- 
gue um natural, as cartas são embara- 
Ihadas. A linha 700 verifica o indicador 
de naturais e as linhas 710 a 740 emba- 
ralham as cartas. 

A linha 660 entra em agáo quando o 
jogador obtém um natural, verificando 
se a banca conseguiu a mesma coisa — 
neste caso, a banca ganha e o progra- 
ma segue na linha 610. Caso contrário, 
a 670 informa a vitória do jogador, 

A linha 690 avisa que as fichas do jo- 
gador acabaram. 

Finalmente, as linhas 790 a 820 
oferecem-lhe a opção de jogar outra vez. 


O programa completo é tão extenso 
que invade a primeira página — MA — 
da tela do TK-2000. Assim, para con- 
cluir o programa, as partes anteriores 
devem ser carregadas na página dois. 
Digite MP antes de carregar o programa 
— incompleto ou depois de terminado. 
Nunca volte à MA. 

As alterações que os usuários do 
TK-2000 devem fazer para completar 
seu jogo são as mesmas do Apple, com 
exceção das seguintes linhas (não se es- 
queça de apagar o GOTO 190 do final 
da linha 650): 


540 DT = DL + 10 * (DA AND (DL 
€ 12)): IF DT = 21 AND NC = 27 
HEN GOSUB 5000: PRINT "A BANCA 
TEM UM NATURAL”:PF = 1: GOSUB 
6000: GOTO 610 

550 IF МС = 5 THEN GOSUB 5000 
* PRINT "A BANCA TEM UMA MAO DE 
CINCO": GOSUB 6000: GOTO 610 
570 GOSUB 5000: IF P5 = 1 THEN 





PRINT "VOCE TEM UMA MAO DE CI 
NCO”: GOSUB 6000: GOTO 580 
575 GOSUB 5000: PRINT "VOCE TE 


M ";PT: GOSUB 6000 
580 GOSUB 5000: PRINT "A BANCA 
PAGA ";: IF DT < 21 THEN PRIN 
T "VALORES MAIORES OU IGUAIS A 
"¡DT + 1: GOSUB 6000: GOTO 590 
585 PRINT "NATURAIS E MAOS DE 
CINCO APENAS”: GOSUB 6000 
610 GOSUB 5000: PRINT "A BANCA 
GANHOU”: GOSUB 6000: GOTO 690 
620 GOSUB 5000: PRINT "A BANCA 
ESTOUROU. VOCE GANHOU”: GOSUB 
6000: GOTO 640 
630 GOSUB 5000: 
NHOU": GOSUB 6000 
660 GOSUB 4000: GOSUB 5000: IF 
DL = 11 THEN PRINT "MAS A BAN 
CA TEM A MESMA COISA": GOSUB 60 
00: GOTO 610 
690 GOSUB 5000: IF MN < 1 THEN 
PRINT "VOCE PERDEU TODAS AS F 
ICHAS": GOSUB 6000: GOTO 790 
700 IF PF = 1 THEN PRINT "EMB 
ARALHANDO AS CARTAS”: GOSUB 150 
0: GOSUB 6000: GOTO 750 
790 PRINT "QUER JOGAR NOVAMENT 
E (S/N) ?" 
3500 GOSUB 1000: GOSUB 2000: I 
F NM = 1 THEN DA = 1 
4000 NN = N:N = DI:CX = 6:CY = 
110: GOSUB 3500 


PRINT "VOCE GA 


Você precisará, portanto, recorrer à 
listagem do Apple para fazer as demais 
modificações. 

Ав diferenças entre o programa do 
TK-2000 e do Apple devem-se à ausén- 
cia de uma página exclusiva para textos 
no primeiro computador. Assim, as 
mensagens têm que ser impressas na pá- 
gina gráfica. 

As explicações sobre o funcionamen- 
to do programa são as mesmas, com 
uma exceção: na linha 3500 não ligamos 
a tela de alta resolução como no Apple, 
pois nunca saímos dela. 































Antes de acrescentar as linhas seguin- 
tes, apague o GOTO 190 do final da li- 
nha 650. 


500 GOSUB 4000:GOTO 540 

510 CX=CX+50:GOSUB 3500:NC=NC+1 

520 FOR K=1 TO 1725:NEXT 

530 IF DL>21 THEN 620 

540 DT=DL+10*(DA AND(DL<12)):IF 

DT=21 AND NC=2 THEN CLS: PRINT” 

A BANCA TEM UM NATURAL” :PF=1:G 

OTO 610 

550 IF NC=5 THEN PRINT” A BANCA 

ТЕМ UMA MAO DE CINCO” :GOTO 610 

560 R=20-DT:IF RND(100)<R*R*R O 

R DT<16 OR P5=1 THEN 510 

570 CLS:IF P5-1 THEN PRINT” VOC 

E TEM UMA MAO DE CINCO” ELSE PR 

INT" VOCE TEM";PT 

580 PRINT" A BANCA PAGA";:IF DT 

<21 THEN PRINT DT+1 ELSE PRINT 

" SOMENTE NATURAIS E MAOS DE 
CINCO" 

590 FOR K=1 TO 500:NEXT:IF P5=1 

THEN 630 

600 IF DT<PT THEN 630 

610 PRINT” A BANCA GANHA” :GOTO 

690 

620 CLS:PRINT” A BANCA ESTOUROU 
VOCE GANHA” :GOTO 640 

630 PRINT ” VOCE GANHOU DA BANC 

А" 

640 MN=MN+2*BT:GOTO 700 

660 GOSUB 4000:IF DL=11 THEN PR 

INT:PRINT” MAS A BANCA OBTEVE O 

MESMO VALOR” :GOTO 610 

670 GOTO 630 

690 PRINT:IF MN<1 THEN PRINT ” 

VOCE PERDEU TODAS AS FICHAS” :GO 

TO 790 

700 IF PF=1 THEN PRINT:PRINT” À 

BANCA EMBARALHA AS CARTAS 

APOS OBTER O NATURAL” :GOSUB 150 

0:GOTO 750 

710 NF=N-1:IF NADN THEN NF=N+51 

720 FOR X-NF TO NA*1 STEP-1:Q=R 

ND (X-NA) *NA-1: T*SQ(X) :SQ(X) *SQ( 
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Q):SQ(Q)-T:NEXT:IF NADN THEN 74 
0 


730 FOR X=0 TO 9:SQ(X+52)=SQ(X) 
:NEXT:GOTO 750 

740 FOR X=0 TO 9:SQ(X)=SQ(X+52) 
:NEXT 

790 PRINT:PRINT” QUER RECOMECAR 


(S/N)?” 
800 AS=INKEYS:IF AS<>”S” AND AS 
<>"N” THEN 800 
810 IF A$-"S" THEN CLS:GOTO 170 
820 END 


3500 SCREEN 1,1:GOSUB 1000:GOSU 
В 2000:ІҒ NM=1 THEN DA=1 

3510 IF NM>10 THEN DL=DL+10 ELS 
EDL=DL+NM 

3520 RETURN 

4000 NN=N:N=D1:CX=6:CY=108:GOSU 
B 3500 

4010 N=D2:CX=56:GOSUB 3500:N=NN 
4020 FOR K=1 TO 2000:NEXT:NC=2 
RETURN 


Quando a vez de jogar passa á ban- 
ca, véem-se na tela a máo do jogador e 
as duas cartas fechadas de seu adversá- 
rio eletrónico. A banca, em primeiro lu- 
gar, abre suas duas cartas — a linha 500 
chama a sub-rotina 4000, que abre a pri- 
meira carta chamando outra sub-rotina, 
na linha 3500. Esta liga a tela de alta re- 
solução, desenha a carta e calcula os 
pontos. A segunda carta é aberta pela 
linha 4010, que chama a mesma sub- 
rotina após ter modificado a posição ho- 
rizontal da carta. O número da carta é 
ajustado e a sub-rotina termina na linha 
4020. 

A linha 510 calcula a posição hori- 
zontal da nova carta e chama a sub- 
rotina da linha 3500. Assim, a banca re- 
cebe mais uma carta. A linha 520 pro- 
voca uma pausa antes que a 530 verifi- 
que se a banca tem mais de 21 pontos 
— a linha-620 informa o fato, se neces- 
sário. A linha 540 verifica se a banca 
conseguiu um natural; em caso afirma- 





























































A sido — 
tivo, coloca 1 no indicador de naturais 
e exibe uma mensagem na tela. Mãos de 
cinco são detectadas pela linha 550. 

A parte mais interessante do progra- 
ma está na linha 560, quê faz o compu- 
tador decidir se quer ou não mais car- 
tas. Seria mais fácil programar a máqui- 
na de maneira que ela parasse de pedir 
cartas quando atingisse um determina- 
do valor — 19, por exemplo. Mas seria 
igualmente fácil para o jogador derrotá- 
la, uma vez que tivesse conhecimento 
dessa estratégia de jogo. Por isso, é ne- 
cessário introduzir no programa um ele- 
mento de acaso, que torne as decisões 
da banca imprevisíveis. Por outro lado, 
não podemos munir o programa de uma 
estratégia suicida, que faça, por exem- 
plo, com que a banca frequentemente 
peça mais cartas, já tendo obtido 20 
pontos. 

Criamos, assim, uma variável R, 
igual a 20, menos o valor da mão da ban- 
ca. O programa escolhe ao acaso um nú- 
mero entre 1 e 100 e o compara com 
R*R*R. Se o número for menor, se a 
banca tiver menos de 16 pontos ou se o 
jogador conseguir uma mão de cinco, a 
banca pede mais uma carta. A maneira 
como calculamos R faz com que a chan- 
ce da banca pedir cartas diminua à me- 
dida que seu total de pontos aumenta. 
Raramente ela pedirá mais cartas tendo 
já 19 pontos, mas quase sempre o fará 
quando tiver apenas 16. 


0 RESULTADO FINAL 


A linha 570 mostra o total de pontos 
do jogador ou indica uma mão de cin- 
co. A linha 580 informa quais os tipos 
de mão a banca vai pagar. 

Se o jogador obteve uma mão de cin- 
co e a banca não, a linha 590 exibe na 
tela a mensagem VOCÊ GANHOU. De 
modo semelhante, a linha 600 compara 
os totais do jogador e da banca; o re- 
sultado é dado pelas linha 610 ou 630, 
dependendo do vencedor, 

Quando o jogador ganha, a linha 640 
acrescenta as fichas obtidas às que ele 
possuía. Sempre que alguém obtém um 
natural, as cartas são embaralhadas pe- 
las linhas 710 a 740. A linha 700 verifi- 
ca o indicador de naturais. 

A linha 660 entra em ação quando o 
jogador consegue um natural, verifican- 
do se a banca conseguiu mão igual. Se 
a banca vencer, a linha 610 anuncia. Ca- 
so contrário, a linha 630 informa a vi- 
tória do jogador. 

A linha 690 avisa que o jogador per- 
deu todas as fichas. 

Finalmente, as linhas 790 a 820 ofe- 
recem-lhe a opção de jogar novamente. 


A ordenação é um dos aspectos fun- 
damentais do processamento de infor- 
mações. Os computadores são muito rá- 
pidos na manipulação de dados e a or- 
denação destes é um ponto importantís- 
simo para tornar a informação acessí- 
vel à análise e correção. 

Imagine como seria difícil encontrar 
as referências a um determinado assun- 
to em um livro, sem o auxílio de um іп- 
dice. Ou procurar um número numa lis- 
ta telefônica sem que os nomes estives- 
sem em ordem alfabética. Estamos, nos 
dois casos, diante de listas de informa- 
ções, nas quais, ao contrário de uma lis- 
ta de compras, por exemplo, os itens são 
arranjados ou ordenados numa ordem 
específica: a alfabética. Em outros ca- 


sos — como na ordenação das notas de 
uma classe —, os itens estariam arran- 
jados em ordem numérica. 

Muitos tipos de programa fazem uso 
de rotinas de ordenação, inclusive os 
programas de jogos, que comparam pla- 
cares. Essas rotinas, porém, são mais 
comumente encontradas em programas 
que lidam com grande quantidade de 
dados, como os de controle de arquivos, 
mala direta etc. 


0 QUE É ORDENACAO 


Ordenar é, simplesmente, colocar de- 
terminado conjunto de dados em uma 
ordem específica — algo como arru- 





mar as cartas de um baralho. 

A posição relativa de dois itens quais- 
quer em geral se baseia em uma supe- 
rioridade numérica ou alfabética de um 
sobre outro. 

Em ordenações numéricas, valores 
maiores vêm sucessivamente antes ou 
depois dos menores. Em ordenações al- 
fabéticas, as letras são colocadas, suces- 
sivamente, das mais próximas do início 
até as mais próximas do fim do alfabe- 
to, ou vice-versa. 

Pode-se também fazer ordenações em 
base alfanumérica, ou seja, levando-se 
em conta letras e números. Mas sempre 
haverá a prioridade de uns sobre outros 
— as letras quase sempre têm mais im- 
portância que os números. 








o alfa 
ciais isso pode ser inve 


A ORDENACÁO TIPO BOLHA 


A mais simples rotina para ordena- 
ção é a chamada ordenação tipo bolha. 
Você já viu um exemplo dela no artigo 
da página 292. Agora, examinaremos o 
processo em maior detalhe. Para acom- 
panhar o que acontece, use cartas de ba- 
ralho ou, então, recorte e numere alguns 
pedaços de papel. 

Coloque esse grupo de cartas (ou pe- 


[sete] 
[dois] 
[seis] 
[dez] 


Em uma ordenação tipo bolha, o pri- 
meiro valor — aqui, o dez — é compa- 
rado com o seguinte do conjunto, ha- 
vendo uma troca, se o valor deste for 
menor (o que ocorre no nosso caso). O 
dez é então comparado com o dois, com 
o sete e com o três, mudando sempre de 
lugar, porque é o maior valor a cada 


no. 
Assim, depois da primeira passagem, 
o arranjo das cartas ficou assim: 


[dez] 
[trés] 
[sete] 
[dois] 
[seis] 


última 


meira 


O processo reinicia com a nova pri- 
meira carta, O seis, que é, então, com- 
parada e trocada com a anterior, visto 











que tem valor maior. Mas, em seguida, 
é comparada com o sete que, por sua 
vez, é maior. As comparações conti- 
nuam, então, com este valor, enquanto 
o seis fica na segunda posi 
é comparado com o três e depois com 
o dez, subindo apenas um posto, já que 
encontrou um valor maior. 

A nova ordem das cartas, após a se- 
gunda passagem, é a seguinte: 





última [dez] 
[sete] 
[trës] 
[seis] 
primeira [dois] 


A primeira carta, o dois, é compara- 
da com a anterior. O seis ganha e fica 
na mesma posigáo. Comparado com o 
trés, o seis troca de lugar com ele, mas 
fica agora parado nesta posição, uma 
vez que é menor que o sete e o dez. A 
ordenação terminou, pois não há mais 
trocas a se fazer. 

A ordem das cartas é, então: 


última [dez] 
[sete] 
[seis] 
[trés] 
primeira [dois] 


O computador faria uma ültima pas- 
sagem por essa nova ordem das cartas, 
para se certificar de que nào há mais tro- 
cas a fazer, e só pararia se realmente nào 
houvesse. 

Durante a execução da rotina um cer- 
to número de comparações e trocas foi 
feito. Essas duas operações estão incluí- 
das em qualquer rotina de ordenação. 
A diferença entre tais rotinas consiste 
apenas no número de operações que são 
executadas e, consequentemente, по 
tempo gasto. 

Vejamos agora outros exemplos, 
usando esta seqiiéncia de números: 


fim 
19 47 38 11 9% 


início 
67 35 72 





O primeiro da lista é o 67. Ele é com- 
parado e trocado com o 35, mas pára 
aí. O maior valor neste ponto é 72, que 
é comparado e trocado sucessivamente 
com 19, 47, 38, 11, até que encontra o 
96; a rotina, então, recomeça a compa- 
ração desde o primeiro número. 

A lista abaixo mostra todo o proces- 
so. Os itens submetidos a comparação 
estão entre parênteses. 


(62)(35) 72. 19 4 з n 96 
35 (67)(72) 19 47 38 11 96 
35 6 0(72)(19) 47 38 11 96 


35 67 19 (720047) 38 п 96 
35 6 19 47 (720038) 11 96 
% 67 19 47 38 (72)(11) 96 
% 67 19 47 38 11 (72)(96) 

(359067) 19 47 М ип 72 96 
35 (67 )(19) 47 38 п 72 9 
35 19 (67547) 38 п 72 96 
3 19 47 (67)(38) 11 72 96 
3 19 47 38 (67) 11) 72 96 
3 19 47 38 11 (67372) 9% 
3 19 4 3 11 67 (72396) 

(35,019) 47 38 11 67 72 96 
19 (35)(47) 38 11 67 72 96 
19 35 (47)(38) 11 67 72 96 
19 35 зв (4700110) 69 72 96 
1 9 35 38 11 (47)(67) 72 9% 
19 35 38 11 47 (67)(72) 96 
19 35 зв п 47 67 (72)(96) 


(199025) 38 п 4 6 72 96 
19 (350008) 1 € 67 72 96 
19 35 (38)(11) 47 67 
19 35 11 (38)(47) 67 72 96 
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(67) 72 
19 11 35 38 47 (67372) 
1з 11 35 38 4 61 (220096) 
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) 
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Vejamos agora como se comporta a 
rotina de ordenação tipo bolha na for- 
ma de programa. Ela está colocada co- 
mo a sub-rotina 1000. 

Grave o programa para que possa 
adicionar outras rotinas mais tarde. 


10 РОКЕ 23658,8: LET Т=0: 
INPUT "NUMERO DE ITENS ";АА: 
IF AA<2 THEN GOTO 10 

15 DIM A(AA) 

20 PRINT '''"TABELA DESORDENA 
DA": PRINT 

30 FOR Z=1 TO AA 

40 LET A(Z)=INT (RND*100)+1 
50 PRINT TAB Т;А(2);: LET T=T 
+4: IF T>30 THEN ГЕТ Т=0 

60 NEXT Z 


70 PRINT : PRINT : PRINT "PRE 
SSIONE '0' РАВА ORDENAR” 
80 ГЕТ КҘ=ІМКЕҮҘ: IF K$<>"0” 


ТНЕМ СОТО 80 
90 GOSUB 1000 
100 PRINT : PRINT "TABELA ORDE 


NADA”: PRINT 

110 LET T=0: FOR Z=1 TO AA 
120 PRINT TAB T;A(Z);: LET T=T 
+4: IF T>30 THEN LET T-0 

130 NEXT Z 

140 GOTO 10 

999 REM ORDENACAO BOLHA (BUBBLE 
SORT) 


1000 FOR Z=1 TO AA-1 

1010 І.ЕТ 22-0 

1020 FOR Y=1 TO AA-Z 

1030 IF A(Y+1)<A(Y) THEN LET X 
=A(Y): LET A(Y)=A(Y+1): LET A(Y 
+1)=X: LET ZZ=1 

1040 NEXT Y 

1050 IF ZZ-0 THEN RETURN 

1060 NEXT Z: RETURN 


анаи 5196] 


10 PRINT:PRINT:INPUT"NUMERO DE 
ITENS";AA:IF AA<2 THEN 10 

15 DIM A(AA) 

20 PRINT:PRINT"TABELA DESORDENA 
DA":PRINT 

30 FOR Z=1 TO AA 

40 A(Z)=INT(RND(1)*100)+1 


50 PRINT A(Z), 

60 NEXT Z 

70 PRINT:PRINT:PRINT"PRESSIONE 
"0" PARA ORDENAR” 

80 GET K$:IF K$<>"0” THEN 80 
90 GOSUB 1000 

100 PRINT:PRINT:PRINT"TABELA OR 
DENADA" 

110 PRINT:FOR Z-1 TO AA 

120 PRINT A(Z), 

130 NEXT Z 

140 RUN 

999 REM ORDENACAO BOLHA (BUBBLE 
SORT) 

1000 FOR Z=1 TO AA-1 

1010 22-0 

1020 FOR Y=1 TO AA-Z 

1030 IF A(Y+1)<A(Y) THEN X=A(Y) 
:¡A(Y) =A(Y+1) :A(Y+1)=X:22=1 
1040 NEXT Y 

1050 IF ZZ=0 THEN RETURN 

1060 NEXT Z:RETURN 


O programa acima roda apenas no 
Apple e no TK-2000. Faça as seguintes 
alterações para adaptar o programa à 
sua máquina: 


40 A(Z) -RND(100) 

50 PRINT A(Z); 

80 K$=INKEY$:IF K$<>"0" THEN 80 
120 PRINT A(Z); 


PU 


5 R=RND(-TIME) 

80 K$-INKEYS:IF K$«»"O" THEN 80 
1030 IF A(Y+1)<A(Y) THEN SWAP A 
(Ү) ,А(Ү%1):22-1 


Execute o programa. Inicialmente, 
ele pedirá a quantidade de itens que vo- 
cê quer ordenar, criando um conjunto 
de números pseudo-randômicos baseado 
na sua resposta. Estes são mostrados na 
tela sob o título “TABELA DESORDE- 
NADA”, Uma mensagem pede que vo- 
cê tecle “0” para iniciar a ordenação. 

A rotina começa a tuncionar, con- 
cluindo a ordenação em cerca de um se- 
gundo, se os itens forem poucos. Em se- 
guida, o conjunto de números é exibi- 
do na tela. No artigo da página 292 vo- 
cê encontrará mais detalhes sobre esta 
rotina e verá também o algoritmo em 
forma de diagrama. 

Para que você possa comparar as di- 
versas rotinas, é interessante que crono- 
metre o tempo gasto em cada uma de- 
las. Incorpore a rotina seguinte ao pro- 
grama, a fim de que o computador fa- 
ça isso para você. Os usuários do Ap- 
ple II ou compatível precisarão utilizar 
o seu relógio... 





90 TIMER-0:GOSUB 1000:PRINT:PRI 


NT" TEMPO: ";TIMER/50;"SEGUNDOS 


90 POKE 16920,0:POKE 16919,0:GO 
SUB 1000:PRINT"Tempo:";PEEK(169 
20) ;"m";PEEK(16919) ;"s" 


90 POKE 23672,0: POKE 23673,0 
: GOSUB 1000: PRINT : PRINT ( 
PEEK 23672*256*PEEK 23673)/50 
1” SEGUNDOS" 


nau 


90 TIME-0:GOSUB1000:PRINT:PRINT 
"Tempo: ";TIME/60;" segundos" 


Para iniciar a cronometragem e a or- 
denação, pressione “0” quando a men- 
sagem aparecer. O tempo gasto pela ro- 
tina para ordenar os dados é exibido e 
o programa recomeça automaticamente. 

Provavelmente você gastaria muito 
mais tempo do que a máquina para exe- 
cutar a mesma tarefa. Porém, pelos pa- 
drões computacionais, o tempo gasto 
pela ordenação tipo bolha é extrema- 
mente longo. Por essa razão, não se cos- 
tuma usá-la em sua forma original em 
programas de manipulação de dados, a 
não ser para listas muito pequenas. 

Mas veja que, surpreendentemente, 
ela se mostra mais veloz que todas as ou- 
tras quando se trata de reordenar uma 
lista à qual se adicionou um item. Em 
um programa que armazena endereços 
comerciais, por exemplo, podemos or- 
denar as novas entradas separadamen- 
te e depois incorporá-las à lista princi- 
pal. Outra alternativa é reordenar a lis- 
ta toda a cada nova entrada. 

Nessas circunstáncias, a rotina tipo 
bolha náo faz nada mais que comparar 
o novo dado com os outros, até que sua 
posição correta seja encont „ А геог- 
denação de uma lista equivale, assim, à 
comparação de dois itens. E isso é feito 
rapidamente. 


A ROTINA DE SHELL 


As duas versões mais utilizadas da ro- 
tina tipo bolha são as rotinas de Shell 
e de Shell-Metzner. Ambas devem ser 
consideradas quando o número de itens 
саад ordenados ultrapassa а casa dos 

ez. 

A rotina de Shell emprega uma téc- 
nica de busca binária que funciona di- 
vidindo sucessivamente a lista original 
ao meio, até que a posição do item em 
questão seja encontrada, A cada divi- 



























são, um novo par de valores é compa- 
rado. A rotina termina quando faz uma 
passagem completa sem trocas. 

Uma rotina de Shell tem, tipicamen- 
te, a forma mostrada aqui. Adicione-a 
ao seu programa e mude o número do 
GOSUB da linha 90 para testá-la. 


1999 REM ORDENACAO SHELL 

2000 LET Z=AA 

2010 TF Z<=1 THEN RETURN 

2020 LET Z=INT (2/2): LET Y=AA- 
2 

2030 LET 22-0 

2040 FOR X=] TO Y 

2050 LET XX=X+Z 

2060 IF A(X)>A(XX) THEN 
=A(X): LET A(X)=A(XX): 
)=YY: LET 22=1 
2070 NEXT X 

2080 ІҒ 2220 THEN 
2090 GOTO 2010 


LET YY 
LET А(ХХ 


GOTO 2030 





1999 REM ORDENACAO SHELL 
2000 Z=AA 

2010 IF Z<=1 THEN RETURN 
2020 Z=INT(Z/2):Y=AA-Z 
2030 22-0 

2040 FOR X=1 TO Y 

2050 XX-X*Z 

2060 IF A(X)>A(XX) THEN YY=A(X) 
ТА (Х) «А (ХХ) :А (ХХ) =ҮҮ:22=1 
2070 NEXT X 

2080 IF Z2>0 THEN 2030 
2090 GOTO 2010 


PARA UMA ORDENAÇÃO MAIS RÁPIDA 

A velocidade de qualquer rotina de 
ordenação aumenta muito quando a in- 
formação é oferecida já semi-ordenada. 
Isso é importante sobretudo no caso da 
ordenação tipo bolha. 

Se os itens vão ser ordenados cro- 
nologicamente, por exemplo, deve- 
mos armazenar as datas na forma 
ANO/MÉS/DIA, em vez da mais usual 
DIA/MÉS/ANO. Dessa maneira, aplica- 
se a ordenação inicialmente ao grupo 
completo e, depois, aos subgrupos. 

O processo seria muito mais demo- 
rado se ordenássemos inicialmente os 
dias, para depois reordenar alguns da- 
dos em função dos meses, repetindo 
finalmente todo o trabalho em função 
dos anos. 

Uma sub-rotina adicional poderia ser 
usada para inverter a sequência usual 
de entrada da data para uso da rotina 
de ordenação. 








a A 


Se o seu micro é da linha MSX, mu- 
de a linha 2060 para: 


2060 IF A(X)>A(XX) THEN SWAP A( 
X) ,A(XX) :2Z=1 
Para melhor compreender o funcio- 
namento da rotina, vamos examinar em 
detalhe um exemplo. Suponhamos que 
devemos ordenar uma lista de números 
apresentada nesta ordem: 
67 35 72 19 47 38 11 9% 
A rotina divide a lista em duas ou- 
tras e compara o primeiro valor de ca- 
da uma delas. Se o primeiro valor da pri- 
meira lista é maior, ocorre uma troca, 
Neste exemplo, os Valores 67 e 47 são 
comparados e trocados. 
47 35 72 19 67 38 11 96 
Após a troca, o par de valores seguin- 
te é comparado — 35 e 38, Nesse caso, 
náo há troca. A rotina compara, entáo, 
72 e 11, trocando-os e, por fim, 19 e 
96, obviamente sem troca. A lista fica 
assim: 
4 3 H 19 67 38 72 96 
Neste ponto, cada metade é nova- 
mente dividida: 
41735: 011 19-5 67 38 72 96 
A rotina compara e troca o primeiro 
valor, 47, com o terceiro, 11. Depois, 
compara e troca o segundo, 35, com o 
quarto, 19. O 35 assume agora a quarta 
posição. O valor no terceiro posto, 47, 
que já foi trocado uma vez, é compara- 
do com 67. Desta vez não há troca. O 
quarto valor, 35, é comparado com 38 
e permanece onde está. O quinto valor, 
67, é comparado com o sétimo, 72, e fi- 
ca na mesma posição. Por fim, 38 e 96 
süo comparados e nào trocam de lugar. 
Veja abaixo a seqüéncia. Como no 
exemplo anterior, os valores compara- 
dos estão entre parênteses. Verifique 
se, na linha seguinte, alguma troca foi 
efetuada: 





(47) 35 : (11) 19 : 67 38 : 72 96 
11 (35): 47 (19): 67 38 : 72 96 
11 19 : (47) 35 : (67) 38 : 72 96 
11 19 : 47 (35): 67 (38): 72 96 
11 19 : 47 35 :(67) 38 : (72) 9 
11 19 : 47 35 : 67 (38): 72 (96) 
11 19 ; 47 35 : 67 38 : 72 96 


A lista é, então, dividida da seguinte 
maneira: 


1:19:47:35:67:38:72:% 





Os valores são novamente compara- 
dos dois a dois. Como você pode obser- 
var, a rotina compara somente valores 
adjacentes: o primeiro com o segundo, 
o segundo com o terceiro, o terceiro com 
o quarto e assim por diante, até o fim 
da lista: 


Шу: (19):47:35:67:38:72: 
11 :(19) :(47): 35 : 67 : 38 : 72: 
и :@7): (35): 67:38:72: 
11 : 19 : 35 :(47):(67): 38 : 72 96 
11: 
11 


$2335 


: 19 : 35: 47 :(67):(38): 72 : 
: 19 : 35 : 47 : 38 :(67): 09% 


A rotina faz o mesmo até os últimos 
valores, que já estão em ordem, e volta 
ao início: 


(11) : (19) : 35 : 47 : 38 : 67 : 72 :96 
11 : (19) :(35): 4 8:6 2 :96 
11 : 19 :(35):(47): 38 : 67 : 72 :96 








* 




















+ 


11 : 19 : 35 :(47):(38): 67 : 72 :96 
11 : 19 : 35 : 38 :(47):(67): 72 :96 


Embora a lista já esteja ordenada, o 
computador executa mais uma passa- 
gem completa. Cada novo valor pode 
agora ser comparado com essa lista co- 
mo o faz a rotina tipo bolha — isto é, 
estabelecendo comparações aos pares. 


A ROTINA DE SHELL-METZNER 


A rotina de ordenação de Shell- 
Metzner, derivada da rotina de Shell, é 
ainda mais rápida e utiliza o mesmo 
princípio de busca binária. 


2999 REM SHELL-MELTZNER SORT 
3000 LET Z=AA 
3010 LET Z=INT (2/2) 


3020 IF Z=0 THEN RETURN 

3030 LET Ү-АА-2: І.ЕТ 22-1 

3040 LET Х-22 

3050 LET XX=X+Z 

3060 IF A(X)<=A(XX) THEN GOTO 
3090 

3070 LET W=A(X): LET A(X)=A(XX) 
: LET A(XX)=W: LET X=XK-Z 

3080 IF X>=1 THEN GOTO 3050 
3090 LET 22=22+1 

3100 IF ZZ<=Y THEN GOTO 3040 
3110 GOTO 3010 





2999 REM ORDENACAO 
ER” 

3000 LET Z=AA 
3010 Z=INT(Z/2) 
3020 IF Z=0 THEN RETURN 

3030 Y=AA-Z:ZZ=1 

3040 Х=22 

3050 XX=X+Z 

3060 IF A(X)<=A(XX) THEN 3090 


'SHELL-METZN 


3070 W=A(X) :A(X)=A(XX) A(XX) =W: 
X=X-Z 

3080 IF X>=1 THEN 3050 

3090 22-22%1 

3100 IF ZZ<=Y THEN 3040 

3110 GOTO 3010 


Se vocé trabalha com um MSX, be- 
neficie-se de seu poderoso BASIC, tro- 
cando a linha 3070 para: 


3070 SWAP A(X) ,A(XX) :X=X-Z 


Adicione esta rotina ao seu programa 
de demonstração e para experimentá-lo 
será preciso modificar a referência de 
linha da linha 90. 

Como você vai notar, ela é muito 
mais rápida que as outras rotinas, o que 
fica evidente especialmente se a compa- 
ramos com a rotina tipo bolha para mais 
de cingiienta números. 













Aventura que se preze, com reis, rai- 
nhas e castelos, não dispensa a partici- 
pação de um temível dragão. 

Não é difícil incluir esse personagem 
em seus jogos. Para criá-lo e dar-lhe ani- 
mação — fazendo com que cuspa fogo 
—, você pode utilizar as técnicas já vis- 
tas nos programas do sapo e do tanque, 
apresentados no artigo publicado à pá- 
gina 341. 


Para montar o ““quadriculado” na 
memória do computador, usaremos o 
programa dado no artigo anterior. O 
Apple, o TK-2000 e também o MSX nào 


precisam desse tipo de programa. A lis- 
tagem para o Spectrum e o TRS-Color 
encontra-se naquele artigo. 

Depois de carregar — ou digitar — 
o programa criador de quadriculado, 
use RUN para fazé-lo funcionar. Quan- 
do o programa acabar de rodar, di- 
gite NEW e «ENTER». (Nada dis- 
so se aplica ao MSX, ao Apple e ao 
TK-2000.) Em seguida, digite o progra- 
ma adequado para seu computador. 

Os usuários do Apple, do TK-2000 e 
do MSX precisarão carregar — ou digi- 
tar — o programa do tanque, pois as li- 
nhas apresentadas neste artigo são mo- 
dificações a serem feitas naquele progra- 
ma, e não funcionarão sozinhas. 








Em todos os computadores, exceto 
no MSX, use as teclas P, L, X e Z para 
mover o dragáo. No MSX devem ser uti- 
lizadas as teclas do cursor. A barra de 
espaço faz o dragão cuspir fogo. 


10 FOR n*USR "a" TO USR "t"*7 
: READ a: POKE n,a: NEXT n 
20 LET print-32400: LET b= 
32402: IF PEEK 23733-2255 THEN 
LET print-65200: LET b-65202 





90 BORDER 7: PAPER 7: INK 4: 
CLS : PRINT AT 8,15;: RAND 
USR print 

100 LET y-8: LET x-15: LET yl- 
8: LET xl-1 LET z-1 











HS 





ғаш ande, 


— 


| 





Vimos, em artigo anterior, como 
desenhar e dar movimento a um tanque 
de guerra e a um sapo. Com as técnicas 
e programas já apresentados, desenhe 
também um dragão que cospe fogo. 


110 LET aS=INKEYS: IF a$="" 
THEN GOTO 110 


115 IF a$=" " THEN GOTO 200 








120 ІҒ а5-"2" AND x>1 THEN 
LET xl-x-l: LET z*1 

130 IF a$="x" AND x<28 THEN 
LET xl-x*1l: LET 2-2 

140 IF a$="p” AND y>0 THEN 
LET yl=y-1 

150 IF a$="1" AND y<19 THEN 
LET yl=y+1 

160 PRINT AT y,x;: POKE b,0: 
RAND USR print 

170 LET x-xl: LET y-yl 

180 PRINT AT y,x;: POKE b,z: 


RAND USR print 

190 GOTO 110 

200 IF z-2 THEN GOTO 300 

220 PRINT ІМК 6;АТ у,х-1;СНВ5 


162 
230 PAUSE l 
240 PRINT AT y,x-l;" " 


260 GOTO 110 

300 PRINT INK 6;AT y,x*3;CHR$ 
163 

310 PAUSE 1 

320 PRINT AT y,x*3;" " 

330 сото 110 

1000 DATA 6,214,249,63,240,0,3, 
15,96,64,192,224,224,192,196,20 
4,0,0,0,0,0,0,0,0 

1010 DATA 63,125,107,245,249,12 
7,127,51,244,196,194,255,128,19 
2,224,240,0,0,0,2,6,14,6,10 
1020 DATA 55,23,7,3,1,0,4,7,254 
,255,239,239,224,192,128,128,56 
,240,192,0,0,0,0,0 





п COMO COLOCAR UMA NOVA 
FIGURA NO QUADRICULADO 








" MOVIMENTOS NA TELA 
= FAÇA O DRAGÃO 
CUSPIR FOGO 








1030 DATA 0,0,0,0,0,0,0,0,6,2,3 
.7,7,3,35,51,96,107,159,252,15, 
0,192,240 

1040 DATA 0,0,0,64,96,112,96,80 
,47,33,65,255,1,3,7,15,252,190, 
182,175,159,254,254,204 

1050 DATA 28,15,3,0,0,0,0,0,127 
,255,247,247,7,3,1,1,236,232,22 
4,192,128,0,32,224 
1060 DATA 8,68,50,139,50,68,8,0 
,16,34,76,145,76,34,16,0 

5000 FOR i-1 TO 5 

5010 SAVE "MC0301" 

5020 NEXT i 





20 PCLEAR 5 








— 






















CLEAR 200, 
FOR 1=32300 TO 32587 
READ N 
60 РОКЕ І,М 
МЕХТ 
DIM A(2),B(2),C(2) 
PMODE 4,1 
PCLS 
FOR I=1536 TO 1760 STEP 32 
READ N 
POKE І,М 
NEXT 
GET (0,0)-(7,7),A 
FOR 1=1536 TO 1760 STEP 32 
READ N 
РОКЕ І,М 
190 МЕХТ 
200 СЕТ (0,0)-(7,7).В 
PCLS 
220 SCREEN 1,0 
230 T=1 
DP=3500 
POKE 32700, INT(DP/256) 
POKE 32701,DP-256*XINT (DP/25 








POKE 32250,T+DT*2 

EXEC 32000 

LP=DP 

IF PEEK(338)=251 THEN DP=DP 
-32:GOTO 360 

310 IF PEEK(342)=253 THEN DP=DP 

































O dragão do TRS-Color é formado por 
blocos gráficos de oito por oito pontos. 








+32:GOTO 360 
320 IF PEEK(340)=247 THEN DP=DP 
-1:T=T+1:DT=1:GOTO 360 

330 IF PEEK(338)=247 THEN DP=DP 
+1:T=T+1:DT=0:GOTO 360 

340 IF INKEYS=" " AND T=2 GOSUB 
410 

350 GOTO 300 

360 IF DP<1536 OR DP>6941 THEN 
DP=LP 

370 IF T>2 THEN T=1 

380 POKE 32250,0 

390 EXEC 32000 

400 GOTO 250 

410 IF DT=1 GOTO 470 

420 YP=INT((DP-1536)/32) 

430 XP=8*(DP-1533-YP*32) 

440 IF XP>255 THEN 530 

450 PUT (XP, YP)-(XP+7,YP+7),A 
460 GOTO 510 

470 YP=INT((DP-1536)/32) 

480 XP=8*(DP-1537-YP*32) 

490 IF XP<O THEN 530 

500 PUT (XP,YP) -(XP*7, YP*7) ,B 
510 FOR I-1 TO 200:NEXT 

520 PUT(XP,YP) - (XP*7, YP*7) ,C 
530 RETURN 

540 DATA 0,0,0,0,0,0,0,0,6,2,3, 
7,7,3,35,51,96,107,159,252,15,0 
‚192,240 

550 DATA 0,0,0,0. 64, 96, 112, 9 
6,47,33,65,255,3,7, 
15, 31, 248,188 182, 
175,159,255,254,254 
560 DATA 
80,28,15,7,1,0,0,0, 
63,255,255,255,255, 
15,2,3,252,248,252, 
252, 248, 48,82,222 
570 DATA 0,0,0,0,0,0,0,0,0,6,2, 
3,7,7,3,33,0,96,107,159,252,15, 
192,240 

580 DATA 0,0,0,64,96,112,96,80, 
49,47,33,47,49,99,7,15,252,190, 
182,175,159,254,254,156 

590 DATA 28,15,3,0,0,0,0,0,127, 
255,239,239,15,6,2,3,220,216,19 
2,128,0,0,64,192 

600 DATA 6,214,249,63,240,0,3,1 
5,96,64,192,224,224,192,196,204 
,0,0,0,0,0,0,0,0 

610 DATA 31,61,109,117,249,255, 
127,127,244,196,194,255,192,224 
+240,248,0,0,0,0,2,6,14,6 





620 DATA 63,31,63,63,31,12,74,1 
23,252,255,255.255,255.240.64,1 
92,10,56,240,224,128,0,0,0 

630 DATA 0,6,214,249,63,240,3,1 
5,0,96,64,192,224,224,192,132,0 
,0,0,0,0,0,0,0 

640 DATA 63,125,109,245,249,127 
,127,57,140,244,132,244,140,198 
.224,240,0,0,0,2,6,14,6,10 

650 DATA 59,27,3,1,0,0,2,3,254, 
255,247,247,240,96,64,192,56,24 
0,192,0,0,0,0,0 

660 DATA 0,16,34,76,145,76,34,1 





6 
670 DATA 0,8,68,50,137,50,68,8 


na 


As linhas a seguir são modificações 
que devem ser feitas no programa que 
move o tanque de guerra. 


5 CLEAR 1000:COLOR 12,15,12 

20 FOR I=1 TO 32*4 

25 READ A:AS=AS+CHRS (A) 

30 NEXT І 

35 FOR I-1 TO 32*4 

40 READ B:B$*B$*CHR$(B) 

45 NEXT I 

50 SPRITES (0) =LEFTS(AS,32) 

55 FOR I=1 TO 3 

60 SPRITES (I)=MIDS(AS,1*32+1,32 


65 NEXT I 

70 SPRITES$(4)*LEFTS (B$, 32) 

75 FOR I=5 TO 7 

80 SPRITES(I)=MIDS (BS, (1-4) *32+ 


1,32) 

85 NEXT I 

110 X=100:Y=90:F=1 

111 PUTSPRITEO, (X+16,Y-8),12,0 
112 PUTSPRITEl, (X+16,Y+8),12,1 


113 
500 
510 
515 
516 
600 


PUTSPRITE2, (X, Y*8) ,12,2 
PUTSPRITEO, (X+16,Y-8),12,0 
PUTSPRITEl, (X+16,Y+8),12,1 
PUTSPRITE2, (X, Y*8) ,12,2 
PUTSPRITE3, (X*32,209),12,3 
PUTSPRITEO, (X*16,Y-8),12,4 
610 PUTSPRITEl, (X*16,Y*8) ,12,5 
615 PUTSPRITE2, (X*32,Y*8) ,12,6 
616 PUTSPRITE3, (X,209),12,7 

700 PUTSPRITEO, (X+16,Y-8),12,0 
710 PUTSPRITE1, (X+16,Y+8),12,1 
715 PUTSPRITE2, (X, Y*8) , 12,2 

716 PUTSPRITE3, (X*32,Y) ,6,3 
800 PUTSPRITEO, (X*16,Y-8),12,4 
810 PUTSPRITE1, (X+16,Y+8),12,5 
815 PUTSPRITE2, (X+32,Y+8),12,6 
816 PUTSPRITE3, (X,Y),6,7 

5000 DATA 0,0,0,0,0,0,0,0,6,2,3 
.7,7,3,35,51,0,0,0,0,0,0,0,0,96 
+107,159,252,15,0,192,240 

5010 DATA 47,35,67,255,1,3,7,15 
,127,255,247,247,7,3,1,1,252,19 
0,182,175,159,254,254,204,232,2 
24,224,192,128,0,32,224 

5020 DATA 0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,64,96,112,96,8 
0,28,15,3,0,0,0,0,0 

5030 DATA 16,34,76,209,76,34,16 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

































5040 DATA 0,0,0,0,0,0 
.249,63,240,0,1,7,0,0 
,0,96,64,192,224,224, 
4 

5050 DATA 63,125,109,245,249,12 
7,127,51,23,7,3,1,0,0,4,7,244,1 
96,194,255,128,192,224,240,254, 
255,239,239,224,128,128,192 
5060 DATA 0,0,0,2,6,14,6,10,56, 
240,192,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0, 
5070 DATA 0,0,0,0 
,0,0,0,0,0,8,68,5 
0,0,0,0,0,0,0,0,0 


[ILS] 


Carregue o programa que move um 
tanque na tela usando DRAW; faça ne- 
le as seguintes modificações: 


0 
.0,0,0,0,0,0,0 
0,139,50,68,8, 


30 FOR I =E TO E +41 + 18 * 









32 

110 IF K$ - "Z" AND X > 16 THE 

N X = X - 3:F = 0: GOTO 140 

170 DRAW 1 AT LX,LY + 8 

180 DRAW 2 AT LX,LY + 16 

190 DRAW 3 AT LX + 8,LY 

200 DRAW 4 AT LX + 8,LY + 8 
205 DRAW 5 AT LX + 8,LY + 16 
210 DRAW 6 AT LX + 16,LY 

220 DRAW 7 AT LX + 16,LY + 8 

225 DRAW 8 AT LX + 16,LY + 16 
260 DRAW 11 AT LX,LY 

270 DRAW 12 AT LX,LY + 8 

275 DRAW 13 AT LX,LY + 16 

280 DRAW 14 AT LX + 8,LY 

290 DRAW 15 AT LX + 8,LY + 8 

295 DRAW 16 AT LX + B,LY + 16 
300 DRAW 17 AT LX + 16,LY + 8 
310 DRAW 18 AT LX + 16,LY + 16 
340 DRAW 1 AT X,Y + 8 

350 DRAW 2 AT X,Y + 16 

360 DRAW 3 AT X + 8,Y 

370 DRAW 4 AT X + 8,Y + 8 

375 DRAW 5 AT X + 8,Y + 16 

380 DRAW 6 AT X + 16,Y 

390 DRAW 7 AT X + 16,Y + 8 

395 DRAW 8 AT X + 16,Y + 16 

420 DRAW 11 AT X,Y 

430 DRAW 12 AT X,Y + 8 

435 DRAW 13 AT X,Y + 16 

440 DRAW 14 AT X + 8,Y 

450 DRAW 15 AT X + 8,Y + 8 

455 DRAW 16 AT X + 8,Y + 16 
460 DRAW 17 AT X + 16,Y + 8 

470 DRAW 18 AT X + 16,Y + 16 
510 DRAW 9 AT X + 30,Y 

540 DRAW 9 AT X + 30,Y 

570 DRAW 10 AT X - 12,Y 

600 DRAW 10 AT X - 12,Y 

2000 DATA 20 ‚0 ‚42 ‚0 ‚74 ‚0 
‚106 ‚0 ‚138 ‚0 ‚170 ‚0 ‚202, 
0,234 ‚0 ‚10 ‚1 ‚42 ‚1 ‚74 ‚1 
‚106 ‚1 ‚138 ‚1 ‚170 ‚1 ‚202 ‚1 
,234 ,1 ,10 ,2 ,42 ,2 ,74 ,2 , 
106 ,2 ,138 ,2 

2010 DATA 0 ,72 ,73 ,73 ,218 
,219 ,219 ,74 ,73 ,73 ,218 ,21 
9 ,27 ,87 ,109 ,73 ,209 ,219 ,5 
9 ,191 ,41 ,77 ,73 ,218 ,219 ,3 
1.23 ,0 ,0 ,9 ,0 ,0 
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О Spectrum, o MSX, o Apple e o TK-2000 utilizam este dragão como modelo. 


2020 DATA 0 
9 ,63 ,255 ,155 
19 ,219 ,155 ,73 ,73 ,137 ,219 
,219 ,155 ,73 ,73 ,137 ,219 ,21 
9 ,155 ,0,0,0,0,0,0 

2030 DATA 0 ,72 ,73 ,109 ,21 
8 ,223 ,219 ,74 ,73 ,41 ,213 ,6 
3 ,223 ,155 ,73 ,9 ,45 ,213 ,25 
5 ,219 ,83 ,105 ,9 ,173 ,59 ,22 
3 ,255 ,2 ,0 ,0 ,0 ,0 
2040 DATA 0 .72 ,13 ,45 
,59 ,223 ,251 ,10 ,77 ,9 
‚59 ,63 ‚63 ‚63 ‚78 ‚73 ‚9 
,255 ,219 ‚83 ‚73 ‚41 ‚173 
.63 ,223 ,19, 
2050 DATA O 
213 ,63 ,63 ,63 
5 ,213 ,63 ,31 
4173 ,59 ,223 
,213 ,223 ,219 ,19 ,0 
2060 DATA 0 ,8 ,109 ,73 
.255 ,31 ,191 ,77 ,45 ,45 ,213 
,27 ,63 ,63 ,119 ,73 ,45 ,173 
,219 ,219 ,155 ,109 ,73 ,137 ,2 
19 ,27 ,63 ,55 ,0 ,0 ,0 
2070 DATA 0 ,40 ,45 
,218 ,63 ,63 ,31 ,110 ,109 ,109 
,26 ,63 ,255 ,31 ,110 ,41 ,45 
,173 ,27 ,63 ,63 .63 ,46 ,45 ,4 
5 ,109 ,218 ,59 ,223 ,55 
2080 DATA 0 ,40 ,109 
09 ,219 ,31 ,63 ,46 ,109 
09 ,219 ,219 ,51 ,77 ,73 
219 ,219 ,155 ,9 ,77 ,73 
219 ,59 ,55 ,0 ,0 ,0 ,0 
2090 DATA 0 ,72 ,105 ,73 ,21 
8 ,223 ,251 ,10 ,77 ,109 ,209 , 
223 ,251 ,119 ,77 ,109 ,209 ,25 
1,27 ,159 ,73 ,77 ,137 ,219 ,2 
19 ,155 ,0 ,0 ,0 ,0 ,0 ,0 

2100 DATA 07,72 ,9 ,77 ,209 
+27 ,223 ,187 ,9 ,109 ,105 ,26 
.255 ,223 ,115 ,41 ,77 ,141 ,21 
9 ,223 ,187 ,73 ,105 ,137 ,219 


,72 ,41 ,109 ,20 
,73 ,73 ,173,2 


‚173 
‚173 
‚213 

‚59 





,8 ,45 
155 ,45 
+63 ,119 
‚219 ,74 


„45 ,45 , 
‚109 ‚4 
‚73 ,41 
73 ‚9 


‚209 


‚45 4,77 


‚109 ‚2 
73 42 
‚137, 
‚218, 




































,219 ,155 ,0 ,0 ,0 ,0 ,0 

2110 DATA O0 ,72 ,73 ,109 ,21 
8 ,255 ,31 ,55 ,45 ,45 ,77 ,213 
.63 ,63 ,255 ,42 ,45 ,77 ,137 
.219 ,219 ,155 ,73 ,73 ,173 ,59 
+63 ,223 ,19 ,0 ,0 ,0 

2120 DATA 0 ,72 ,45 ,45 ,173 
.251 ,63 ,63 ,87 ,109 ,109 ,21 
3 ,31 ,31 ,63 ,55 ,45 ,45 ,77 , 
213 ,63 ,63 ,63 ,87 ,45 ,45 ,45 
1213 ,255 ,59 ,159 ,0 
2130 DATA 0 ,72 ,109 ,45 
3 ,63 ,31 ,223 ,74 ,73 ,45 ,213 
.255 ,219 ,83 ,73 ,73 ,213 ,21 
9 ,219 ,83 ,73 ,105 ,209 ,63 ,2 
23 ,155 ,0 ,0 ,0 ‚0 ‚0 
2140 DATA O0 ,8 ‚109 
,219 ,219 ,23 ,109 ,73 
19 ,219 ,63 ,46 ,109 ,73 
219 ,219 ,55 ,109 ,9 ,77 
59 ,223 ,55 ,0 ,0 ,0 ,0 
2150 DATA O0 ,40 ,45 
,218 ,251 ,27 ,55 ,109 ,73 
4,59 ,63 ,63 ,63 ,110 ,73 
218 ,219 ,27 ,55 ,45 ,77 
18 ,219 ,63 ,55 ,0,0 
2160 DATA 0 ,40 ,45 ,45 ,109 
+26 ,63 ,63 ,63 ,55 ,45 ,13, 
45 ,173 ,59 ,63 ,31 ,63 ‚46, 
109,73 ,209 ,219 ,219 ,55 , 

77 ,73 ,137 ,219 ,219 ,27 ,6 
2170 БАТА 0,72 ,73 ,73 ,218 
.219 ,219 ,74 ,73,73,218 ,22 

3 .219 ,74 ,73 ,109 ,218 ,63,2 * 
23 ,83 ,73:,41 ,141 ,27 ,31 ,22 
3 ,19 ,0 ,0 ,0 ,0 ,0 

2180 DATA 0 
209,219 ,59 ,63 
.73 ,209 ,219 ,219 ,83 
‚73 ‚73 ,209 ‚219 
‚219 ,83 ,73 ,73 
+209 ,219 ,21 
92:19 ,0:,0 
.0 .0 ,0 


‚21 


+73 ,209 
+137 ,2 
‚209, 
‚218, 
+13 ,77 
‚141 
473, 
+73 ,2 








A | 


ANIMAÇÃO GRÁFICA 
NO TRS-COLOR 


Se você já sabe elaborar gráficos com 
UDG (Caracteres Definidos pelo Usuá- 
rio), é quase certo que queira movê-los 
pela tela. Para tanto, será necessário uti- 
lizar os comandos GET e PUT, que já 
vimos muitas vezes na seção Programa- 
ção de Jogos. 

Poderíamos imaginar o GET como 
um comando capaz de “fotografar” 
uma área retangular da tela de alta re- 
solução do TRS-Color. O que estiver 
naquela área — um UDG ou qualquer 
outro gráfico feito com LINE, CIRCLE 
ou DRAW — será armazenado numa 
matriz (veja artigo na página 192). 

PUT é o oposto de GET: ele ““colo- 
ca” a fotografia (conteúdo da matriz) 
em qualquer lugar da tela. Usar esse co- 
mando é muito mais rápido que redese- 
nhar o gráfico por outros métodos e, 
com ele, a idéia de movimento pode ser 
facilmente simulada: basta colocar 
(PUT) uma imagem em diferentes posi- 
ções na tela ou, então, colocar imagens 
diferentes repetidamente. 


BICICLETA 


Digite е rode este programa; ele usa 
GET e PUT para movimentar um UDG 
de uma bicicleta. 





10 PMODE 4,1:PCLS 

20 DIM BY(5) 

30 FOR K=1536 TO 1856 STEP 32 
40 READ A,B,C 

POKE K,A:POKE K*1,B:POKE K*2 


NEXT 
70 SCREEN 1,1 

80 GET (1,0)-(18,11),BY,G 

90 PCLS 

100 FOR K=0 TO 238 

110 PUT (K,90)-(K+17,100),BY,PS 
ET 


120 NEXT 

130 GOTO 90 

140 DATA 1,193,192,0,129,32,0,2 
55,64,1,134,0,14,139,128,19,86, 
64 

150 DATA 36,233,32,47,233,32,32 
,104,32,17,100,64,14,3,128 














































Com os comandos GET e PUT podemos 
armazenar figuras em matrizes e, mais 
tarde, trazê-las de volta à tela. 
Aprendendo a utilizá-los, você 

animará os mais variados desenhos. 


Os DATA (dados) das linhas 140 e 
150 são acessados e depois inseridos na 
tela, via comando POKE, nas linhas 30 
a 60. A bicicleta é desenhada no canto 
superior esquerdo, ou seja, no começo 
da tela. Quando você for inserir um grá- 








ENS 





fico na tela e depois usar GET e PUT, 
desenhe-o nessa posicáo, pois assim sa- 
berá exatamente onde ele está. Conver- 
ter posições de memória em posições 
de tela pode não ser fácil, devido a va- 
riações entre os PMODE. 


(8$ PROGRAMAÇÃOBASIC 5 НЕИН 

















Ш ANIMAÇÃO DEUMCARACTERE ІШ COMO DIMENSIONAR 
DEFINIDO PELO USUÁRIO (UDG) CORRETAMENTE UMA MATRIZ 

m O USO DE MATRIZES Ш COLOQUE O GRÁFICO 
COM OS COMANDOS GET E PUT , ONDE QUISER 

п “FOTOGRAFE” A TELA Ш TECNICAS DE ANIMAÇÃO 





A linha 80 faz um GET (ou “tira uma 
fotografia”) da bicicleta. A linha 90 lim- 
pa a tela antes que as linhas 100 e 120 
movimentem a bicicleta. A linha 110 
PUT (“coloca”) a bicicleta em uma po- 
sigáo diferente cada vez que passa pelo 
lago FOR...NEXT. 


COMO DIMENSIONAR UMA MATRIZ 


Sempre que usar GET num progra- 
ma, você precisará dimensionar (DIM) 
uma matriz para armazenar as informa- 
ções sobre o gráfico. Para calcular o ta- 
manho da matriz faça o seguinte: 

1) Depois de desenhar o gráfico, de 
preferência em papel quadriculado, tra- 
ce um retângulo, “enquadrando” intei- 
ramente a figura. Conte quantos qua- 
drados existem na primeira linha e quan- 
tos existem num dos lados. Multiplique 
estes dois números — o resultado será 
o número de quadrados que o desenho 
ocupa. Por exemplo: o retângulo que en- 
volve a bicicleta tem dezoito quadrados 
de largura por doze quadrados de altu- 
ra. Multiplicando-os, obtém-se o núme- 
ro total de quadrados, 216. 

2) Em seguida, calcule o número de 
bytes de memória necessário para arma- 
zenar todos esses quadrados. Em PMO- 
DE 3 e 4 divide-se o número de quadra- 
dos por 8, em PMODE 1 e 2 divide-se 
por 16, e em PMODE 0 por 32. Como 
a bicicleta foi desenhada em PMODE 4, 
divide-se 216 por 8, obtendo-se 27. O re- 
sultado deve ser um número inteiro de 
bytes e, por isso, às vezes é preciso 
ajustá«o. E, seja qual for o número ob- 
tido, temos sempre que arredondá-lo pa- 
ra cima, nunca para baixo. 

3) Para calcular o tamanho que deve 
ter a matriz, divida o número de bytes 
por 5 (o divisor é sempre 5, não impor- 
ta o PMODE que está sendo usado). 

Voltando ao exemplo da bicicleta: 
temos 27 bytes para armazenar na ma- 
triz; portanto, 27/5 = 5,4. Novamente, 
se o resultado não for inteiro, deve-se 
arredondá-lo para cima — 6, nesse ca- 
so, A linha 20 diz DIM BY (5) porque 
as matrizes começam em 0. 

Aqui está um resumo dos divisores 
necessários para calcular o tamanho das 
matrizes nos programas gráficos: 


Para calcular o número de: 


PMODE Bytes Matrizes 
8 5 
3 8 5 
2 16 5 
1 16 5 
0 32 5 


Pode-se usar GET com todo tipo de 
gráfico na tela de alta resolução do com- 
putador. Quer utilizemos um UDG, os 
comandos PSET e PRESET, DRAW, 
ou qualquer combinação de comandos 
gráficos, será sempre possível armaze- 
nar figuras em matrizes por meio de 
GET e colocá-las (PUT) de volta à tela 
mais tarde. 

Para armazenar um gráfico numa 
matriz previamente dimensionada, vo- 
cê precisará dizer ao computador onde 
encontrar o gráfico na tela e em qual 
matriz pretende armazená-lo. Vejamos 
esta linha do programa da bicicleta: 
80 GET(1,0)-(18,11),BY,G 

Os números nos parénteses sáo as 
coordenadas de cantos diagonalmente 
opostos do retángulo que envolve o grá- 
fico. Vocé pode especificar os cantos 
que quiser e em qualquer ordem, desde 
que sejam diagonalmente opostos. 

A área armazenada náo compreende 
todo o UDG que definimos, mas ape- 
nas as partes que realmente contém a 
imagem — porque a bicicleta náo ocupa 
toda a extensáo de 24 quadrados. Co- 
mo o GET náo nos limita a mover ape- 
nas imagens de oito por oito, podemos 
movimentar o que bem entendermos. 

Nacontinuação da linha 80, BY man- 
da o computador armazenar o gráfico 
na matriz BY, DIMensionada naTinha 20. 

G significa “detalhe Gráfico comple- 
to”, Pode-se omiti-lo em certos casos 
(que explicaremos depois), mas em ge- 
ral é aconselhável usá-lo. 

Se estiver usando UDG, convém sem- 
pre inseri-los (POKE) no canto superior 
esquerdo da tela, como foi dito anterior- 
mente, para facilitar o ajuste do GET. 
Lembre-se de que quando os inserimos 
na tela a posição da imagem não está 
contida em coordenadas comuns. O 
GET “fotografa” a imagem de uma cer- 
ta coordenada de tela e, por isso, será 
preciso converter a posição de memória 
na qual introduzimos os UDG em coor- 











denadas de tela equivalentes. Essa con- 
versão não é fácil, já que varia confor- 
me o PMODE. A inserção nas posições 
de memória do começo da tela (a partir 
da posição 1536) facilita o cálculo da 
coordenada de tela do UDG. O canto 
superior esquerdo deve estar na coorde- 
nada (0,0) e, sabendo o tamanho do 
gráfico, será simples calcular as coorde- 
nadas do canto inferior direito do UDG 
quando o “fotografarmos”. 


0 0 PUT 


Depois de empregarmos o GET para 
armazenar o gráfico na memória, deve- 
mos limpar a tela com PCLS, antes de 
colocá-lo (PUT) de volta na tela. 

Aqui está a linha do PUT no progra- 
ma da bicicleta: 


110 PUT (K,90)- (K+17,100),BY, 
PSET 


Dentro dos parênteses, como no 
GET, encontram-se as coordenadas dos 
cantos diagonalmente opostos que espe- 
cificam a área na qual queremos colo- 
car a imagem. BY é a matriz que con- 
tém a bicicleta. 

A última parte da linha é o PSET, 
que faz o computador colocar o gráfi- 
co na tela exatamente como foi desenha- 
do, sobrepondo-o ao que estiver naque- 
las posições. 

Existem, porém, outras opções. 
PSET pode ser substituído por PRE- 
SET, OR, AND, ou NOT, que nos per- 
mitem manipular o gráfico. 

PRESET diz ao computador para co- 
locar o gráfico na tela no modo inver- 
so. No modo de duas cores, estas se in- 
vertem; no de quatro (modo 0), o ver- 
melho fica verde, o azul fica amarelo e 
vice-versa; no modo 1, o laranja fica 
cinza, O ciano fica roxo e vice-versa. 

OR permite que se coloque o gráfico 
armazenado na matriz junto ao que já 
está na tela, Ambos permanecem inal- 
terados, o que não ocorre quando utili- 
zamos PSET, que elimina o que estiver 
na tela. 

AND mostra a junção do que já está 
na tela com o gráfico que se introduz na- 
quela posição. 

NOT não mostra nenhum conteúdo 
da matriz: simplesmente inverte a área 
da tela em que a matriz será colocada. 

A seguir, você verá a utilização des- 
ses comandos em um programa. 





10 PMODE 4,1 
20 DIM C(5),B1(5),B2(5) 
30 PCLS 


40 CIRCLE (7,7),7,1:PAINT (7,7) 
‚1,1 

50 GET (0,0)-(14,14),C,G 

60 PUT (0,0)=(14,14),C,NOT 

70 GET (0,0)-(14,14),B2,G 

80 PCLS1:SCREEN 1,0 

90 LINE(8,191)- (104,0) ,PRESET:L 
INE (24,191)- (120,0), ,PRESET:PAIN 
T(10,191),0,0 

100 LINE (104,191)-(200,0),PRES 
ET:LINE(120,191)- (216,0) , PRESET 
:PAINT(110,191),0,0 


110 FOR K-175 TO 0 STEP -10 

120 X=14+(175-K)/2 

130 PUT (X,K)-(X+14,K+14),C,OR 
140 PUT(X*96,K) - (X*110, K*14) ,C, 
OR 

150 FOR J=1 ТО 100:МЕХТ 

160 PUT(X,K)-(X*14,K*14) , BI, PSE 
T 

170 PUT(X*96,K)- (X*110, K*14) , B2 
, AND 

180 NEXT 

190 coTO 80 


Se observarmos bem as duas bolas 
subindo pela tela, veremos que sobram 
“pontas” ao longo das faixas pretas. Is- 
so acontece porque estamos tentando 
colocar um gráfico retangular dentro de 
um inclinado e, cada vez que o progra- 
ma introduz um quadrado preto (lacu- 
na) para “apagar” a posição anterior da 
bola, as “pontas” aparecem, 

Com a bola que caminha pela faixa 
da direita não ocorre esse problema. 
Usando uma combinação de PUT..., 
AND e PUT...,OR, as pontas são eli- 
minadas. A linha 60 inverte a bola na 
tela e, depois, a linha 70 armazena-a na 
memória. Quando o programa movi- 
menta a bola, a linha 140 coloca uma 
lacuna sobre a faixa com um 
PUT... OR, de maneira que a bola an- 
terior seja apagada por uma “figura'” 
de formato exatamente igual ao dela. 
Em seguida, um PUT...,AND coloca na 
tela a bola invertida. A combinação de 
NOT com AND permite que a linha 170 
introduza a bola na tela sem super- 
posição. 

Se você quiser colocar um gráfico 
na tela, num espaço que não seja re- 
tangular (um círculo num triângulo, 
por exemplo), desenhe primeiro o ob- 
jeto. Coloque-o de volta à tela com 

UT... NOT e “fotografe-o” (GET) 
numa matriz. Mais tarde, para mostrar 
o gráfico na tela, use PUT...,AND. 


QUANDO USARO G 


Dissemos anteriormente que, em cer- 
tos casos, pode-se omitir o G do final 
do comando GET. Para saber quando 
omiti-lo, vocë precisa de algumas infor- 
mações sobre a tela do computador. 

Nos PMODE 1, 3 e 4 a tela gráfica 


é dividida em 32 colunas verticais, cada 
uma com oito pontos de largura, en- 
quanto que nos PMODE 0 e 2 a tela é 
dividida em dezesseis colunas de dezes- 
seis pontos de largura cada. Qualquer 
que seja o PMODE usado, a largura de 
cada coluna na tela corresponde a um 
byte na memória, 

Pode-se omitir o G do comando GET 
quando o gráfico desenhado ocupa um 
número determinado de colunas e se 
quer movimentá-lo. Sem o G, bytes 
inteiros são armazenados na matriz de- 
clarada. Se o gráfico sobrepuser parte 
de colunas, vocé precisará armazenar 
partes de bytes na matriz. Em outras 
palavras, será preciso, de alguma manei- 
ra, armazenar bits da tela na matriz — 
eé esta a função do G- 

Retirando o G, você terá problemas 
com gráficos que sobrepõem outras colu- 
nas. Além disso; não poderá usar PSET, 
PRESET, OR, AND ou NOT no PUT 
correspondente. A omissão do G, portan- 
to, torna menos flexível o uso do PUT, 


ANIMACAO COM GET E PUT 


O GET e o PUT são especialmente 
úteis nos programas de animação gráfi- 
ca, Esta é feita, em geral, por meio de 
dois métodos. 

O primeiro deles consiste em usar 
uma matriz vazia (lacuna) para apagar 
o gráfico, antes de colocá-lo em outra 
posição na tela. Para evitar problemas, 
verifique antes se o tamanho da lacuna 
é o mesmo do gráfico. Esse procedimen- 
to já foi visto em vários artigos de Pro- 
gramagáo de Jogos. 

O segundo método, empregado na 
animagáo da bicicleta, utiliza uma mol- 
dura de pontos vazios ao redor do grá- 
fico. Depois que se decide quantos 
pontos o gráfico se moverá a cada pas- 
so, verifica-se se existe o mesmo núme- 
ro de fileiras de pontos rodeando o 
gráfico. Isso significa que o novo gráfi- 
co colocado na tela apaga o anterior. Se 
o gráfico se movesse para todas as dire- 
ções, quatro pontos a cada passo, por 
exemplo, precisaríamos de uma moldu- 
ra com quatro pontos de largura 
rodeando-o. No caso da bicicleta, o grá- 
fico se move um ponto de cada vez, da 
esquerda para a direita somente. Assim, 
quando ele foi armazenado, deixamos 
uma simples fileira de pontos vazios em 
seu lado esquerdo. 

Como exercício, tente animar outros 
desenhos usando GET e PUT. A única 
maneira de entender e se familiarizar 
com o uso dos comandos PSET, PRE- 
SET, OR, AND e NOT é experimentá- 
los em diversos gráficos e situações. 





Junte a capacidade de manusear dados 
com as funções gráficas do seu 

micro e desenvolva programas capazes 
de mostrar em um gráfico 

qualquer tipo de informação numérica. 


Armazenamento e processamento de 
dados são atributos típicos de qualquer 
computador. Contudo, não é fácil para 
o usuário assimilar grandes quantidades 


de informações. Se nos apresentarem, 
por exemplo, uma lista contendo milha- 
res de números, é muito difícil interpre- 
tar seu significado. 

Para entender melhor, dê uma olha- 
da na seguinte lista: 132.9, 146.2, 
132.89, 123.92, 147.01, 153.47, 132.09, 
138.79, 147.57, 153.9, 140.04, 142.76, 
152.76, 132.6, 135.09, 146.98. Agora 
responda rapidamente às seguintes per- 
guntas: qual é o maior número da lis- 
ta? Qual a sua posição na lista? Quan- 
tos números menores que 135.5 há nela? 


Como você vê, não é muito fácil dar 
respostas rápidas a essas questões. Ima- 
gine se a quantidade de números fosse 
cinco vezes maior! 

A maneira tradicional de tratar esse 
tipo de problema consiste em colocar a 
informação em um gráfico. Quando is- 
to é feito, torna-se fácil perceber qual 
é o ponto mais alto. Assim, com o au- 
xílio de uma régua na posição horizon- 
tal, podemos verificar quais os valores 
que estão acima ou abaixo de um deter- 
minado valor. 





No artigo Reúna Seus Dados em Grá- 
ficos (página 181), apresentamos um 
programa que mostra, sob a forma de 
um gráfico de barras, dados introduzi- 


dos no computador. O presente artigo 
trata das técnicas necessárias à confec- 
ção de gráficos lineares. Em lições pos- 
teriores, abordaremos os histogramas e 
outros tipos de gráfico. 

Como as rotinas deste artigo vão 
além das capacidades gráficas do ZX-81 
e do TRS-80, não apresentaremos pro- 
gramas para tais micros. 


GRÁFICOS DE FUNCÓES MATEMÁTICAS 


A estrutura de um programa depen- 
de do tipo de informação que queremos 
mostrar na tela. Quando há uma relação 
matemática ligando os dados, podemos 
usar uma função matemática. Os micro- 
computadores são dotados, por exem- 

plo, de funções trigonométricas — se- 

no, cosseno e tangente — que tor- 
nam fácil o traçado de curvas 
cíclicas, como já foi explica- 
do em artigos anteriores, 
ou como demonstra o 

seguinte programa: 


30 PLOT 0,76 

40 FOR t=0 TO PI*10 STEP .3 
50 DRAW 2,C0S t*15 

60 NEXT t 


nu 


10 COLOR 1,15,1 

20 SCREEN 2 

30 DRAW "BM0,95" 

40 FOR T=0 TO 40*ATN(1) STEP . 
6 

50 LINE -(8*T,95-40*SIN(T)) 
60 NEXT 

150 GOTO 150 


5] 


10 HOME : HGR 
30 HPLOT 0,145 
40 FOR T = 0 TO 279 STEP 4 

50 HPLOT TO T,95 + 50 * COS 
(T / 10) 

60 NEXT T 

150 END 


PMODE 3,1 
PCLS 


HCOLOR= 3 


SCREEN 1,1 

DRAW"BM0,95” 

FOR T=0 TO 40*ATN(1) STEP.06 
LINE- (8*T,95-40*SIN(T)),PSET 


NEXT 
150 GOTO 150 

Esse programa traga uma curva se- 

nóide, que tem muitas aplicagóes em 

ciência, tecnologia, música e traçados 

linha 40 estabelece que a cur- 

ciclos (menos no Apple). 

vezes PI. A linha 50 









à página 354), Alterando os valores nes- 
sas linhas (linha 50 no Apple), podemos 
variar consideravelmente a forma da 
curva. 

O micro tem um número limitado de 
funções embutidas, prontas para serem 
usadas, mas qualquer função matemá- 
tica pode ser desenhada, desde que a de- 
finamos dentro de um programa, 

Acrescente as próximas linhas ao pro- 
grama e execute-o novamente, 


70 PLOT 0,60 

80 FOR n=l TO 220 STEP 5 
90 DRAW 5, ((110-n)*15)/200 
NEXT n 

PLOT 0,100 

FOR n=1 TO 220 STEP 5 
DRAW 5,-((110-n)*15)/200 
NEXT n 


nu 


15 D=1:E=64 
70 COLOR 4 
80 DRAW"BMO,”+STRS (INT (109*D+E) 


) 
90 FOR T=-127 TO 128 


100 LINE -(127*T,T*T/150*D*E) 
110 NEXT 
120 1 THEN 150 





130 
140 


(41%)! 


5 D = 1:E = 64 
70 HCOLOR= 5 
80 HPLOT 0,64 * D * E 


E=E+64:COLOR 6 
GOTO 80 


90 FORT = - 139 TO 140 

100 HPLOT TO 139 + T,T * T / 
160 * D+E 

110 NEXT 

120 IF D= - 1 THEN 150 

130 D* - l:E * E + 64: HCOLOR 


-6 





140 сото 80 





10 D=1:E=64 
70 COLOR 3 
80 DRAW"BMO,”+STRS (INT (109*D+E) 


) 

90 FOR T=-127 TO 128 

100 LINE -(127+T,T*T/150*D+E) ,P 
SET 

110 NEXT 

120 IF D=-1 THEN 150 

130 D=-1:E=E+64:COLOR 2 

140 GOTO 80 


Temos agora duas parábolas, além 
da senóide, Os números necessários pa- 
ra sua elaboração são criados em um la- 
ço FOR..NEXT. O Spectrum, por 
exemplo, usa um laco para as parábo- 
las e outro para a senóide. 


GRAFICOS IRREGULARES 


A maioria dos gráficos, porém, está 
vinculada a números sem qualquer re- 
lação matemática entre si. Esses núme- 
ros podem representar, por exemplo, os 
valores da precipitação pluviométrica ao 
longo do ano ou a flutuação dos lucros 
e perdas de uma firma: esse tipo de da- 
do varia imprevisivelmente. Se fôssemos 
traçar o gráfico a mão, começaríamos 
pelos eixos cartesianos. Assim, façamos 
com que esta seja a primeira parte do 
programa: 


140 DRAW 0,175 
150 PLOT 0,0 
160 DRAW 255,0 


PSU 


5 COLOR 1,15,15 








10 SCREEN 2 

140 LINE (8,0)-(8,191) 
160 LINE (8,191)-(255,191) 
200 GOTO 200 


Ше)! 


10 HOME : HOR : HCOLOR= 3 
140 HPLOT 0,0 TO 0,159 
160 HPLOT 0,159 TO 279,159 
200 END 


5 PMODE 3,1 

10 PCLS 

15 SCREEN 1,1 

140 LINE (0,0)-(0,191),PSET 
160 LINE (0,191)-(255,191),PSET 
200 GoTO 200 


Nessas linhas, o programa seleciona 
um modo gráfico (menos no Spectrum, 
onde isso nào é necessário), colocando 
o eixo Y no lado esquerdo da tela, e o 
eixo X, embaixo 

Esta é a disposição usual dos eixos, 
mas podemos modificá-la conforme o 
intervalo a que pertencem os números 
em questão. Por exemplo, se tragarmos 
curvas a respeito da variação de tempe- 
raturas ou sobre ganhos e perdas, tere- 
mos (em alguns casos) a ocorrência de 
números negativos; dessa forma, o ei- 
xo X terá que se deslocar para uma po- 
sição mais alta na tela, 

Outra razão para mudar a disposição 
dos eixos é deixar espaço para números 
e legendas, sempre úteis quando se tra- 
ta de gráficos. Faça as próximas modi- 
ficações para ter um exemplo. 


130 PLOT 20,10 
140 DRAW 0,155 








































Posso modificar os programas de 
modo a misturar dados positivos e ne- 
gativos em um só gráfico? 

A rotina de entrada de dados não 
precisa ser modificada para aceitar nú- 
meros negativos; em contrapartida, as 
rotinas que cuidam dos eixos e dos grá- 
ficos exigem essa alteração. A maior 
dificuldade não é descobrir os valores 
máximo e mínimo, mas sim decidir em 
que ponto da tela colocar o eixo X. 

Se você se dispuser a mudar a po- 
sição desse eixo a cada novo grupo de 
dados, as modificações serão bastan- 
te simples. Para isso, observe atenta- 
mente os dados, escolha fatores de es- 
cala adequados e comece a desenhar 
a partir da origem dos eixos. 








E ес.) 


150 PLOT 20,10 
160 DRAW 235,0 


nau 


5 COLOR 6,15,15 

135 COLOR 1 

140 LINE (20,0)-(20,160) 
160 LINE (20,80)-(255,80) 


6] 


10 НОМЕ : НСА 

135 HCOLOR- 3 

140 HPLOT 20,0 TO 20,140 
160 HPLOT 20,70 TO 279,70 
200 END 





5 PMODE 3,1 

10 PCLS 

15 SCREEN 1,1 

135 COLOR 2 

140 LINE (20,0)-(20,160),PSET 
160 LINE (20,80)-(255,80),PSET 
200 GOTO 200 


Ao executar o programa, notaremos 
que há margens à direita e abaixo do 
gráfico. 


Para modificar o tamanho dessas 
margens, altere os valores nas linhas 130 
a 160, com o cuidado de que, no Spec- 
trum, as linhas 130 e 150 sejam 
idénticas. 

Agora, acrescente as próximas linhas 
para continuar e acompanhe o desenvol- 
vimento do processo. 


60 LET n-10 
70 PLOT 20,n 
80 FOR x*1 TO 12 
90 READ y 
100 DRAW 18,y-n 
105 LET n=y 
110 NEXT x 
1000 DATA 50,70,60,100,80,120,1 
00,130,70,140,90,110 


nu 


70 DRAW "BM20,160" 

80 FOR X=20 TO 20+11*20 STEP 20 
90 READ Y 

100 LINE- (X,161-Y) 

110 NEXT 

160 LINE (20,160)-(255,160) 
1000 DATA 140,123,148,45,100,10 
.20,8,45,8,45,30 
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15 HCOLOR= 5 

70 HPLOT 20,160 

80 FOR X = 20 TO 20 + 11 * 20 
STEP 20 


90 READ Y 

100 HPLOT TO X,141 - Y 
110 NEXT 

160 HPLOT 20,140 TO 279,140 


1000 DATA 130,113,138,35,90,5 
,20,8,45,8,45,30 





70 DRAW"BM20,160" 

80 FOR X-20 TO 20*11*20 STEP 20 
90 READ Y 

100 LINE -(X,Y),PSET 

110 NEXT 

160 LINE (20,160)-(255,160),PSE 


T 
1000 DATA 140,123,148,45,100,10 
+20,8,45,8,45,30 


O programa desenha doze pontos na 
tela, tomando os valores de X da linha 
80, e os de Y da linha 1000; em segui- 
da, ele une esses valores para formar um 
gráfico serrilhado. 

O primeiro valor da linha DATA é 


desenhado na extrema esquerda, em ci- 
ma do eixo dos Y, mas poderíamos tê- 
lo colocado na primeira posição dos X, 
modificando, assim, a localização inicial 
do cursor. 

Em todos os programas, menos no 
do Spectrum, essa localização é especi- 
ficada na linha 70; no Spectrum, isso é 
feito invariavelmente na linha 60. 

Se os valores vão ser usados várias ve- 
zes, convém distribuí-los em uma linha 
DATA. Mas, se quisermos traçar gráfi- 
cos com valores diferentes, é melhor 
usarmos o comando INPUT. 

Acrescente então a próxima linha. 15- 
so funciona em todos os gêneros de mi- 
crocomputadores, à exceção dos que são 
compatíveis com o MSX, que não acei- 
ta o comando INPUT quando está no 
modo gráfico. 


90 INPUT "Valor de Y ?”,y: 
LET y=y+10 


rie 


90 VTAB 22: 
2";Y 


INPUT "VALOR DE Y 






AE 








90 INPUT "VALOR DE Y "; 
130 SCREEN 1,1 

Ao ser executado, o programa pede 
o primeiro valor de Y. Em seguida, ele 
realiza a primeira volta do lago da linha 
80. Feito isso, ele torna a pedir um va- 
lor de Y, prosseguindo dessa maneira 
até que os doze valores sejam colocados 
na tela. 

Muitos usuários não gostam da inter- 
rupção que a rotina causa no traçado do 
gráfico. As seguintes modificações resol- 
vem o problema: 


20 DIM y(12) 

40 FOR n=1 TO 12 
50 INPUT "Valor de Y?",y(n): 
ТЕТ у(п) =у(п) +10 
60 МЕХТ п: СІЗ 
70 LET n=10 

80 PLOT 20,n 

90 FOR x=1 TO 12 
100 DRAW 18,y(x)-n 
105 LET n=y(x) 

110 NEXT x 














qu 
Escalamento é uma transforma: 
matemática dos eixos de um gráfico, 
de modo a fazer com que os seus ex- 
tremos (pontos máximo e mínimo) cai- 
bam nos limites de uma "janela"! no ví- 
Esta pode ocupar todo o vídeo, ou 













ро 
mente por diferentes 


Praticamente todos os gráficos ela- 
borados por programas exigem algum 
tipo de escalamento. A única exceção 
são os gráficos cujas coordenadas ho- 
rizontais e verticais se situam no domí- 
nio dos números inteiros positivos, e 
cujos valores máximos em cada 
não excedem em número de pixels a re- 
solução da tela na mesma direção. 

Suponhamos, por exemplo, que é 
rio colocar em gráfico duas va- 
X e Y, onde X varia de um mí- 
nimo de 10 a um máximo de 200, e Y 
varia de um mínimo de O a um máximo 
de 150. Nesse caso, se o computador 
or da linha Apple Il, que 
tem uma resolução gráfica máxima de 
280 pontos na horizontal por 192 pon- 
tos na vertical, não precisaremos esca- 
lar os eixos X e Y. Esse exemplo, po- 
rém, é uma exceção. 

Existem ainda casos em que basta 
escalar apenas um dos eixos. Entretan- 
to, na maioria das vezes, ambos os ei- 
xos precisam ser escalados. 

Do ponto de vista matemático, o 
método de escalamento consiste ape- 
nas em uma regra de três. A mesma 
fórmula pode ser aplicada tanto para o 
eixo horizontal como para o vertical, 
bastando trocar as variáveis x por y. A 
fórmula leva em conta os valores mí- 
nimo e máximo do eixo, o nümero de 
pontos gráficos que cabem nele, e se 
os valores numéricos identificadores 
marcas dos eixos (rótulos) serão 
rredondados ou não. 

A fórmula de escalamento 6: 






























,2-Х- хтіп ‚рх 
xmax — xmin 


onde: 

x' = valor escalado 

x = valor original 

xmin = valor mínimo da escala 

xmax = valor máximo da escala 

pix = número máximo de pixels do 
eixo, 











nau 


5 COLOR 1,15,15 

10 SCREEN 0 

20 DIM Y(11) 

40 FOR N=0 TO 11 

50 INPUT "Qual o valor de Y "¡Y 
(N) 

60 NEXT 

65 COLOR 6:8CREEN 2 

70 DRAW "BM20,"+STRS(INT(161-Y( 


0 
90 FOR X=20 ТО 11*20+20 8ТЕР 20 
100 LINE -(X,161-Y(N)) 
110 N=N+1 
120 NEXT 









65 HOME : HGR : HCOLOR= 
70 HPLOT 20,141 - Y(0) 
80 N = 0 

90 FOR X = 20 TO 11 * 20 + 20 


5 


20 
100 HPLOT TO X,141 - Y(N) 
1 































40 -0 TO 11 

50 "VALOR DE Y ";Y(N) 

60 

70 DRAW 20,"*STR$ (INT(161-Y( 
0))) 

80 N=0 

90 FOR X= 11*20+20 STEP 20 
100 LINE- )),PSET 

110 N=N+1 

120 NEXT 





primeiro a roti- 
ara depois fa- 






zer o gráfico. Os das 
na matriz Y ( ), como vi 
a Y (12) no Spectrum, e 
nos demais computadores. 
ra utilizar mais de doze núm 
redimensionar a matriz. Os vi 
X são obtidos na linha 90, e o 
é feito pela linha 100. A linha 11 
ta os valores de Y. 

















MO USAR ES 





А5 


Os valores para os gráficos foram es- 
colhidos até agora de modo a caber den- 
tro dos eixos e da tela. Geralmente, po- 
rém, os números que queremos colocar 
em um gráfico são maiores ou menores 










que o ideal. Precisamos, assim, de uma 
escala que os coloque dentro do inter- 
valo válido. A maneira mais simples de 
fazer isso é olhar todos os valores e de- 
cidir então qual é o fator que deveremos 
usar para multiplicar todos os números, 
de forma a mostrá-los no gráfico, 

A seguir, apresentamos o programa 
completo, isto é, com todas as modifi- 
cações necessárias. 


20 DIM y(12) 

30 LET x8=2: LET ys=1/50 
40 FOR n=1 TO 12 

50 READ y(n) 

60 NEXT n: CLS 

70 LET n=8 

80 PLOT 40,n 

90 FOR x*1 TO 12 

100 DRAW B*xs, (y(x)-n)*ys 
105 LET n*y(x) 

110 NEXT x 

130 PLOT 40,8 

DRAW 0,167 

PLOT 40,8 








H W 210,0 
1000 4000,2000,6000,3000,8 
000,400 00,2000,6000,1500,30 


5 COLOR 6,15,15 
10 SCREEN 2 
20 DIM Y(12) 
30 X8=20:Y8=1/20 
40 FOR N=1 TO 12 


80 DRAW "BM20,"*STR$(INT(161- 
*Y(1))) 

90 FOR X=1 TO 12 

100 LINE-(X*X8,161-YS*Y (X)) 
110 NEXT 

135 COLOR 1 

140 LINE (20,0)-(20,160) 

160 LINE (20,160)-(255,160) 
200 GOTO 200 

1000 DATA 1600,1000,2500,3000,3 
200,2000,2500,1000,3000,750,150 
0,250 


#76] 


10 HOME : HGR : HCOLOR= 5 
20 DIM Y(12) 
0 Х8 - 20:78 - 1/20 








20,141 - Y(1) * YS 
1 TO 12 
X * X8,141 - Y(X 






) * Ys 
110 NEXT 
135 HCOLOR= 3 
140 HPLOT 20,0 TO 20, 




















pool sc зешш 





жы ке өм 


160 HPLOT 20,140 TO 279,140 
200 END 

1000 DATA 1600,1000,2500,300, 
450,2000,2500,1000,2700,750,150 
0,250 





5 PMODE 3.1 

10 PCLS 

20 DIM Y(12) 

30 XS=20:YS=1/20 
40 FOR N=1 TO 12 
50 READ Y(N) 
60 NEXT 

80 DRAW"BM20, 
Y(1))) 

90 FOR X=1 TO 12 


"+STRS (INT (161-YS* 


100 LINE -(X*XS, Y(X)*YS), PSET 
110 NEXT 

130 SCREEN 1,1 

135 COLOR 2 

140 LINE (20,0)-(20,160), PSET 
160 LINE (20,160)-(255,160),PSE 
T 


200 сото 200 

1000 DATA 1600,1000,2500,3000,3 
200,2000,2500,1000,3000,750,150 
0,250 

O programa faz o gráfico a partir dos 
valores da linha DATA 1000. Assim, 
poupa-se o tempo de digitação dos nú- 
meros enquanto o programa está sendo 
testado. Como vimos anteriormente, é 
possível mudar facilmente a via de en- 
trada dos dados. 

Os fatores de escala são estabelecidos 
pela linha 30. A linha 80 move o cursor 
para a posição inicial e os pontos são 
traçados pelo laço das linhas 90 a 110. 
As linhas 130 a 160 desenham os eixos 
cartesianos. 

Se o gráfico não utilizar todo o es- 
paço disponível na tela, podemos mu- 
dar o valor dos fatores de escala da li- 
nha 30. Para usar a escala nos eixos, di- 
as próximas linhas. 



















140 LINE (20,16 
Ys) 


[ak] [có] 


140 HPLOT 20,140 TO 20 
700 * YS 


0,161-3200* 












0)-(20,161-3200* 


Ao rodarmos o programa, o eixo Y 
irá somente até a altura do maior valor. 
O efeito será mais nítido se substituir- 
mos os valores da linha 30. Agora po- 
demos utilizar qualquer valor, desde que 
modifiquemos os fatores de escala na li- 
nha 30. 


Para numerar os eixos, digite as pró- 
ximas linhas: 


210 FOR x-0 TO 12 STEP 2 

220 PRINT AT 21,x*2*4;x 

230 NEXT x 

300 FOR y-0 TO 8000 STEP 2000 
310 PRINT AT (8000-у) /400,0;у 
320 NEXT y 


As linhas 210 a 230 tomam os valo- 
res de O a 12, que são colocados logo 
abaixo do eixo X. Os números ao lon- 
go do eixo Y são impressos pelas linhas 
300 a 320. 


nau 


200 OPEN "GRP:" FOR OUTPUT AS # 
H 


210 FOR Y-500 TO 3000 STEP 500 
220 PRESET (0,151-Y*YS) :PRINT$1 









,Y/500 

230 LINE (18,161-Y*YS) - (20,161 
Y*YS) 

240 NEXT 

250 PRESET (25,0):PRINT 41, 
500)" 

260 FOR Х-20 TO 255 STEP 

270 PRESET(X-8,170):PRT .X/2 
0 

280 LINE (X,162)- (X,16| 

290 NEXT 


300 сото 300 


A linha 200 abre 
que possamos escreve 
solução. O laço das as 210 a 240 es- 
creve os valores abaixo do eixo X e o la- 
ço das linhas 2608890, no eixo Y. No- 
te como PRESEW usado para escolher 
a posição de impressão. A linha 250 in- 

dlg das ordenadas. 






rquivo para 
tela de alta re- 





















OR Y = 500 TO 2500 STEP 5 
HPLOT 18,Y * YS TO 20,Y * 


NEXT 
FOR X = 20 TO 20 * 12 STEP 


HPLOT X,142 TO X,140 








COMO COMPARAR DADOS 

A capacidade de desenhar um grá- 
fico em escala é particularmente útil 
quândo se deseja mostrar mais de um 
conjunto de dados ao mesmo tempo. 
Por exemplo, as duas metades do ano. 
Se quisermos compará-las, devemos 
começar desenhando um gráfico para 
o primeiro semestre no alto da tela e 
um para o segundo, embaixo. Podemos 
colocar os doze valores dentro de uma 
só matriz. Depois, lemos os seis primei- 
ros e acionamos a sub-rotina que faz 
o gráfico. Lemos a seguir os outros 
seis, e repetimos o processo. As mu- 
danças necessárias dizem respeito à 
posição inicial de cada gráfico e à po- 
sição dos eixos, de forma a desenhar 
dois, e não apenas um eixo. Uma alter- 
nativa para essa solução é traçar um 
único eixo X no meio da tela, de onde 
partem, em direções diferentes, os dois 
gráficos. 





âneira de escrever com facilidade na 
ela de alta resolução. 

No TK-2000 podemos escrever os nú- 
meros na tela gráfica; neste caso, po- 
rém, a tarefa é deixada ao leitor. 

O laço das linhas 200 a 220 cuida do 
eixo Y, enquanto que o das linhas 230 
a 250 cuida do eixo X 


Escrever na tela gráfica do TRS- 
Color é mais complicado, pois não po- 
demos usar o PRINT. Os caracteres de- 
vem ser desenhados com DRAW. Mui- 
to longa para ser listada aqui, a roti 
que faz isso encontra-se na página 
(Recursos Gráficos Sofisticado: 
de ser facilmente incorporada 


é. Os comandos necessários para 
ealizar esse trabalho podem ser revisa- 
dos nos artigos Como Desenhar em BA- 
SIC (página 113) e Ordem e Limpeza no 
Vídeo (página 146). 







































































Você não precisa ser um gênio de 
organização para lidar com 
computadores. Mas vale a pena fazer 
um mínimo de esforço para 

manter em ordem suas fitas e disquetes. 


Os sistemas de armazenamento auxi- 
liar baseados em fitas ou discos ofere- 
cem ao usuário de computadores do- 
mésticos a possibilidade de contar com 
vastas quantidades de informação e 
também de milhares de programas de 
uma forma muito compacta. 

Entretanto, a eficiência dos sistemas 
de armazenamento magnético tem al- 
guns pontos fracos em potencial. Como 
as informações se concentram em pe- 
quenos disquetes ou em fitas cassetes, 
qualquer dano sofrido por estes pode ter 
efeitos desastrosos. Ao mesmo tempo, 
os meios magnéticos são bastante vul- 
neráveis a agressões ambientais. 


PROTEÇÃO CONTRA 





Ше 


Diante disso, é de fundamental im- 
portância que a informação permaneça 
inalterada no disco ou na fita em que foi 
gravada. Assim, você poderá tê-la de 
volta sempre que precisar. 

Existem dois tipos de danos que po- 
dem afetar os meios magnéticos: o tipo 
mecânico e o magnético. 

Os danos mecânicos podem ser cau- 
sados por fatores externos, como calor, 
deformação (provocada pela pressão de 
um corpo mais pesado, por exemplo, 
poeira, umidade etc.). Esses fatores ten- 
dem a deteriorar a base magnética ou a 
estrutura dos disquetes e das fitas. Pa- 
ra evitar sua ação, é necessário proteger 
os meios magnéticos sempre que eles 
não estiverem sendo utilizados. Assim, 
mantenha os disquetes dentro de sua ca- 
pa de cartolina e guarde-os em uma cai- 
xa ou gaveta apropriada. Conserve as fi- 
tas cassetes em suas caixas de plástico, 
e estas, por sua vez, em uma estante pró- 
pria (o que facilitará também o traba- 
lho de localizá-las). Armazene discos e 
fitas longe da poeira, do calor e da 
umidade. 


Nunca toque a superfície exposta de 
um disco ou fita. Rebobine as fitas sem- 
pre que puder, colocando sua parte 
transparente (leader) na abertura, onde 
a fita está mais sujeita à ação dos agen- 
tes externos. Além disso, a fita ficará 
pronta para ser novamente utilizada. 
Não deixe fitas por muito tempo den- 
tro do gravador com a tecla PLAY acio- 
nada; se o fizer, elas sofrerão deforma- 
ções provocadas pelo cabeçote do gra- 
vador. Da mesma forma, nunca deixe 
disquetes dentro da unidade acionado- 
ra (driver). 

Outro perigo considerável para seus 
discos e fitas são os campos magnéticos 
encontrados em aparelhos eletrodomés- 
ticos como alto-falantes e alguns tipos 
de motor. Equipados com imãs, esses 
aparelhos geram campos magnéticos 
fortes mesmo quando não estão funcio- 
nando. Portanto, mantenha discos e fi- 
tas longe de televisores, motores de au- 
tomóveis, geladeiras, aparelhos de ar 
condicionado, ventiladores, e até mes- 
mo de telefones. 


SEGURO CONTRA PERDAS 


Por outro lado, os acidentes são ine- 
vitáveis; por isso, vale a pena tomar pre- 
cauções extras e fazer duplicatas dos da- 
dos e programas mais importantes. Es- 
sas cópias cautelares, ou de segurança, 
são conhecidas em computês pelo nome 
de back-up. 

Em geral, é uma boa idéia gravar tu- 
do duas vezes (o que pode ser feito na 
mesma fita ou disco). Trés vezes é me- 
lhor ainda. Desse modo, pelo menos 
uma versão permanecerá intacta. Se o 
arquivo for importante, faça cópias em 
novos discos ou fitas, e guarde-as em 
outro lugar; mas procure não utilizá-las: 
elas poderão ser necessárias para recu- 
perar o arquivo original em caso de 
perda. 

Proteja suas fitas contra a desgra- 
vação, removendo a orelha de plásti- 
co da borda da fita. Para proteger os 
disquetes, coloque uma fita adesiva opa- 
ca ou reflexiva sobre o furo retangu- 
lar que existe em uma ou ambas as bor- 
das (isso, nos disquetes de 5 1/4”. No 
caso dos disquetes de 8”, a proteção 


п 
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= INDEXAÇÃO DO MATERIAL 
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PROTEJA A INFORMACÁO 
COMO FAZER CÓPIAS 
CAUTELARES 






se faz removendo o adesivo). 

Com o passar do tempo, discos e fi- 
tas se acumularão às centenas em seu ar- 
quivo, tornando cada vez mais difícil a 
localização dos dados e programas. As- 
sim, é aconselhável rotular discos e fi- 
tas desde o começo (você pode, por 
exemplo, numerá-los para referências 
rápidas; alguns micros permitem iden- 
tificar disquetes com nomes). Paralela- 
mente, procure armazenar apenas arqui- 
vos relacionados em uma fita ou disco. 
As fitas devem, de preferência, ser cur- 
tas e conter de um a três arquivos ou 
programas, apenas. 

Dê a cada arquivo um nome bem cla- 
ro, dentro das limitações impostas pelo 
sistema operacional usado pelo seu mi- 
cro. Se você tiver várias versões de um 
programa, utilize um sistema de nume- 
ração qualquer para identificá-las. Co- 
loque o nome e o número de cada ver- 
são dentro dos programas utilizando de- 
clarações REM. 

Para identificar discos e fitas, use eti- 
quetas gomadas adequadas. No caso de 
fitas, não se esqueça de rotular também 
as caixas. Não escreva com lápis ou ca- 
neta esferográfica sobre a etiqueta de 
um disquete. Mantenha um caderno ou 
fichário com todos os nomes de arqui- 
vos, programas, comentários e suas res- 
pectivas localizações. 


PELO. CORREIO 





Fitas e discos constituem um meio 
muito conveniente de enviar programas 
e outros tipos de informação pelo cor- 
reio. As fitas cassetes são razoavelmen- 
te fortes e “viajam” bem. Envie-as sem 
a caixa para reduzir o peso e o custo 
(não esqueça de travar o movimento das 
bobinas). Envelopes almofadados ou a 
caixinha lacrada de fonogramas são 
ideais para esses envios. 

No caso de discos, convém embalá- 
los entre dois pedaços de papelão rígi- 
do para evitar deformações. Se você pre- 
ferir, pode também colocá-los em cai- 
xas metálicas rasas ou de plástico resis- 
tente. Em todos os casos, escreva do la- 
do de fora do pacote: “MEIO MAG- 
NÉTICO. FRÁGIL”. Para maior segu- 
rança, envie registrado. 





“GRÁFICOS (1) 


GERAÇÃO 


Todos os que já tentaram sabem como é 
árduo o trabalho de criar novos 
caracteres usando papel e lápis. Mas 
nem tudo está perdido: eis aqui 

um programa que facilita esse trabalho. 


Conhecidos pela sigla UDG, os blo- 
cos gráficos são um dos recursos mais 
úteis ao programador gráfico. O traba- 
lho de planejá-los e desenhá-los inicial- 
mente no papel, entretanto, exige mui- 
to tempo e dedicação. Além disso, o cál- 
culo dos números correspondentes a se- 
rem utilizados em linhas DATA é bas- 
tante complicado. Por outro lado, se al- 
gum erro for cometido, no decorrer do 
processo, sua correção também exigirá 
um esforço especial. 

O programa apresentado neste arti- 
go facilita as coisas. Ele substitui o pa- 
pel milimetrado pela tela do micro, on- 
de poderemos desenhar o padrão do no- 
vo bloco gráfico. O cálculo dos valores 
a serem colocados em linhas DATA 
também é feito automaticamente. 

Outra grande vantagem do programa 
é que ele nos deixa ver, em tamanho na- 
tural, o bloco que estamos criando e nos 
poupa o trabalho de transferir os dados 
para outro programa. Várias teclas de 
controle nos permitirão não só modifi 
car o padrão do desenho, como também 
produzir o padrão inverso, ou virá-lo da 
esquerda para a direita. Tudo isso com 
um simples toque. 

Quando estivermos satisfeitos com o 
padrão criado, poderemos preservá-lo, 
gravando todo um conjunto de blocos. 
Uma vez gravado, esse conjunto pode- 
rá ser carregado para utilização em ou- 
tros programas, ou reeditado pelo pre- 
sente gerador de blocos gráficos. 

O programa virá em duas partes. A 
primeira, neste artigo, cuida do aspec: 
to básico do gerador. Faz um quadricu- 
lado na tela, permitindo a movimenta- 
ção de um cursor para a criação do pa- 
drão desejado. Na parte seguinte, serão 
apresentadas rotinas que possibilitam 
modificações mais sutis no caractere. 

Grave a primeira parte em fita ou dis- 
co para completá-la posteriormente. De- 
vido à falta de alta resolução gráfica no 








13 APLICAÇÕES 13 


E BLOCOS 


CRIE NOVOS CARACTERES 
COMO COLOCAR PADRÕES EM 

-— UM BANCO DE MEMÓRIA 
BM TECLAS DE CONTROLE 
Е CORES EM ALTA RESOLUÇÃO 











ZX-81 e no TRS-80, nào mostraremos 
versóes para esses micros. 


Colocado em funcionamento, o pro- 
grama mostra na tela um quadriculado 
com 8 x 8 quadradinhos. Este é o “‘pa- 
pel milimetrado” no qual iremos criar 
nosso novo bloco gráfico. Agora pode- 
mos escolher quais quadradinhos “acen- 
дег” e quais “apagar” para criar um pa- 
drão. Para tanto dispomos de um qua- 
dradinho branco, que funciona como 
cursor. Desprovido de cor especial, es- 
te último é, na verdade, a versão mais 
brilhante — com atributo BRIGHT — 
do quadradinho que está abaixo dele. 
Assim, podemos ver, ao mesmo tempo, 
onde o cursor está e se esse quadradi- 





nho foi aceso ou apagado. O programa 
foi escrito de modo que as setas movi- 
mentem o cursor e o número 0, е асеп- 
dam ou apaguem os quadradinhos 
Quem preferir outras teclas para mo- 
vimentar o cursor deve mudar os carac- 


teres dentro do IF I$= ... nas linhas 
6520 a 6555. 

O mesmo método serve para adaptar 
o programa ao uso de joysticks. Quem 
dispuser de um desses periféricos deve 
consultar o artigo da página 348. 

Aqueles que não quiserem recorrer às 
setas para mover o cursor terão de es- 
colher as novas teclas com bastante cui- 
dado, pois nenhuma das teclas de con- 
trole pode ser usada. Essa parte inicial 
do programa utiliza apenas três teclas de 
controle (explicaremos melhor adiante), 
mas a parte seguinte usa mais. De qual- 
quer modo, as teclas C, I, M, P, R, S 











































oibid: 
eclado ou o joystick, po- 
0 cursor dentro do 
0. Quando pressionarmos a 
Persio (ou o botão do joys- 
e forem feitas as modificações 
), veremos a cor do cursor 
ji indicando que o quadradinho 
ë ele está foi “aceso”. Se alterarmos 
ção do cursor, provocaremos uma 
na cor do quadradinho. Des- 
ira, podemos definir o padrão 
is blocos gráficos. 
Programa oferece várias opções, 
Odem ser feitas a qualquer momen- 
ja edição. Uma delas é a de guardar 
loco no banco de memória. Para tan- 
pressionar S — uma das teclas 
ole que mencionamos antes. 
ama procurará saber então 
dos do banco de memória de- 
jardar o bloco. O banco é repre- 
e de A a U, mostra- 
acima do quadriculado. De- 
mos teclado uma letra entre 
erá uma pausa, enquanto os 
s correspondentes ao padrão do 
olocados no banco de memó- 
 POKE, Logo em seguida, o 
erá na tela, ocupan- 
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bloco desejamos. Em resposta, devemos 
pressionar a tecla correspondente; o blo- 
co desejado será então colocado no qua- 
driculado. 


GRAVE BLOCOS NA FITA 


Precisamos agora gravar o conjunto 
de blocos criados, de modo a utilizá-los 
em outros programas. Ao mesmo tem 
po, é aconselhável carregar um conjun- 
to de blocos para edição 

Para começar, pressionamos a tecla 
T. O programa perguntará então se que- 
remos gravar ou carregar um conjunto 
No primeiro caso, todo o conteúdo do 
banco de memória será cuidadosamen- 
te gravado; portanto, não devemos es- 
quecer de guardar ali o último caracte- 
re que estava sendo editado 

A próxima parte do artigo explicará 
como usar os recursos do gerador para 
criar e utilizar muitos e muitos blocos 
gráficos, incluindo como usar o conjun- 
to criado em outros programas. Novos 
recursos interessantes seráo também adi- 
cionados ao programa. 

5 CLEAR USR "A"-16 
6 POKE 23675,PEEK 23675-16 


B BORDER 4: PAPER 7: INK 0: 
сіз 
10 FOR N=USR "A* TO USR "B"*7 


1 READ A: POKE N,A: NEXT N 
15 POKE 23675,PEEK 23675*16 








20 POKE 23658,8 
30 LET X-11: LET Y-B: 
X: LET N| 
100 LET A$-"": FOR N=144 TO 
164: LET AS-AS*CHRS N: NEXT N 
110 LET B$-"": FOR N-65 TO 85 
LET BS=BS+CHRS N: NEXT М 
1000 N=87 TO 151 STEP 8: PL 
OT N,48: DRAW 0,64: NEXT N 
1010 N=48 TO 112 STEP 8: PL 
oT 8 DRAW 64,0: NEXT N 
2000 PRINT AT 3,5;A$ 
2010 PRINT INVERSE 
2400 GOSUB 6500 
2500 IF INKEYS-"P" 
000 
2510 IF 
100 
200 
3900 GOTO 
5000 INPUT 
", LINE C$ 
5010 IF CS«CHRS 65 
5 THEN GOTO 5000 
5020 LET D=CODE CS+79: LET C$=C 
HRS D: GOSUB 6000: GOTO 2000 
5100 INPUT “GUARDAR EM QUE LETR 
A (A-U)?", LINE C$ 
5110 IF CS<CHRS 65 
5 THEN GOTO 5100 
5120 PRINT AT 18,10; "GUARDANDO" 
5130 FOR N-USR CS TO USR C$*7 
5140 LET R=0: LET BIT=128: FOR 
M=0 TO 7 
5150 IF PEEK 
32+M+11)<>1 THEN 
5160 LET BIT=BIT/2 


LET NX= 











1;АТ 2,5;В$ 


THEN СОТО 5 


INKEYS="S" THEN GOTO 5 





сото 5 





O IF INKEY THEN 
2000 
"QUE CARACTER (A-U)? 


OR CS>CHRS 8 








OR CS>CHRS 8 





(18432+ (N-USR CS)* 
LET R=R+BIT 
NEXT M: POK 











E N,R 
5170 NEXT N: PRINT AT 18,0;" "; 
TAB 31;" ": GOTO 1000 

5200 INPUT "C(ARREGAR) OU G(RAV 
AR) LINE C$: IF CS<>"C” AND 
CS<>"G” THEN GOTO 1000 

5220 IF C$-"C" THEN GOTO 5250 





5230 INPUT "INTRODUZA O NOME DO 
ARQUIVO”, LINE NS: IF N$="" OR 
LEN N$>10 THEN GOTO 5230 

5240 SAVE NSCODE USR "A”,16B: G 


ото 100 

5250 INPUT "INTRODUZA O NOME DO 
ARQUIVO”, LINE N$: IF LEN N$>l 
0 THEN GOTO 5250 

5260 PRINT AT 19,0;: LOAD NSCOD 
E USR "A^: PRINT AT 20,0;" ";TA 
B 31;" ": GOTO 100 

6000 LET B=USR "A"+B*(CODE C3-1 
44) 

6010 POKE 23675,PEEK 23675-16 
6020 FOR N=0 TO 7 

6030 LET V=PEEK (B+N) 

6040 LET BIT=128: FOR M=0 TO 7 


6050“ IF V>=BIT THEN PRINT AT 8 
+N,11+M;CHRS 144: LET V=V-BIT: 
GOTO 6060 

6055 PRINT AT 8+N,11+M;CHRS 145 
6060 LET BIT=BIT/2: NEXT M 

6070 МЕХТ М: РОКЕ 23675,РЕЕК 23 
675+16: RETURN 

6500 POKE 22528+32*Y+X, 120: 
БЕ 0 

6510 LET IS=INKEYS 





PAU 





6520 IF 1$="5" AND X>11 THEN L 
ET NX-X-1 
6530 IF IS-"8" AND X<18 THEN L 
ET NX-X*1 
6540 IF I$-"6" AND Y<15 THEN |. 
ЕТ NY=Y+1 


6550 IF 15="7" AND Y>8 THEN LE 
“к 
IF 15="0” THEN GOSUB 7000 
IF I$-"" THEN GOTO 6580 
POKE 22528*Y*32*X,56 
LET X-NX: LET Y«NY 
POKE 22528*Y*32*X,120 

RETURN 

POKE 23675,PEEK 23675-16 

IF PEEK (18432*(Y-B)*32*X) 
*] THEN PRINT BRIGHT T Y.X 
;CHRS 144: GOTO 7030 
7020 PRINT BRIGHT 
$ 145 
7030 POKE 23675,PEEK 23675+16: 
RETURN 
9000 DATA 85,171,85.171,85,171, 
85,255,1,1,1,1,1,1,1,255 X 













T Y,X;CHR 
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Quando o programa é executado, um 
quadriculado de 8 x 8 pontos surge na 
tela. Este será o “papel quadriculado” 
onde planejaremos a forma de nosso 
bloco gráfico 

Temos também um cursor em forma 
de cruz. Conforme as cores escolhidas, 
esse cursor será pouco ou muito visível, 
podendo até mesmo desaparecer quan- 
do sua cor for “transparente” (código 
de cor zero). O programa foi escrito de 
maneira que as setas movimentem o cur- 
sor e a barra de espaço acenda ou apa- 
gue o ponto. 

Se você quiser utilizar um joystick pa- 
ra mover O cursor (os pontos são ace- 
sos pelo botão de disparo), deve mudar 
o valor das instruções STICK c STRIG, 
nas linhas 70 e 20, respectivamente. 

Assim, O cursor Oda see movimen- 
tado dentro do quadriculado. Quando 
pressionarmos a tecla de espaço, o pon- 
to que está sob o cursor será aceso, as- 
sumindo a cor de frente; se pressionar- 
mos a tecla novamente, ele será apaga- 
do, adotando a cor'de fundo. 

No inicio do programa, a cor de fun- 
do é branca e a cor de frente, preta. Se 
quisermos modificar esta última, deve- 
mos pressionar a tecla C. O computa- 
dor nos perguntará a seguir o código da 
nova cor de frente, ou seja, um número 
de 0a 15 em decimal. A escolha dessa 
cor pode ser feita com apenas um toqui 
para isso, devemos digitar seu número 
em hexadecimal (de 0 a F). Já a cor de 
fundo pode ser modificada pressionan- 
do-se a tecla F. 

É importante ter em mente as regras 
de apresentação das cores na tela de al- 
ta resolução do MSX. Cada conjunto dè 
oito pontos adjacentes na horizontal, 
correspondentes a uma linha do nosso 
bloco gráfico, tem apenas uma cor de 
frente e uma cor de fundo, Se uma se- 


үч 





























gunda cor de frente for atribuída a um- 


nto, todos os pontos: 
inha do bloco pass 
O mesmo- ac 












segunda cor de fundo. Em nosso pro- 
grama, esses cuidados ficam por sua 
conta; o computador pode mostrar até 
oito cores numa mesma linha de bloco 
no quadriculado. No momento em que 
esse bloco for colocado na tela, em ta- 
manho natural, apenas as duas últimas 
cores — uma de frente e outra de fun- 
do aparecerão. 

Essa limitação no número de cores 
pode causar inconvenientes. Se uma li- 
nha do bloco tiver a cor de frente igual 
à de fundo, o traçado do quadriculado 
naquela linha desaparecerá. Neste caso, 
de pouco valeria modificar o programa, 
fazendo-o redesenhar o quadriculado; 
isso, na verdade, criaria novos proble- 
mas. Na realidade, o traçado está ali: só 
não podemos vê-lo, porque ele tem à 
mesma cor do fundo. 

O programa tem ainda outras fun- 
ções, disponíveis a qualquer m 
durante a edição de um Мос Umas 
las “guarda” o bloco em um banco. 
memória, que fica protegido na parte al- 
ta da memória. Para fazer isso, basta 
apertar a tecla G. 

O programa solicita entáo um núme- 
ro correspondente á posigáo que o blo- 
co ocupará no banco de memória. Esse 
número pode valer de 0 a 255. Uma vez 
informado da posição desejada, o com- 
putador mostra o bloco, em tamanho 
natural, no alto da tela. Ali fica repre- 
sentado todo o conteúdo do banco de 
memória. Um mesmo bloco pode ser 
guardado em várias posições diferentes. 

Outra opção oferecida é a de **recu- 
perar’ um bloco que esteja no banco, 
trazendo-o de volta ao quadriculado, 
onde ele pode sofrer modificações. Isto 
é feito pela tecla R. Note que apenas O 
desenho do bloco é trazido para o qua- 

lo, O bloco permanece 
guardado no banco, e só 
será apagado quando: 
outro for guardado na 
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GRAVAR OS BLOCOS EM FITA 





Após tanto trabalho, você certamente 
vai querer gravar os blocos criados pa- 
ra um eventual uso futuro. O programa 
dispõe, para tanto, de uma função de 
gravação em fita, acompanhada de ou- 
tra, que permite a leitura de um banco 
previamente gravado. 

Para gravar ou ler uma fita, é preci- 
so pressionar a tecla T. O computador 
perguntará então se você deseja um SA- 
VE ou um LOAD. Se você escolher gra- 
var, O banco de memória será transferi- 
do em bloco para a fita. Portanto, não 
se esqueça de guardar o último bloco 
que estava sendo editado. 

O banco de memória utilizado nada 
mais é do que uma região da memória 
do micro, protegida para esse fim. Ela 
contém, no entanto, alguns valores inú- 
teis para nós (lixo, no jargão do progra- 
mador). Esse “lixo” não é visível duran- 
te a execução do programa, mas pode 
ser transferido para a fita, quando não 
usamos todas as 256 posições. Ele torna- 
se visível quando carregamos um ban- 
co da fita. 

Em geral, as posições múltiplas de 16 
apresentam pontos aleatórios. Esse pro- 
blema, porém, só afeta posições não 
ocupadas, nunca interferindo nos blo- 


cos. Da mesma forma, se interromper- 
mos o programa por qualquer motivo, 
ao voltarmos a executá-lo, não veremos 
o banco na tela; mas todos os blocos 
criados estarão lá, podendo ser recupe- 
rados, especialmente quando soubermos 
suas posições. 

Quando quisermos ler um conjunto 
de blocos da fita, o programa oferecerá 
a opção de ver seu conteúdo por meio 
da tecla V. Se soubermos exatamente 
onde estão os blocos, podemos poupar 
tempo e trabalho. Nesse caso, a tecla 
<ENTER> nos trará de volta à edição 
(não veremos nada na tela, mas todo o 
conteúdo do banco estará lá, podendo 
ser recuperado). 

A próxima parte deste artigo explica- 
rá como utilizar estes e outros recursos 
do programa para criar blocos gráficos, 
bem como as formas de utilizá-los em 
outros programas. 


10 CLEAR 200,4HD000:SCREENL:FOR 
1=28*8 TO 28*8+7:A=VPEEK (BASE ( 
7) +I) :AS=AS+CHRS (À) : NEXT: COLOR 
1,15,15:C=1:F=15:C1=C:C2=F:SCRE 
EN 2,0 

20 DIM B(8,8):SPRITES(0)=AS:ON 
STRIG GOSUB 500,500:STRIG(0) ON 
30 GOSUB 1430 

50 X-96:Y-64:GOTO 200 

60 К5-ІМКЕҮ5:ІҒ K$-"" THEN 60 
70 A-STICK(0) 


T(8,170) :PRINT&1,"o nümero do b 
loco :":CLOSE 1:GOSUB 9200 

1010 XS-INKEYS:IF X$-"" THEN 10 
10 

1015 IF X$-CHR$(13) THEN GOSUB 
9100:GOTO 1050 

1020 IF X$=CHRS(29) AND N>0 THE 
N N=N-1:GOSUB 9200:GOTO 1010 
1025 ІҒ Х5-СНВ5(28) АМО М<255 Т 
HEN N=N+1:GOSUB 9200:GOTO 1010 
1030 IF X$=CHR$(31) AND N>9 THE 
N N=N-10:GOSUB 9200:GOTO 1010 
1040 IF XS=CHR$(30) AND М<245 Т 
HEN N=N+10:GOSUB 9200:GOTO 1010 
1045 GOTO 1010 





1050 FOR 1=0 TO 7:P(1)=PEEK(AHD 
100+N*8+T) 
1052 FOR 1=0 TO 7:P(1)=PEEK (&HD 
100+N*8+1) 


1055 C(1)=PEEK(KHE100+N*8+1) 
1060 FOR J=7 TO 0 STEP -1 

1070 B(1,J)=P(1)-INT(P(1)/2)%2: 
P (I) -«INT(P (I) /2) 

1080 IF B(I,J)*0 THEN LINE (96% 
8*J41,64*8*T*1) – (96+8*.7+6,64+8* 
I*7),C(I)ANDIS,BF ELSE LINE (9 
6*8*J*1,64*8*I*1)- (96*8*]46,64* 
B*1*7) , (C(T) - (C(I) AND15) ) /16, BF 
1090 NEXT J,I:RETURN 

1430 FOR 7-96 TO 160 STEP B:LIN 
E (1,64) -(1,128) , 1] : NEXT 

1440 FOR 1=64 TO 128 STEP B:LIN 
E (96,1)-(160,I1) , 1 : NEXT 

1450 RETURN 

1500 N-0:GOSUB 9000:PRINT41,"Us 
e as setas para escolher":PRESE 


80 ОМ А СОТО 90,130,100,130,110 
,130,120,130 

85 GOTO 130 

90 IF Y>64 THEN Y=Y-B:GOTO 200 
95 GOTO 200 
100 IF X<152 
0 

105 GOTO 200 7 
IF Y<120 THEN Y=Y+8:GOTO 20 


THEN X=X+8:GOTO 20 


110 

0 

115 GOTO 200 

120 IF X>96 THEN X=X-B:GOTO 200 
125 GOTO 200 

130 IF K$-"G" THEN GOSUB 1500:G 
ото 200 

140 IF K$-"R" THEN GOSUB 1000:G 
ото 200 

150 IF K$="T" THEN GOSUB 2000:G 
ото 200 

160 IF K$-"C" THEN GOSUB 2500:G 
ото 200 

170 IF K$-"F" THEN GOSUB 2600:G 
ото 200 

200 IF C+1>15 OR C+1=F THEN S=C 
ELSE S-C*1 

210 PUT SPRITE 0,(X,Y).S 

220 GOTO 60 

500 SWAP C1,C2:LINE (X+1,Y+1)-( 


X*6,Y*7) ,C2, BF 

510 IF C2-F THEN B((Y-64)/8, (X- 
96)/8)=0 ELSE B((Y-64)/8, (X-96) 
/8)=1 

520 C((Y-64) /8)=C*16+F 

530 RETURN 

1000 N=0:GOSUB 9000:PRINT41,”Us 
e as setas para escolher":PRESE 











T(8,170) :PRINT41,"o nümero do b 
loco :":CLOSE 1:GOSUB 9200 

1510 XS=INKEYS:IF X$-"" THEN 15 
10 

1515 IF X$-CHR$(13) THEN GOSUB 
9100:GOTO 1550 

1520 IF Х5-СНВ5(29) AND N>0 THE 
N N=N-1:GOSUB 9200:GOTO 1510 
1525 IF XS=CHRS(28) AND М<255 Т 
HEN N-N*1:GOSUB 9200:GOTO 1510 
1530 IF Х5-СНВ5(31) AND N59 THE 
N N-N-10:GOSUB 9200:GOTO 1510 
1540 IF XS-CHR$(30) AND N<245 T 
HEN N*N*10:GOSUB 9200:GOTO 1510 
1545 GOTO 1510 

1550 FOR I*0 TO 7:P(I)*0:FOR J* 
0 TO 7 

1560 P(I)-*P(I)*B(I,J)*2^(7-J) 


1570 NEXT J 

1580 POKE &HD100*N*B*I,P(I) 
1585 POKE &HE100*N*B*I,C(I) 
1590 VPOKE BASE(12)*N*B*I,P(I) 
1600 VPOKE BASE(11)*N*8*I,C(I) 
1610 NEXT I:RETURN 

2000 GOSUB 9000:PRINT41," (S) AVE 
ou (L)OAD ?" 

2010 X$-INKEYS:]F XS<>"S” AND X 
$<>"L” THEN 2010 

2020 GOSUB 9100:IF X$-"L" 
2100 

2030 GOSUR 9000:PRINT41,"Posici 
one o gravador":PRESET (8,170) :P 
RINT41,"e aperte <ENTER>” 

2035 IF INKEYS<>CHR$(13) THEN 2 
035 

2040 BSAVE 
37F 

2050 GOSUB 9100:RETURN 

2100 GOSUB 9000:PRINT41,"Posici 
one o gravador”: PRESET(8,170):P 
RINT41,"e aperte <ENTER>" 

2105 IF INKEYS<>CHR$(13) THEN 2 
105 

2110 BLOAD "CAS:" 

2120 GOSUB 9100 

2130 GOSUB 9000:PRINT41,"(V) pa 
ra ver o banco":PRESET (8,170) :P 
RINT4]," (ENTER) para voltar à e 
dição” 

2140 XS-INKEYS:IF XS-"" THEN 21 
40 
2150 
9100: 
2160 
2170 


THEN 


"CAS:UDG" , &HD100,&HF 


IF XS=CHRS (13) 
RETURN 

TF XS<>”"U” THEN GOTO 2140 
FOR N=0 TO 255 

2180 FOR J=0 TO 7 

2190 УРОКЕ ВАЅЕ (17) +№*8+.), РЕЕК( 
&HDI00+N*8+J) 
2200 VPOKE BASE 
AHE100+N*8+J) 
2220 NEXT J,N 
2230 GOSUB 9100:RETURN 

2500 GOSUB 9000:PRINT41,"Número 
da cor de frente (0-F)” 

2510 XS-INKEYS:IF X$-"" THEN 25 
10 

2515 IF X$€"0" OR (X$2"9"AND XS 
<"А") OR X$5"F" THEN 2510 

2520 C-VAL("&H"*X$) :C1-C:C2-F 
2530 GOSUB 9100:RETURN 

2600 GOSUB 9000:PRINT41,"Nümero 
da cor de fundo (0-F)" 


THEN GOSUR 


11) *N*B&J, PEEK ( 


2610 XS=INKEYS:IF XS="" THEN 26 
10 

2615 IF XS<"0” OR (XS>"9"AND XS 
<"A”) OR XS>"F” THEN 2610 

2620 F=VAL("AH"+XS) :C1=C:C2=F 
2630 GOSUB 9100:RETURN 

9000 OPEN "GRP:" FOR OUTPUT AS 
41:PRESET(8,160) :COLOR 1,15:RET 
URN . 
9100 CLOSE 1:LINE (0,160)-(255, 
191),15,BF:RETURN 

9200 LINE (190,168)-(255,191),1 
5,BF:GOSUB 9000:PAESET (190,168) 
:PRINT41,N:CLOSE1 : RETURN 


& AP 


Até agora, sempre que precisávamos 
de um desenho em alta resolução, usá- 
vamos o comando DRAW. Este é mui- 
to bom para figuras móveis, devido à ve- 
locidade de operação. Ele apresenta, 
contudo, dois inconvenientes: a exten- 
são dos dados, já que as regras de defi- 
nição das figuras são bem complicadas, 
e a dificuldade na utilização de cores, 
pois as figuras ficam deformadas quan- 
do coloridas. 

O Apple e o TK-2000 também podem 
mostrar na tela caracteres definidos pe- 
lo usuário, usando regras bem seme- 
lhantes às dos demais micros. Tais re- 
gras devem ser empregadas quando for 
importante a cor, mas não a velocida- 
de. Convém, nesse caso, consultar as se- 
ções correspondentes, dedicadas a ou- 
tros computadores. 

Quando executamos o programa, ve- 
mos um quadriculado de 8 x 8 pontos 
na tela. Este será o “papel quadricula- 
do” onde desenharemos nosso bloco 
gráfico. 

Temos também um cursor, na forma 
de um ponto. Para movimentá-lo, uti- 
lizamos as teclas Z, X, P e L, como de 
costume. Usando a barra de espaço po- 
demos “acender” o ponto correspon- 
dente, apagando-o com a tecla A. 

Para obtermos caracteres coloridos, 
precisamos entender como o Apple e o 
TK-2000 representam cores na tela, Em- 
bora nosso quadriculado tenha oito 
pontos de largura (ou seja, na horizon- 
tal), na tela aparecerão apenas os sete 
primeiros (a partir da esquerda). São, 
portanto, quarenta posições com sete 
pontos cada, resultando nos 280 pontos 
da tela de alta resolução. Se um ponto 
da linha estiver apagado, aparecerá em 
preto. Caso esteja aceso, contudo, sua 
cor vai depender de sua posição na te- 
la. Se o ponto ocupar uma posição par, 
será violeta. Se ocupar uma posição im- 
par, será verde. Tais regras se aplicam 
quando o oitavo ponto, que fica na ex- 
trema direita do bloco e não aparece na 
tela, estiver apagado. Se o oitavo pon- 





to estiver aceso, as cores violeta e verde 
serão substituídas por azul e vermelho, 
respectivamente. Se dois pontos adja- 
centes estiverem acesos, assumirão a cor 
branca. 

Existem, assim, seis cores disponíveis 
no modo de alta resolução. Sua exibi- 
ção, porém, está sujeita às seguintes li- 
mitações: 

1. Ponto em coluna ímpar é preto, 
violeta ou azul. 

2. Ponto em coluna par é preto, ver- 
de ou vermelho. 

3. Cada linha de bloco pode ter as co- 
res violeta e verde ou azul e vermelha. 
Não é possível misturar cores de grupos 
diferentes na mesma linha. 

4. Dois pontos adjacentes e acesos fi- 
carão brancos, mesmo que estejam em 
linhas diferentes. 

Deve-se ressaltar ainda que as cores 
dependem da posição do ponto na tela, 
e não no bloco gráfico. Isto quer dizer 
que a cor do ponto varia com a sua 
coordenada horizontal — de O a 279. 
Como a largura de cada linha de bloco 
na tela é de sete pontos, quando plane- 
jamos um bloco não sabemos quais os 
pontos que irão ocupar posições pares 
ou ímpares. Uma vez que tenhamos de- 
senhado o nosso bloco, podemos guar- 
dá-lo no banco de memória do progra- 
ma. Para isso, basta apertar a tecla G. 
O computador pergunta então em qual 
posição do banco vamos colocar o ca- 
ractere — 0 a 300. Informado esse nú- 
mero, o caractere é mostrado па tela, em 
posição correspondente à do banco e em 
tamanho natural. Sua cor dependerá da 
posição no banco. Para facilitar o tra- 
balho, é conveniente armazenar os blo- 
cos nas posições pares, onde é possível 
planejar as cores, pois as colunas da te- 
la coincidem com as do bloco. Nas po- 
sições ímpares, as cores são de grupos 
invertidos, já que as posições pares e ím- 
pares são invertidas. 

O banco nada mais é que uma por- 
ção protegida de memória. Ele pode 
ocupar a página 2 de gráficos, tornan- 
do o trabalho mais simples. Essa pági- 
na, porém, não deve ser usada enquan- 
to o programa estiver no micro. 

O uso da tecla R permite recuperar 
um bloco gravado no banco, trazendo 
seu desenho para o quadriculado. O blo- 
co recuperado, por sua vez, permanece 
no banco. Um mesmo bloco pode ser 
guardado em diferentes posições. 


сом VAR EM DISCO E FITA 





Aqueles que dispõem de unidade de 
isco podem usar a tecla T para gravar 
ou carregar todo o conteúdo do banco 











de memória. Feito isso, o computador 
perguntará qual a opção desejada. Se 
você selecionar a primeira opção, o con- 
teúdo do banco será gravado. Não se es- 
queça, portanto, de guardar o último 
bloco editado. 

Quando carregamos um banco, as 
posições que não contêm blocos são 
preenchidas por linhas brancas. 

Quem não dispõe de disco, ou tem 
um TK-2000, deve parar o programa — 
com <RESET> ou <CTRLX><C> 
— para poder gravar O banco de me- 
mória em fita, Para tanto, é preciso usar 
o monitor, digitando CALL -151 — 
ou LM no TK-2000. A seguir, digite (no 
Apple): 
4000.5FFF W 


No caso do TK-2000, temos algumas 
modificações: 


A000.BFFF W "nome" 


Para ler a fita, troque a letra W por R. 

Depois de ter carregado o banco, exe- 
cute novamente o programa. O conteú- 
do do banco poderá ser visualizado por 
meio da tecla T (caso tenham sido fei- 
tas as modificações sugeridas). 

Na próxima parte do artigo, traremos 
mais informações sobre a criação e uti- 
lização de blocos gráficos no Apple. 
Além disso, novas funções serão acres- 
centadas ao gerador de blocos. 


СЯ 


10 НОМЕ 
B(8,8) 
20 E = 16384:T = 8192 

30 GOSUB 1030 

50 X = 108:Y = 72: GOTO 200 

60 СЕТ KS:LX = X:LY = Y 

70 IF K$ - "2" AND X > 108 THE 
N X = x - 8: GOTO 200 

B0 IF K$ - "X" AND X < 164 THE 
N X = X * 8: GOTO 200 

90 IF K$ * "P" AND Y > 72 THEN 
Y = Y - 7: GOTO 200 

100 IF K$ = "L” AND Y < 121 TH 
EN Y = Y + 7: GOTO 200 

110 IF K$ - " " THEN B((Y - 72 
) / 7,(X - 108) / 8) = 1: HCOLO 
R= 2: GOSUB 500: GOTO 200 


HGR HCOLOR= 3: DIM 


120 IF K$ - "A" THEN B((Y - 72 
) / 7,(X - 108) / 8) * 0: HCOLO 
R= 0: GOSUB 500: GOTO 200 

130 IF K$ - "G" THEN GOSUB 15 
00: GOTO 50 

140 IF K$ = "R” THEN GOSUB 10 
00: GOTO 50 

150 IF К5 = "T" THEN GOSUB 20 
00: GOTO 50 

200 HCOLOR- 0: HPLOT LX * 3,LY 


* 4 TO LX * 4,LY * 3: HPLOT LX 
+ 4,LY + 4 TO LX + 3,LY + 3 
210 HCOLOR= 5: HPLOT X + 3,Y + 
4 TO X * 4,Y * 3: HPLOT X * 4, 
V + 4 TO X + 3,X *-3 


230 GoTO 60 

500 FOR K = X + 1 TO X + 6: HP 
LOT K,Y + 1 TO K,Y + 6: NEXT : 

RETURN 

1000 НОМЕ : УТАВ 22: 
AL O NUMERO DO BLOCO ?";N: 
> 320 THEN 1000 

1005 FOR I = 0 TO 7:P(I) = PE 
EK (E * N * 8 * I) 

1010 FOR J = 0 TO 7 

1015 B(I,J) * P(I) - INT (P(I) 
/ 2) * 2:P(I) * INT (P(I) / 2 
) 

1020 HCOLOR- 2 * B(I,J): FOR K 
= 109 + 8 * J TO 114 +8 * J: 

HPLOT K,73 + 7 * I TO K,78 + 7 


INPUT "QU 
IFN 


* I: NEXT K,J,I 

1025 HOME : RETURN 

1030 HCOLOR= 3 

1040 FOR I = 108 TO 172 STEP 8 


HPLOT I,72 TO I,127: NEXT 


1050 FOR I = 72 TO 128 STEP 7: 
НРІ.ОТ 108,1 ТО 172,1: МЕХТ 
1060 RETURN 

1500 НОМЕ : VTAB 22: INPUT "QU 


AL O NUMERO DO BLOCO ?";N: 
> 320 THEN 1500 


IF N 


1502 L = INT (N / 40):C =N- 
L * 40 
1505 FOR I = 0 ТО 7:Р(І) = 0: 


FOR J * 0 TO 7 


1510 Р(І) = Р(І) + В(І,Ј) * 2 ^ 
J 

1520 NEXT J: POKE E +N * 8 + 
1,Р(1) 

1525 POKE T * L * 128 * C * 10 
24 * I,P(I) 

1530 NEXT I: HOME : RETURN 
2000 HOME : VTAB 22: INPUT "(S 
)AVE OU (L)OAD ?";A$: IF A$ < 
> "S" AND AS € > "L” THEN 2000 
2010 INPUT "NOME DO ARQUIVO ?" 
¡ARS 

2020 IF AS = "L" THEN 2100 
2030 PRINT : PRINT CHR$ (4);" 
BSAVE ";AR$;",A";E;",L3000" 
2040 HOME : RETURN 

2100 PRINT : PRINT CHR$ (4);" 
BLOAD ";ARS 

2110 FOR N = 0 TO 320 

2120 L = INT (N/ 40:C * N - 
L * 40 

2130 FOR I = O TO 7 

2140 POKE T + L * 128 + C + 10 
24 * I, PEEK (E * N * 8 * I) 
2150 NEXT I,N 

2160 HOME : RETURN 


Aqueles que não dispõem de unida- 
de de disco não devem copiar as linhas 
2000 a 2100. Uma instrução REM deve 
ser colocada na linha 2000. 


5) 


Os usuários do TK-2000 não devem 
copiar as linhas 2000 a 2100, fazendo 
ainda as seguintes modificações: 


20 E = 40960:T = 8192 





No Spectrum podem-se criar novos blocos... 


nu RE SE 


Quando colocamos o programa pa- 
ra funcionar, ele nos faz duas pergun- 
tas iniciais, relacionadas com o tipo de 
bloco gráfico que queremos criar. 

A primeira se refere ao PMODE de- 
sejado. PMODEA nos dá uma grande 
resolução em preto e branco ou em pre- 
to e verde apenas. A segunda opção, 
PMODE3, tem uma resolução três ve- 
zes mais baixa na horizontal — pontos 
com o triplo de largura —, mas permite 
que usemos quatro cores. 

A segunda pergunta diz respeito ao 
conjunto de cores que vamos utilizar. 
SCREENO no PMODES nos dá preto е 
verde, enquanto em PMODE3 nos dá 
vermelho, azul, verde e amarelo. 
SCREENI nos dá preto e branco em 
РМОРЕ4 e ciano, magenta, laranja e 
branco em PMODE3 

Feitas estas opções, não poderemos 
mais mudar o PMODE sem usar RUN 
novamente, embora possamos mudar o 
SCREEN. 

A seguir, o computador coloca na te- 
la o quadriculado, que é a base para o 
desenho do bloco gráfico. Podemos en- 
tão usar as setas para mover o cursor e 
assim desenhar o bloco. 

Com o cursor sobre um determina- 
do ponto, devemos pressionar <EN- 
TER> para acender esse ponto. Para 
apagar pontos, basta mudar sua cor, co- 
mo veremos mais adiante. 

Dessa forma, desenharemos nosso 
bloco rápida e facilmente. A porção se- 
guinte do programa terá uma opção de 
uso de joystick. 

Como podemos observar, o quadri- 
culado não é o único quadrado na tela: 
abaixo dele há mais oito e à sua direita, 
mais dois. 

Os dois da direita são versões atuali- 
zadas do bloco criado, em modo normal 
e invertido. À medida que desenhamos, 
esses dois **modelos'' vào mudando, de 
maneira a possibilitar a visualização do 
resultado em tamanho real. 





«OU usar os caracteres do próprio micro, 


Os oito quadrados na parte inferior 
da tela servem para guardar os blocos 
que já foram criados. Isso significa que 
até oito blocos podem ser guardados ao 
mesmo tempo no banco de memória do 
programa. Alguns desses blocos não são 
visíveis, uma vez que têm pontos com 
a mesma cor do pano de fundo. Eles não 
mudam junto com a edição, mas sim 
quando guardamos no banco um carac- 
tere recém-criado. 





А$ ТЕС TROLE 


O programa tem uma série de teclas 
de controle, que nos possibilitam fazer 
opções. 

Duas delas são fundamentais: as te- 
clas Se G. S guarda no banco de me- 
mória o bloco que foi editado, Quando 
pressionamos essa tecla, o programa nos 
pede um número de 1 a 8, que corres- 
ponde à posição do bloco no banco. Is- 
so permite que substituamos qualquer 
um dos blocos do banco, 

Já a tecla G, seguida do número cor- 
respondente, faz a operação inversa — 
recupera um bloco do banco e o coloca 
no quadriculado. Embora o programa 
utilize uma rotina em linguagem de má- 
quina, o processo leva alguns segundos. 

Recuperar um bloco não modifica o 
conteúdo da posição correspondente no 
banco. Assim, podemos recuperar um 
determinado bloco do banco, trazendo- 
o para o quadriculado quantas vezes 
quisermos, desde que não guardemos 
nada na mesma posição do banco. 

Essa parte do programa utiliza duas 
outras teclas de controle. Se pressionar- 
mos C, mudaremos a cor. Se estivermos 
em um modo com quatro cores, pode- 
mos usar qualquer uma delas. No mo- 
do de duas cores, escolhemos uma ou 
outra. Selecionada a cor adequada, 
podemos apagar qualquer ponto, corri- 
gindo, assim, eventuais erros cometidos. 
Após digiar C, devemos informar o nú- 
mero da cor desejada. 

A última tecla de controle dessa par- 


Blocos mais largos no TRS-Color. 


te do programa é T, que permite a gra- 
vação ou а recuperação de todo um ban- 
co de memória contendo oito blocos. 


10 CLEAR 200,30998:DEFUSRO=3100 


0 

20 T=0:FOR K=0 TO 43:READ N:T=T 
*N:POKE K*31000,N:NEXT:READ C:I 
F T<>C THEN PRINT "ERRO NOS DAD 
08": END 

50 DATA 189,179,237,31,3,142,12 
3,12,230,192,134,8,183,121,68,7 
9,88,73,122,121,68,125,121,23 
60 DATA 39,5,88,73,122,121,68,1 
67,128,125,121,68,38,233,140,12 
5,76,38,221,57,4725 

110 CLS:PRINT"SELECIONE MODO GR 
AFICO (3-4)"; 

120 AS=INKEYS:IF AS<"3” OR AS>” 
4” THEN 120 

130 T=5-VAL (AS): PRINT AS 

140 PRINT"SELECIONE TIPO DE TEL 
A(0-1)"; 

150 AS=INKEYS:IF AS<"0” OR AS>” 
1” THEN 150 

160 PRINT AS:ST=VAL (AS) 

200 PMODE 5-Т,1 

210 DIM A(14),C1(1),C2(1),C3(1) 








+04 (1) 

220 PCLS ЕТ(0,0)-(9,5),С4,0 
230 PCLS ЕТ(0,0)-( с3,6 
240 PCLS 2:0ЕТ(0,0)-(9,5),С2,0 
250 PCLS 1:GET(0,0)-(9,5),C1,G 
260 PCLS:SCREEN 1,ST 

270 C=-1:F=3*T-2:G0SUB 2070 


280 FOR X=B TO 255 STEP 32:C=(C 
+1) AND 3:COLOR C+1:LINE(X,165) 
-(X+23,188) PSET,BF:NEXT: COLOR 
6-T 

290 FOR X=3 TO 147 STEP T*6:LIN 
E (X,3)-(X,147) ,PSET:NEXT 

300 FOR Y=3 TO 147 STEP 6:LINE 
(3,Ү)-(147,Ү) ,РВЕТ:МЕХТ 

310 X=12:Y=12 

320 X1=X*6+4:Y1=Y*6+4 

330 PUT(X1,Y1)-(X1+5*T-1,Y1+4), 
C1,NOT 

340 AS=INKEYS 

350 GOSUB 1500 

360 IF AS="" THEN 380 

370 ON INSTR("PCTRGSMIV",AS) GO 
SUB 2200,2500,2300,2800,2600,27 
00,2900,2100,2400 

380 IF Y<O THEN Y=23 

390 IF Y>23 THEN Y=0 


400 IF X<O THEN X=24-T 

410 IF X>23 THEN X=0 

420 GOTO 320 

1500 PUT (X1,Y1)-(X1+5*T-1,Y1+4 
),C1,NOT 

1510 IF PEEK(338)*191 GOSUB2000 
1520 IF PEEK(343)*247 THENXeX-T 
1530 IF PEEK(344)=247 THENX=X+T 
1540 IF PEEK(341)=247 THENY=Y-1 
1550 IF PEEK(342)=247 THENY=Y+1 
1560 RETURN 

2000 GOSUB 4000 

2010 P=3*Y+INT(X/8) :PX=7-X+8*IN 
T(X/8) 

2020 1р T=2 THEN VL=F-1 ELSE VL 
=-(F=1) 

2030 PK=PEEK(P+VARPTR(A(0))) 
2040 PK=PK AND(255.1-2"PX):IF T 
an THEN PK=PK AND(255.1-2" (PX-1 
2050 PK=PK OR VL*2" (PX+1-T) 
2060 POKE P+VARPTR(A(0)) ,PK 
2070 PUT (216,10)-(239,33),A,PS 


ET 

2080 PUT (216,70)-(239,93),A,PR 
ESET 

2090 RETURN 

2100 RETURN 

2200 RETURN 

2300 AS=INKEYS:IF AS<>"8” ANDA 
$<>"L" THEN 2300 

2310 IF A$-"S" THEN 2330 

2320 CLOADM:SCREEN 1,ST:RETURN 
2330 CSAVEM"",6800,7679,6800 
2340 SCREEN 1,ST:RETURN 

2400 ST=1-ST:SCREEN 1,ST:RETURN 
2500 AS=INKEYS: IF AS<"0” OR AS> 
"8" THEN 2500 

2510 F=((VAL(AS)-1)AND 3)+1:RET 
URN 

2600 AS=INKEYS:IF AS<"1” OR AS> 
"8" THEN 2600 

2610 J-VAL(AS$)-1 

2620 GET(J*32*8,165) -(J*32*31,1 
88),А 

2630 GOSUB 3000:GOTO 2070 

2700 AS=INKEYS:IF AS<"1” OR AS> 
"B" THEN 2700 

2710 J=VAL(AS)-1 

2720 PUT(J*32*8,165)-(J*32*31,1 
B8) , A, PSET 

2730 RETURN 

2800 RETURN 

2900 RETURN 

3000 CL=F:POKE 30999,T-1:N=USRO 
(УААРТА (А (0) )) 

3010 FOR K=0 TO 23:FOR J=0 TO 2 
3 STEP T: F=PEEK(31500+K*24/T+J 
/T)*3-T 

3020 X1=J*6+4: Y1=K*6+4 

3030 GOSUB 4000:NEXT J,K:F=CL:R 
ETURN 

4000 ON F GOTO 4010,4020,4030,4 
040 

4010 PUT(X1,Y1)-(X1+5*T-1,Y1+4) 
+C1, PSET: RETURN 

4020 PUT(X1,Y1)-(X1+5*T-1,Y1+4) 
+C2, PSET:RETURN 

4030 PUT(X1,Y1)-(X1+5*T-1,Y1+4) 
,C3, PSET: RETURN 

4040 PUT(X1,Y1)-(X1+5*T-1,Y1+4) 
,C4, PSET: RETURN 











AFUNCAO INKEYŠ 
NO TK 2000 


Os usuários do TK-2000 fregiente- 
mente se decepcionam quando tentam 
sem sucesso adaptar programas de jo- 
gos feitos para outras máquinas, como 
o MSX ou TRS-Color. A causa dessa 
frustração é a ausência de uma função 
muito importante: o comando INKEYS. 

O que faz o INKEYS$? Existe uma 
maneira de substituí-lo por algum ou- 
tro comando próprio do TK-2000, que 
cumpre a mesma função? A resposta 
(positiva) já foi brevemente abordada 
no artigo E agora... O que Fazer? (pá- 
gina 161). Aqui vamos estudar tudo is- 
so mais detalhadamente. Assim, você 
mesmo poderá adaptar os programas de 
jogos mostrados nos artigos das páginas 
28, 46. 61, 121 e 153. 


АМО 





O INKEYS pode, em muitos casos, 
ser substituído pelo comando GET, que 
existe no TK-2000. A utilizacào desse 
comando é muito simples. Ele é equi 
lente ao INPUT, só que aceita apenas 
um caractere de cada vez, e nào exige 
que se pressione a tecla « RETURN 
рага dar prosseguimento ao programi 
Além disso, a tecla pressionada não é 
mostrada na tela. 

Desse modo, muitos progra 
outras máquinas, que usam o INI 
apenas para realizar tais funcóes, 

ser adaptados para o TK-2000 com 0; 
xilio do comando GET. Por exem 
uma linha programada para inte 
per o fluxo do programa até que 01 
rio pressione uma tecla qualquer; 






1010 ЕТ E 4 
1020 IF AS="" THEN GOTO 1010 

Isso poderia até ficar mais simples. 
TK-2000 (e no Apple II): 


1000 PRINT "PRESSIONE QUALQUER 
TECLA" 
1 1010 СЕТ АЗ 





O INKEYS$ na linha 1010 do primei- 
ro programa é uma função do BASIC, 
cujo objetivo é *'varrer"' o teclado e ve- 
rificar se alguma tecla foi pressionada. 
Se isso acontecer, o caractere correspon- 
dente será devolvido ao programa. No 
caso da linha 1010, esse caractere será 
armazenado na variável A$. Se nenhu- 
ma tecla tiver sido pressionada, o cor- 
dão vazio, **”, será retornado, Por is- 
so, há necessidade da linha 1020. 

Já o comando GET não é uma fun- 
ção, De forma semelhante ao comando 
INPUT, ele interrompe o programa e fi- 
ca aguardando até que uma tecla qual- 
quer seja pressionada. Só entào, ele ar- 
mazena esse caractere na variável-argu- 











mento (no caso, A$), e passa para a li- 
nha seguinte do programa. 





A principal desvantagem do GET, 
entretanto, é que ele interrompe o flu- 
xo do programa até que a tecla seja pres- 
sionada. Em contrapartida, a grande 
vantagem do INKEY$ é que o compu- 
tador pode ser programado para fazer 
outras coisas, enquanto espera que o 
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COMO FUNCIONA O INKEY$ 





Apesar de seu nome estranho, o comando 





INKEY$ não é nenhum bicho-de-sete- UM SUBSTITUTO PARA O INKEYS 
cabecas. De grande importáncia para a APLICACÓES PARA O PEEK 

mação de jogos, ele pode, UM INKEY$ MAIS SOFISTICADO 
мао e LIMITES DE TEMPO 


contudo, ser facilmente substituído. 








он 


usuário pressione alguma tecla. No pro- 
grama apresentado, por exemplo, pode- 
ríamos colocar outras linhas de progra- 
mação entre as linhas 1010 e 1020 (para 
contar o tempo passando, movimentar 
objetos gráficos na tela etc). 

Ora, o GET não permite fazer isso. 
Daí por que se torna necessário encon- 
trar um substituto. 

Não existe nenhum comando ou fun- 
ção específicos para isso no TK-2000. 
Porém, a função PEEK, que é usada pa- 





ra examinar uma posiçào absoluta de 
memória (veja artigo da página 261), 
pode ser usada para “varrer” o tecla- 
do. A locação de memória número 39 
(decimal) serve para essa finalidade. En- 
quanto nenhuma tecla for pressionada 
essa locação conterá o número 48 (de- 
cimal). Quando uma tecla for pressio- 
nada, um valor diferente deste será de- 
positado automaticamente na memória. 
O programa seguinte ilustra como po- 
demos aproveitar essa propriedade: 











10 HOME 

20 LET K=PEEK(39) 

30 IF K<>48 THEN PRINT K 
40 GOTO 20 


A linha 20 copia o conteúdo da me- 
mória 39 na variável K. A 30 mostrará 
esse valor na tela apenas se ele for dife- 
rente de 48, ou seja, se alguma tecla ti- 
ver sido pressionada. Em caso cont 
rio, o те saltará de novo para a 
linha 20, de modo a manter vigilância 
sobre a memória 39. 

O único problema é que os códigos 
numéricos retornados para cada tecla 
pressionada não correspondem ao códi- 
go ASCII dos caracteres aos quais elas 
estão atribuídas. 

Essa dificuldade, entretanto, pode ser 
facilmente solucionada por uma peque- 
na tabela de conversão, mostrada no fim 
deste artigo. Mas, se você preferir, po- 
de descobrir quais são esses códigos 
usando o programa, 

Para entender melhor como o co- 
mando PEEK (39) pode ser usado no lu- 
gar do comando INKEYS, acompanhe 
o programa apresentado a seguir. Ele 
desenha uma reta na tela, orientada em 
determinada direção. Pressione uma das 
teclas de controle do cursor (flechas) 
uma única vez, e a linha sofrerá uma 
mudanga de diregáo. 

Ao ser acionada a tecla <FIRE>, o 
programa terminará, 





10 HGR2:HCOLOR 3 

20 LET X=100:Y=90:DX=1:DY=0 

30 HPLOT X,Y 

40 FOR I=1 TO 40:NEXT I 

50 LET P=PEEK(39) 

60 IF P=48 THEN X=X+DX:Y=Y+DY: 
бото 30 

70 IF P=36 THEN DX=0:DY=-1:GOTO 
30 

B0 se P=30 THEN DX=0:DY=1:GOTO 
0 


90 IF P=18 THEN DX=-1:DY=0:GOTO 
30 
95 IF 
30 
100 IF P=46 THEN TEXT:END 
110 GOTO 30 


O lago principal do sistema está com- 
preendido entre as linhas 30 e 110. A cor 
ea posição inicial do ponto da tela são 
definidos nas linhas 10 e 20. A linha 20 
também define duas variáveis, DX e 
DY, que darão o incremento a ser so- 
mado a cada coordenada — X e Y —, 
quando o ponto for deslocado. Note 
que, com DX=1 e DY =0, inicialmen- 
te o ponto vai se deslocar de um em um 
só na direção horizontal. 

A linha 50 examina a memória vin- 
culada ao teclado. Se nenhuma tecla ti- 
ver sido pressionada, o código resultante 


P=24 THEN DX=1:DY=0:GOTO 





€ 48, e as variáveis X e Y são incremen- 
tadas de DX e DY, respectivamente, na 
linha 60. 

As linhas 70 a 100 verificam qual foi 
a tecla pressionada, Observe que os có- 
digos 36, 30, 18 e 24 correspondem às 
teclas do cursor; se uma destas for pres- 
sionada, os valores de DX e DY serão 
ajustados de modo a provocar movi- 
mento na direção apontada (a linha 40, 
por sua vez, serve apenas para diminuir 
a velocidade de deslocamento do ponto 
na tela). 

Finalmente, a linha 100 interrompe- 
rá o programa, quando a tecla <FI- 
RE> for pressionada. 

ПЗЕ 


ОЕ ADO 





O uso do comando PEEK implica a 
necessidade de trabalhar com valores 
não padronizados de códigos de teclas. 
Isso pode ser desvantajoso em muitas 
aplicações onde se deseja receber o có- 
digo ASCII da tecla, como também em 
programas de senha secreta (veja pági- 
na 166), e outros. 

Infelizmente, não existe nenhum 
PEEK apropriado para trabalhar com 
valores ASCII. Mas podemos ““enxer- 
tar" em nosso programa em BASIC 
uma pequena rotina em linguagem de 
máquina (cujo funcionamento não será 
explicado por enquanto), que atribua a 
um PEEK essa propriedade. 

Digite o comando NEW para apagar 
o programa anterior, e entre e execute 
o programa abaixo: 


1 FOR 1=768 TO 774 
2 READ N:POKE 1,N:NEXT 1 
3 DATA 32,67,240,141,0,4,96 


Como vocé deve ter notado, aparen- 
temente náo acontece nada. Tudo que 
O programa faz é carregar um progra- 
minha de sete bytes em código de má- 
quina numa parte náo usada da memó- 
ria do micro, que começa na locação 
768. Isso é feito por intermédio do co- 
mando POKE na linha 2. O programa 
está armazenado na linha DATA. 

Depois de rodar o programa, você 
pode apagá-lo com o comando NEW, 
pois ele não será mais necessário (o pro- 
grama em código de máquina ficará ar- 
mazenado até que a máquina seja desli- 
gada). Mas, se você preferir, pode tam- 
bém deixá-lo onde está. 

Para fazer funcionar esse programa, 
é preciso utilizar o comando CALL 768 
(que indica o endereço onde começa o 
programa). Toda vez que isso é feito, o 
computador ''varre"' o teclado e retor- 
na a um valor numérico corresponden- 
te ao código ASCII da tecla pressiona- 


da, mais 128, Se nenhuma tecla for pres- 
sionada, o código 0 será retornado, Pa- 
ra encontrar esse valor, usamos o co- 
mando PEEK (1024). 

O programa abaixo faz um teste, 


10 HOME 

20 CALL 768 

30 K=PEEK(1024) 

40 IF K»0 THEN PRINT K 
50 GOTO 20 


Como você já deve ter observado, a 
lógica do programa é bem clara: a linha 
20 chama a rotina de máquina e retor- 
na o código da tecla pressionada na lo- 
cação 1024 de memória. 

A linha 40 imprimirá esse valor se es- 
te for maior do que 0. 

Ao executar o programa vocé nota- 
rá que os valores retornados aparente- 
mente nào pertencem ao código ASCII. 
A letra A maiúscula, por exemplo, re- 
torna 193; a letra B, 194, e assim por 
diante. Experimente diminuir 128 desse 
valor: o resultado será 65, 66 etc.: ou se- 
ja, o código ASCII. 

Tente agora substituir a linha 40 pe- 
lo seguinte programa: 


40 IF K>0 THEN PRINT CHRS(K): 
Em seguida: 


40 IF K>159 THEN PRINT CHR$( 
K-128); 


Qual a diferença entre estas duas 
versões? 


PEQUE! Е$ТЕ 


Agora, como exemplo do uso do co- 
mando CALL, digite o programa: 


10 HOME:SPEED=100 

20 PRINT "TESTE DE DIGITACAO": 
PRINT 

30 FOR I=1 TO 10 

40 LET T«0:N$-"" 

50 FOR N=1 TO 7 

55 LET R=48+INT(RND(1)*10) 

60 N$*N$*CHR$(R):NEXT N 

70 VTAB 10:HTAB 15:PRINT N$ 

B0 VTAB 20:HTAB 1:PRINT " 
":UTAB 20:HTAB 1 

90 LET R$="* 

FOR J=1 TO 7 

CALL 768:K*PEEK (1024) 

IF K>0 THEN 130 

LET T=T+1:1F T>200 THEN 180 

GOTO 110 

LET K$*CHR$(K-128) :R$*R$*K$ 

PRINT K$; 

NEXT J 

VTAB 10:HTAB 15 

IF R$-N$ THEN PRINT 

"ACERTOU":GOTO 190 

PRINT "ERROU !":GOTO 190 

VTAB 10:HTAB 15:PRINT 

"DEMOROU" 


160 


170 
180 











190 FOR J=1 TO 1000:NEXT J 
200 NEXT 1 


O programa gera uma seqüéncia alea- 
tória de sete dígitos e pede que eles se- 
jam teclados rapidamente. O objetivo 
do exercício é digitar o nümero todo, 
sem errar, dentro de um intervalo de 
tempo máximo. 

As linhas 50 a 70 geram esse nüme- 
ro, armazenando-o na variável N$ e 
mostrando-o na tela. As linhas 100 a 150 
efetuam a leitura das teclas pressiona- 
das pelo usuário e a colocam em uma 
variável RS. 

Finalmente, as linhas 155 a 190 veri- 
ficam qual foi o resultado — este pode 
indicar várias alternativas, como erro, 
acerto, ou demora em datilografar to- 
do o nümero de teste. 

As linhas 110 e 115 efetuam a “'var- 
redura” do teclado para verificar se al- 
go foi pressionado. Em seguida, a linha 
120 aumenta a contagem de tempo (T), 
enquanto o usuário náo pressiona ne- 
nhuma tecla, Se alguma tecla foi pres- 
sionada, as linhas 130 e 140 concatenam 
o resultado na variável de resposta e 
mostram O caractere em outra locação 
da tela. 





MO FI 
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Quem conhece um mínimo de códi- 
go de máquina será capaz de entender 
facilmente o funcionamento da rotina 
768. Você pode tentar carregá-la no 
TK-2000 usando o Mini-Assembler, em 
lugar do programa apresentado linhas 
atrás. Simplesmente digite ASS e pres- 
sione <RETURN >. Depois, cada vez 
que aparecer um sinal de exclamação, 
digite as linhas abaixo. 

Para sair, pressione as duas teclas 
<RESET> ao mesmo tempo: 


300: JSR $F043 
30 STA $400 
306: RTS 





O número 300 está em hexadecimal: 
equivale ao 768 em decimal e é o ende- 
reco de origem da rotina (mas poderia 
ser um número diferente deste). 

O comando JSR pula para a sub- 
rotina em código de máquina armaze- 
nada no endereço FO43, hexadecimal, 
que efetua a varredura do teclado (JSR 
equivale ao GOSUB do BASIC). 

O comando STA copia o conteúdo 
do acumulador do micro (onde está o 
código da tecla pressionada) e o arma- 
zena na memória 1024 ($400 em hexa; 
mas poderia ser outra). 

Finalmente, o comando RTS retor- 
na para o BASIC. 








TABELA DE CÓDIGOS DE TECLA 


Caractere ASCII PEEK (39) CALL 768 


Caractere ASCII PEEK (39) CALL 768 

























































































nenhum 48 0 с 67 3 195 
espaço 32 12 160 D 68 9 196 
! 33 151 161 Е 69 15 197 
a 34 150 162 F 70 8 198 
ж 35 149 163 G 71 7 199 
$ 36 148 164 H 72 37 200 
% 37 147 165 1 73 33 201 
& 38 153 166 J 74 38 202 
t 39 154 167 K 75 39 203 
( 40 155 168 L 76 40 204 
b 41 156 169 M 77 44 205 
ы 42 157 170 N 78 43 206 
+ 43 163 171 о 79 34 207 
44 45 172 P Bo 35 208 

45 161 173 а 81 17 209 

46 46 174 R 82 14 210 

l 47 175 175 s 83 10 211 
0 48 29 176 u 84 32 212 
1 49 23 177 v 85 2. 213 
2 50 22 178 w 86 16 214 
3 51 21 179 x 87 4 215 
4 52 20 180 Y 88 31 216 
5 53 19 181 z 89 5 217 
6 54 25 182 t 112 36 240 
УД 55 26 183 4 113 30 241 
8 56 27 184 ~ 8 18 136 
9 57 28 185 > 21 24 149 
A 65 11 193 <FIRE> 46 46 174 
B 66 1 194 <RETURN> 13 42 141 






















O comando PRINT USING controla a 
forma com a qual aparecem na tela os 
números e as cadeias alfanuméricas. 


Embora recursos de formatação co- 
mo a vírgula, a função TAB etc., fun- 
cionem bem na maioria das aplicações, 
em alguns casos é interessante contro- 
lar não só o posicionamento de núme- 
ros e nomes a serem exibidos no vídeo, 
como também os seus formatos. Ora, is- 
so não pode ser feito apenas pelo co- 
mando PRINT. Alguns micros dispõem 
para isso de um poderoso comando 
auxiliar do PRINT, que é chamado 
USING. Outros, porém, não contam 
com esse recurso. É o caso das linhas 
ZX-81, Spectrum, Apple II e TK-2000. 
Mais adiante, estudaremos um modo de 
superar essa dificuldade, obtendo efei- 
tos semelhantes aos provocados pelo co- 
mando PRINT USING. 


T 


O PRINT USING facilita a especifi- 
cação de formatos de saída em tela, pos- 
sibilitando a programação de máscaras 
de saída. Para entender melhor como o 
USING funciona, digite o exemplo a se- 
guir, que mostra as raízes quadradas de 
dez números inteiros: 
10 CLS 
20 FOR 1-1 ТО 10 
30 PRINT USING "44 
1;SQR(I) 

40 NEXT I 

Os números ficam alinhados em duas 
colunas e a coluna da direita tem todos 
os valores com quatro decimais. Para 
verificar o efeito do PRINT USING, 
substitua a linha 30 por: 


30 PRINT I,SQR(I) 


Para usar a especificação USING 
dentro de um PRINT basta colocar en- 
tre aspas o gabarito de saída. O carac- 
tere sustenido (%) indica onde deve ir 
cada dígito dos elementos da lista de saí- 
da. Um espaço em branco assinala on- 
de começa e termina o gabarito relativo 
a cada elemento. O ponto indica onde 
deve ser feita a quebra entre as partes 


жынын”; 





inteira e fracionária. 

O gabarito estabelecido pelo PRINT 
pode ter especificações sucessivas para 
mais de um item de saída (no exemplo, 
o mesmo PRINT mostra a variável I e 
o resultado da raiz quadrada de I, sen- 
do o primeiro com três dígitos). En- 
quanto existirem elementos de saída a 
serem impressos, após o USING, o com- 
putador continuará procurando gabari- 
tos dentro da cadeia entre aspas, 

O USING aceita ainda variáveis al- 
fanuméricas. 

A função STRINGS gera uma cadeia 
de caracteres, com o comprimento de- 
sejado: 

10 CLS 

12 INPUT "QUANTAS DECIMAIS ";N 
E US="4+ 44.” + STRINGS(ND , 
n 

20 FOR I-1 TO 10 

30 PRINT USING U$;I;SQR(I) 

40 NEXT I 

A tabela apresentada nesta página re- 
laciona os diversos sinais convencionais 
utilizados em um PRINT USING e seus 
efeitos para a especificação de gabari- 
tos, para números etc. 

O PRINT USING encontra suas apli- 
cações mais interessantes na formatação 
de relatórios de saída em tela ou impres- 
sora, onde se requer um controle perfei- 
to sobre o alinhamento de colunas, a 
formatação de valores numéricos etc. 
Uma única variável ou especificação en- 
tre aspas no USING pode ser usada pa- 
ra formatar uma linha de saída inteira 
da tabela. Se a linha for muito longa, 
o programa deve ser estruturado com 
base em vários PRINT USING separa- 
dos por pontos e vírgulas. 

comum, em tabelas com valores mo- 
netários, empregar-se os sinais + e — no 
final (e não no começo) da quantia. Isso 
também é possível no PRINT USING. 

Em programas para preenchimento 
automático de cheques, os sinais $ (ci- 
frão), $$ (duplo cifrão), ** (protegido) 
e **$ (cifrão protegido) especificam co- 
mo será preenchida a parte esquerda de 
campos com valores monetários: 


10 M$-" хжоффф, ЕВЕ, ВЕЕ. ВЕ 
cruzados” 

15 DS=" 44/44/4044" 

20 INPUT "QUANTIA A SER PAGA " 
i Q 

30 INPUT 


"DIA, MES, ANO” ;D,M,A 


COMO FUNCIONA O 
PRINT USING 


O QUE É UM PRINT FORMATADO 

PARA QUE SERVE O 
PRINT USING 

COMO USAR MÁSCARAS 













40 CLS 
50 PRINT 


"PAGUE-SE A QUANTIA DE 





60 PRINT USING M$; 
70 PRINT "NO DIA " 
D$;D;M;A 

O TRS-80 e o TRS-Color tém as mes- 
mas regras de uso do PRINT USING. 
Os sinais demarcadores são os mesmos, 
e a palavra USING deve suceder a ex- 
pressão PRINT. Já o MSX apresenta al- 
gumas diferenças: 
- Em vez do sinal de porcentagem (o), 
esse micro utiliza uma barra inversa (^) 
para demarcar o espaço das cadeias al- 
fanuméricas. 
- O ampersand (&) serve para indicar 
uma substituição completa por uma ca- 
deia alfanumérica. 
- O termo USING pode ser misturado 
aos itens de uma linha de impressão: 


RINT USING 





70 PRINT "NO DIA ";USING D$;D; 
М;А 
САВАСТЕВЕЅ 
DO PRINT USING 

Sinal Efeito 

# coloca um dígito numérico 

ES coloca um ponto decimal 

A rte inteira em 

пед 

ou branco após um positivo 

+ coloca um sinal — após um 
número negativo ou um 
+ após um positivo 

P assinala um formato exponen- 
cial 

** preenche um campo com aste- 
riscos à esquerda 

$$ coloca um cifrão antes de um 
valor nu 

**$ coloca um cifrão e asteriscos 
à esquerda 

! coloca o primeiro caractere de 
uma cadeia 

% assinala o início e o fim de um 
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A IMPORTANCIA 

DE PLANEJAR 
= COMO POSICIONAR O TEXTO 
E MELHORE A DIAGRAMAÇÃO 
ADICIONE COR 








Para dar a seus programas 

uma aparência profissional, você 
precisará planejar cuidadosamente 
a página-título e outras telas. 
Aqui você aprende a fazer isso. 


Do ponto de vista do usuário, há vá- 
rias diferenças importantes entre um 
programa simples e bem planejado e ou- 
tro que não apresenta essas qualidades. 
A primeira coisa que distingue um pro- 
grama “profissional” de um amadorís- 
tico é, sem dúvida, o funcionamento 
adequado, sem erros e sem rotinas inú- 
teis ou mal aproveitadas. Além disso, 
num nível mais teórico, o programa pro- 
priamente dito deve ser bem estrutura- 
do e claro. As técnicas necessárias para 
lhe assegurar uma boa estruturação e a 
ausência de erros já foram vistas em ar- 
tigos anteriores. 

Porém, mesmo o programa mais bem- 
feito parecerá obra de um principiante 
se não tiver uma boa apresentação e, so- 
bretudo, se as telas não forem bem or- 
ganizadas e fáceis de compreender. Pa- 
ra isso, cada tela, bem como o menu ou 
mensagem que contiver, deve ser cuida- 
dosamente estudada. Sem o posiciona- 
mento correto das declarações PRINT 
e INPUT será impossível criar telas de 
apresentação clara e interessante. 

No artigo da página 146, examina- 
mos os vários comandos BASIC dispo- 
níveis no seu computador que servem 
para controlar a posição dos caracteres 
na tela. Agora, você verá como usá-los 
para montar uma página-título para um 
jogo imaginário — “INPUT”. Técnicas 
similares poderão ser empregadas para 
a elaboração de telas que apresentam 
instruções, menus e mensagens. 


ШЕ кө Жү. 


Nada causa pior impressão do que 
uma tela contendo mensagens com er- 
ros de grafia ou sintaxe. 

Você já deve ter observado em mui- 
tos jogos mensagens do tipo “Você tem 
um canhão disponivel’. Este caso par- 
ticular desabona o programador, sobre- 


tudo porque o erro poderia ter sido fa- 
cilmente corrigido com uma declaração 
IF...THEN (IF L=1 THEN PRINT 
“CANHÃO DISPONÍVEL”). Antes de 
começar a se preocupar com os aspec- 
tos visuais da tela, procure assegurar-se 
de ter eliminado todos os erros desse ti- 
po de programa. 

Ao diagramar uma tela, leve em con- 
ta algumas regras básicas. Em primeiro 
lugar, não perca de vista o objetivo prin- 
cipal: a clareza. Palavras muito próxi- 
mas umas das outras dificultam a leitu- 
ra — assim, deixe um espaço razoável 
entre as linhas. Evite também dividir pa- 
lavras; se for impossível, utilize, então, 
o hífen para separar as duas partes. 

Caso precise imprimir na tela dados 
fornecidos pelo usuário — como um no- 
me, em uma lista de recordes —, tenha 
o cuidado de evitar que o novo dado in- 
terfira nos demais. No exemplo citado, 
você poderia incluir uma rotina que não 
aceitasse nomes com mais de um certo 
número de caracteres ou que, indepen- 
dentemente do tamanho do novo dado, 
o colocasse numa posição que não afe- 





tasse a do placar ou de outras informa- 
ções exibidas. 

Sempre que você tiver uma lista de in- 
formações, faça com que todos os da- 
dos comecem numa mesma coluna. A 
recomendação parece óbvia, mas vários 
programadores não procedem assim. 

O segundo aspecto a observar diz res- 
peito à quantidade de informações. Se 
você incorrer no erro de introduzir in- 
formações em excesso numa mesma te- 
la, quem utilizar seu programa não con- 
seguirá memorizar todas as instruções e, 
em conseqüéncia, nào explorará todas 
as suas possibilidades. 

Por outro lado, para nào ser obriga- 
do a trabalhar com um nümero exage- 
rado de telas, vocé nào poderá reduzir 
muito a quantidade de informação em 
cada uma delas. O ponto de equilíbrio 
dependerá, naturalmente, do seu pro- 
grama — quanto maior sua facilidade 
de uso e clareza, menos instruções serão 
necessárias. 





USO DE CORES 


Torne a tela o mais interessante pos- 
sível. Se puder use cores. Elas dão mais 
vida à tela, facilitando a compreensão 
das mensagens ou ressaltando determi- 















nados itens. Estude cada caso para de- 
cidir se utilizará cores no fundo, no tex- 
to, em ambos ou simplesmente na com- 
posição de uma moldura. 

Os usuários do Apple ou do Sinclair 
Spectrum dispõem de um comando mui- 
to versátil — o FLASH. Ele apresenta- 
rá sua mensagem piscando na tela (em 
cores, no Spectrum). Impedindo que as 
instruções assumam uma forma muito 
estática, esse recurso torna o texto bas- 
tante atraente. 

Se você possui outro modelo de mi- 
cro, poderá obter um efeito similar ao 
do comando FLASH, imprimindo o tex- 
to repetidamente no mesmo ponto da te- 
la, em cores diferentes. 

O comando INVERSE, do Apple, 
também possibilita o destaque de men- 
sagens. Ele é especialmente útil, já que 
não se pode usar cor na tela de texto des- 
se computador. 


POSICIONAMEN 


Para assegurar a clareza da tela, fal- 
ta ainda um importante elemento: o po- 
sicionamento das palavras. Para ter um 
exemplo, digite e execute este pequeno 
programa. Vocé verá como ndo fazer 
uma página-título para o seu programa. 
As palavras estão jogadas na tela: não 
há coordenação entre uma e outra, o 
que resulta numa grande confusão vi- 
sual. Mais tarde, examinaremos como 
arrumar tudo isso. 


10 PRINT "Apresentamos um nov 
o jogo chamado input” 
20 PRINT AT 5,17;"(c) 1986" 
30 PRINT AT 12,13;" por Nova 
Cultural" 

40 PRINT AT 18,18; 
ecla" 

50 PAUSE 100 

60 CLS : STOP 


10 CLS 4 

20 PRINT 640,"INPUT" 

30 PRINT €136,"copyright nova c 
ultural”; 

40 PRINT €228,"APRESENTA” 

50 FOR T=1 TO 2000:NEXT:CLS 


Para o TRS-80, use apenas CLS na 
linha 10 e multiplique por 2 todos os va- 
lores das instruções PRINTO. 


nu 


10 PRINTTAB(4);"novacultural ap 





"qualquer t 





resenta" 

20 PRINTTAB(10) ;"input" 

30 PRINT:PRINT"copyright 1986" 
40 FORJ=1T0500:NEXT 

50 CLS 


ГЕЛ 


10 PRINT TAB( 5);"NOVACULTURA 
L APRESENTA” 
20 PRINT TAB( 22);" INPUT” 


30 PRINT : PRINT "COPYRIGHT 19 
86" 

40 FOR J = 1 TO 1000: NEXT 

50 HOME 


Observe o resultado: trata-se, sem 
dúvida, de uma tela inexpressiva, em 
que vários detalhes precisam ser altera- 
dos. Inicialmente, poderíamos empregar 
letras maiúsculas para melhorar o efei- 
to. A versão para o Spectrum utiliza le- 
tras minúsculas até mesmo para a pri- 
meira palavra da tela e para o nome do 
jogo. Maiúsculas ressaltam palavras im- 
portantes ou, se forem usadas no texto 
inteiro, garantem à tela uma aparência 
bem clara. 

Deveríamos, também, limpar a tela, 
antes de mostrar um novo conjunto de 
mensagens. Como você pôde observar 
no programa anterior, fragmentos do 
que estava na tela misturam-se à men- 
sagem, completando a confusão. 

Não há espaço entre as palavras NO- 
VA e CULTURAL. Deveria haver. Ve- 
remos, adiante, como deixar tudo isso 
em ordem. 

Outra falha do programa é não espe- 
rar que se pressione alguma tecla para 
prosseguir. Assim, não há muito tem- 
po para ler as mensagens antes que elas 
sejam apagadas. Para evitar esse proble- 
ma é sempre interessante incluir uma li- 
nha dizendo o que se deve fazer para que 
o programa continue — quando o usuá- 
rio quiser. 


No Spectrum, sabendo-se o tamanho 
da tela e o número de caracteres que 
compõem as palavras, pode-se planejar 
com muita facilidade o posicionamen- 
to da mensagem. 

Suponhamos que seu computador te- 
nha 22 linhas e 32 colunas; você quer co- 
locar uma frase de dez caracteres na se- 
gunda linha, e bem no meio dela. Ao ve- 
rificar o tamanho da frase, não se esque- 
ça dos espaços. 

Para calcular a coordenada horizon- 
tal da posição onde a frase começará a 
ser impressa, subtraia o tamanho da fra- 
se (10 no nosso caso) do total de carac- 


teres por linha (32) e divida o resultado 
por 2. 

No nosso exemplo, a resposta é 11. 
Сото о 0 é considerado, o primeiro ca- 
ractere da linha tem coordenada 0, e não 
1, Assim, devemos subtrair 1 do resul- 
tado acima para conseguir a coordena- 
da horizontal do PRINT AT (ou PRINT 
TAB). 

Se você quiser posicionar uma frase 
a apenas dois ou três caracteres da mar- 
gem esquerda, será mais fácil colocar o 
número de espaços dentro da declara- 
ção PRINT em vez de usar PRINT TAB 
ou PRINT AT. No entanto, se o núme- 
ro de espaços for grande, evite essa téc- 
nica, pois ela tende a gastar muita 
memória. 

Você pode calcular a posição vertical 
como calcula a horizontal — ou seja, 
para colocar a mensagem no centro da 
tela, vê quantas linhas ela ocupa, sub- 
trai esse número do total de linhas e di- 
vide por 2. Por fim, subtrai 1 do resul- 
tado, considerando que a coordenada da 
primeira linha é 0. 

Quando quiser colocar a linha em ou- 
tra posição, use um papel gráfico para 
visualizar melhor a tela, ou, se já tem 
alguma experiência, estime a posição 
que lhe convém, de memória. 

Os usuários do Spectrum devem ob- 
servar que a instrução PRINT AT fun- 
ciona de modo um pouco diferente do 
dos outros computadores. O primeiro 
número que acompanha essa instrução 
refere-se à coordenada vertical (y) e o se- 
gundo, à coordenada horizontal (x). No 
entanto, o comando PLOT utiliza pri- 
meiro a coordenada x e depois a y. 


O número após o PRINTO refere-se 
a uma posição da tela de texto do com- 
putador, Existem 512 posições no TRS- 
Color e 1024 no TRS-80. Os números, 
assim, não podem exceder 511 e 1023, 
respectivamente, já que a numeração co- 
mega no 0. 

O cálculo do número da posição que 
se quer é muito simples. Primeiro, mul- 
tiplique o número da linha desejada por 
32 (esse é o número de caracteres por li- 
nha, no Color) ou por 64 (se vocé está 
usando um TRS-80). Depois, adicione 
um valor de 0 a 31 (no Color) ou de 0 
a 63 (no TRS-80), para obter a posição 
horizontal. 

Se preferir, deixe que o computador 
faça as contas por você. Para isso, uti- 
lize a seguinte fórmula: PRINTO 
L*32 +C, “MENSAGEM”. L represen- 
ta a linha que você deseja (de 0 a 14) e 
Ca coluna (de 0 a 31). No TRS-80, use 








64 em lugar de 32; € pode variar de 0 
a 63. 

Para centralizar uma frase na tela, 
subtraia o total de caracteres da frase do 
total de caracteres da linha (32 ou 64); 
divida o resultado por 2 e subtraia 1. 
Vocé obtém, assim, o nümero da colu- 
na em que a impressão da frase se ini- 
ciará. Esse valor pode ser utilizado, por 
exemplo, com a fórmula dada anterior- 
mente. Lembre-se de que os números 
que seguem a instrução PRINTO de- 
vem ser inteiros. 


O posicionamento de mensagens no 
MSX também é muito fácil. Esse com- 
putador usa o comando LOCATE, se- 
guido da coluna e linha (nesta ordem). 
Assim, para colocar a mensagem no lu- 
gar desejado, basta calcular a coluna e 
alinha. O mesmo comando também po- 
de ser usado com um argumento numé- 
rico, que será interpretado como a co- 
luna onde se iniciará a impressão. 

Como o MSX tem duas telas de tex- 
to, verifique qual delas está em uso pa- 
ra, então, calcular a posição adequada 
de impressão. A primeira (SCREENO) 
apresenta quarenta colunas por 24 li- 
nhas e a segunda (SCREEN1), 32 colu- 
nas por 24 linhas. 








Para centralizar uma frase em deter- 
minada linha, subtraia o total de carac- 
teres da frase do total de caracteres da 
linha e divida o resultado por 2. Esta se- 
rá a posigáo para o início da frase. 


O Apple e seus compatíveis empre- 
gam, além do PRINTTAB, os coman- 
dos HTAB e VTAB para posicionar o 
cursor dentro da janela de texto. O co- 
mando HTAB determina a posigáo ho- 
rizontal com valores que variam de 1 a 
40 e o VTAB determina a posição verti- 
cal, com valores que vào de 1 a 24. O 
uso de valores fora dessas faixas provo- 
cará o aparecimento de uma mensagem 
de erro. 

Para a centralização de uma mensa- 
gem, primeiro calcule o total de carac- 
teres dela, depois subtraia de 40 e divi- 
da por 2. O resultado obtido deve ser 
utilizado como posição inicial de im- 
pressão da mensagem. 

O interessante, nesse computador, é 








a facilidade com que se pode manipu- 
lar a janela de texto. Essa caracterís 
torna muito simples a limpeza da linha 
de uma determinada posição até o fim 
dela ou de uma posição até o fim da te- 
la, Utiliza-se o comando CALL -868 pa- 
ra apagar tudo o que estiver à direita da 
posição do cursor até o fim da linha, O 
CALL -958 limpa todos os caracteres da 
janela de texto, da posição do cursor até 
o fim da tela. Desse modo, podemos 
trocar mensagens em locais específicos 
da tela, conservando o resto intocado, 
com grande rapidez e versatilidade. 




















UMA TELA BEM-FEITA 


Uma tela pode ser clara e atraente 
mesmo que nào empreguemos técnicas 
de programação complicadas. O progra- 
ma dado a seguir é um exemplo disso. 
Ele corrige os defeitos do programa an- 
terior e adiciona cor e animação ao tí- 
tulo, para torná-lo mais interessante. Dê 
especial atenção ao uso dos comandos 
de controle do cursor, pois eles são fun- 
damentais em tudo o que diz respeito à 
impressão na tela. 


5 LET X=1 

10 BORDER 1: PAPER 1: INK 7: 
CLS 

20 PRINT INVERSE 1;AT 3,4;" 
EDITORA NOVA CULTURAL " 

30 PRINT INVERSE 1;АТ 5,10;" 
APRESENTA ” 

40 PAUSE 50 

50 PRINT PAPER 6; INK 1;AT 
10,10;" INPUT” 

60 PRINT PAPER 6; INK 2;FLASH 


liAT 9,9; mm mm mmm mem Р 
E ARS 





70 PRINT PAPER 6; INK 2; 
FLASH 1;AT 10,9;"D";AT 10,21; 
80 PRINT PAPER 5; INK O;AT 


15,2;"COPYRIGHT AUDIO, VISUAL, 
1984" 

90 PRINT '' QUALQUER TECLA 
PARA CONTINUAR" 

100 PAUSE O 
















110 CLS 

120 PRINT "INPUT - INDICE” 

130 PRINT 

140 FOR X=1 TO 10 

150 READ a$ 

155 READ b$ 

160 PRINT 'TAB 3;aS;TAB 25:b5 
170 NEXT X 

180 DATA "Animacao” E 
as1c,programacao” "BREAK 
«Spectrum","7" 652%” 
+"Gravador «uso 
do”,”26-27”,"CLEAR”,”10-27”,"C 
LOAD,Dragon”,”14","CLS,explica 


cao de","27", 
"в" 


"CODE, Spectrum”, 


Como você pode observar, o progra- 
ma, inicialmente, muda a cor da tela e 
das bordas, e limpa a tela. Escolha as 
cores de sua preferência, mas procure 
evitar o habitual fundo negro com letras 
brancas. Qualquer outra coisa terá efei- 
to melhor, simplesmente por ser di- 
ferente. 

Não se esqueça, porém, de que a fa- 
cilidade de leitura é indispensável. As- 
sim, para as letras, opte por uma cor que 
contraste bem com o fundo. Fora isso, 
use seu bom gosto: algumas combina- 








dáveis que outras. 


POSICIONAMENTO 


As linhas 20 e 30 colocam na tela as 
palavras “EDITORA NOVA CULTU- 
RAL APRESENTA". Observe que o 
nome da empresa fica na primeira linha 
e a palavra “APRESENTA”, duas li- 
nhas abaixo. Esse detalhe garante ao 
texto muito maior clareza. 

O programa utiliza o comando 
PRINT AT para posicionar as palavras 
no centro da tela. Tente descobrir quais 
deveriam ser os números dessa instru- 
ção por meio dos cálculos explicados an- 
teriormente. Veja se eles conferem com 
os do programa! 

Ao contrário do programa anterior, 
este posiciona as palavras no lugar ade- 
quado — detalhe que, como você pode 
notar, determina uma grande diferença 
de qualidade entre as telas. 

Pode-se também utilizar a instrução 
PRINT TAB para posicionar a mesma 
palavra, mudando a linha 30 para: 





30 PRINT ‘TAB INVERSE l; 
“APRESENTA” 

O apóstrofo junto ao TAB 10 faz 
com que o Spectrum deixe uma linha em 
branco antes de imprimir “APRESEN- 
TA” na tela. Pode-se também obter o 
mesmo resultado simplesmente colocan- 
do uma instrução PRINT vazia (com 
um número de linha apropriado). 

O programa faz uma pausa após es- 
sa mensagem para dar maior ênfase ao 
próximo item que deverá ser impresso, 
o nome INPUT. 

As linhas 50, 60 e 70 imprimem IN- 
PUT com uma borda que pisca em ver- 
melho e amarelo. Essa borda é feita com 
caracteres gráficos da ROM — como se 
vê no programa — com o comando 
FLASH usando vermelho e amarelo. 

Essas linhas utilizam uma série de co- 
mandos PRINT AT e mostram o quan- 
to ele é flexível, Não há necessidade de 
se repetir o PRINT enquanto um ponto 
e vírgula é colocado entre os itens da 
linha. 

Os vários AT são separados por pon- 
to e vírgula. Caso os separássemos ape- 
nas por vírgulas, estas colocariam meia 
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linha de espago na tela, o que poderia 
apagar alguma outra coisa que ali se en- 
contrasse. Assim, a náo ser que vocé 
queira apagar o que estiver nesta posi- 
ção da tela, use de preferência o ponto 
e vírgula, 

Como a borda piscante não fica no 
centro da linha, o cálculo de suas coor- 
denadas não pode ser feito da maneira 
explicada anteriormente. Calcule as po- 
sições tomando as coordenadas da pa- 
lavra central da linha e adicione e sub- 
traia o número necessário para obter os 
resultados para a borda. 

Tomemos, como exemplo, a primei- 
ra linha da borda. Já sabemos que as 
coordenadas da palavra INPUT são 10, 
10. Sabemos também que esta linha fi- 
ca uma acima de INPUT. Então, sub- 
traindo 1 do primeiro número, obtemos 
a primeira coordenada: 9. 

Como queremos que a borda come- 
ce um espaço antes da palavra, nova- 
mente subtraímos 1, agora da segunda 
coordenada de INPUT, obtendo 9. 

Calcule os números das outras par- 
tes das bordas e compare seus resulta- 
dos às coordenadas que empregamos. 


O programa completa a tela com uma 
mensagem de direitos autorais (para 
lembrar aos usuários que é ilegal copiar 
programas) e informa que se deve pres- 
sionar qualquer tecla para continuar. 
Ao fazê-lo, não aparecerão instruções 
nem o início de um jogo, mas um índi- 
ce de INPUT. 

Quando se pressiona uma tecla, o 
Spectrum limpa a tela e imprime a men- 
sagem “INPUT — INDICE” em seu to- 
po. A mensagem é posicionada no can- 
to esquerdo da linha. Se quiser centra- 
lizá-la, introduza nove espaços entre as 
aspas e a primeira letra da mensagem. 
Em seguida, o computador deixa uma 
linha em branco, resultado do PRINT 
sem nenhuma mensagem da linha 130. 

O laço FOR... NEXT que se segue lê 
duas variáveis alfanuméricas da linha 
DATA de número 180. Pode parecer es- 
tranho que números de páginas estejam 
armazenados em variáveis desse tipo. 
Observe, no entanto, que às vezes en- 
contramos mais de um número. Sua ar- 
mazenagem numa variável numérica se- 
ria interpretada como uma subtração e, 
quando imprimíssemos o valor da variá- 
vel, iríamos obter o valor— 6, o que cau- 
saria muita confusáo! 

Além disso, alguns dados apresentam 
informacóes separadas por vírgula. Co- 
mo você sabe, esta é a pontuação que 
separa diferentes itens numa linha DA- 
TA. Assim, é necessário colocar esses 
dados entre aspas para que o computa- 
dor náo os interprete como coisas dis- 
tintas — com as aspas, ele lé a informa- 
ção como um bloco, sem separá-la, 

A linha 160 controla a impressão das 
informações da linha DATA, determi- 
nando sua posição na tela. 

O PRINT TAB alinha os dados e nú- 
meros de páginas para que todos come- 
cem na mesma coluna, dando à lista 
uma aparência organizada. Ele é muito 
útil na impressão de índices, determi- 
nando a coluna em que o dado começa- 
rá a ser impresso. Nosso programa co- 
loca a indicação na coluna 3 e a página 
na coluna 25. 

Observe que usamos apenas um 
PRINT para imprimir os dois dados na 
linha, sendo que os TAB são separados 
por ponto e vírgula. Se você mudar o 
TAB 25 para TAB (25 + 32) ou TAB 57, 
náo notará nenhuma diferenga. Quan- 
do se emprega um número maior que 
32, ele é dividido por 32 e o resto é des- 
prezado. O cursor não muda de linha até 
que se utilize o retrocesso — ou seja, até 
que um TAB tenha um valor menor do 
que a posição atual do cursor. O micro 
pula, então, para a linha seguinte e ne- 
la coloca a informação. 

Experimente mudar os valores do 





TAB para ter uma idéia melhor do que 
eles significam em termos de posição na 
tela. Lembre-se de que esta tem 32 ca- 
racteres por linha, 

O PRINT AT eo PRINT TAB, em- 
bora muito parecidos, sào usados em 
circunstáncias diferentes. Sempre que 
você quiser imprimir uma lista de pala- 
vras ou números na tela, utilize PRINT 
TAB. PRINT AT é mais poderoso pa- 
ra a impressão de mensagens isoladas 
em determinado ponto da tela. 


Digite este programa e veja como o 
PRINTO pode ser usado para produ- 
zir uma página-título adequada: 


10 CLS 3:B$=CHRS (128) 
20 PRINT 671,B$;"nova";BS;"cult 
ural";B$; 

30 PRINT 6138,"APRESENTA"; 

40 PRINT 6358,B$;"copyright";BS 
;B$;B$;" 1986" ;BS; 

50 PRINT €232,CHRS (190) ;STRINGS 
(11,CHR$ (188) ) ; CHR$ (189) ; 

60 PRINT 8264,CHR$(234);" I N P 
Ч т ";CHR$(229); 

70 PRINT €296,CHRS (155) ¡STRINGS 
(11,CHR$ (147) ) ; CHR$ (151) ; 

80 PRINT 6448," QUALQUER TECLA 
PARA CONTINUAR "; 

90 J=1-J: SCREEN 0,J 

100 FOR K=1 TO 200:NEXT 

110 IF INKEY$<>"” THEN 130 

120 GOTO 50 

130 CLS 4 

140 PRINT 67,"INPUT - INDICE"; 
150 FOR X=3 TO 12 

160 READ DS,ES 

170 PRINT €32%*X+1,DS;:PRINT 632 
AX+25,LEFTS(" "+ES+" rad 
180 NEXT X 

190 DATA ANIMACAO,26-32,"BASIC, 
PROGRAMACAO" , 2-7 , " BREAK DRAGON” 
7,"CASSETE,FITAS”,25,"CASSETE, 
GRAVADORES” , 24, "CHRS, USO DE”, 26 
-27,CLEAR, "10,27" ,"CLOAD, TRS",1 
4,"CLS, EXPLICACAO" , 27, " CODE, SPE 
CTRUM" , 8 

200 GOTO 200 


O programa começa mudando a cor 
da tela para azul, na linha 10. O resto 
da linha iguala B$ a um quadrado escu- 
ro. As linhas 20 e 40 imprimem as pala- 
vras em caracteres reversos, usando B$ 
como um espaço. Lembre-se de que os 
caracteres reversos do TRS-Color 
aparecem em minúsculo nas listagens. 

A linha 30 é similar, com uma dife- 
rença: como a palavra APRESENTA é 
menos importante, aparece em caracte- 
res maiúsculos normais. 

No centro da tela está o título INPUT 
rodeado por um bloco gráfico colorido. 
Os caracteres e o título são impressos pe- 
las linhas 50 a 70. 

































O manual indica os caracteres gráfi- 
cos que estão disponíveis. Eles são cons- 
tituídos por áreas verdes e áreas escuras. 
Adicionando-se um múltiplo de 16 ao 
código do caractere, o verde pode ser 
substituido por amarelo, azul, vermelho 
etc. 

As áreas da tela coloridas de verde 
sáo aquelas em que a cor de fundo apa- 
rece. E fácil mudar a cor da tela do ver- 
de para o laranja e produzir um efeito 
pisca-pisca. Para a mudanga, a linha 90 
usa o comando SCREEN de maneira si- 
milar á utilizada para mudar a cor de 
gráficos de alta resolução. SCREEN 0,1 
muda a cor da tela para laranja e 
SCREEN 0, 0 traz de volta o verde. O 
programa troca a cor da tela a cada exe- 
cução do laço. 

Para que se possa apreciar melhor a 
mudança de cor, a linha 100 estabelece 
uma pequena pausa. A linha 120 vai fe- 
char o laço. ; 

Se alguma tecla é pressionada en- 
quanto a página está sendo mostrada, 
alinha 110 faz com que o programa pas- 
se para a parte seguinte. 

A linha 130 muda a tela para verme- 
lho. A linha 170 e o laço FOR...NEXT 
das linhas 150 e 180 encarregam-se de 
imprimir os dados lidos da linha 190. A 
cada execução do laço, uma nova linha 
é usada para a referência e o número de 
linha. O LEFTS faz com que o número 
da linha apareça sempre num painel do 
mesmo tamanho, o que assegura um vi- 
sual bastante claro. 

O toque final cabe ao laço da linha 
200 que, embora não pareça, é bem im- 
portante. Sem essa linha, o programa 
colocaria uma mensagem de prontidão 
na tela, desfigurando nosso trabalho. 


“o AR | 


Vejamos uma tela mais cuidada pa- 
ra apresentar o nosso jogo: 


10 COLOR 15,12,12:KEYOFF 

20 SCREENI:CLS:ZS*CHRS (1) 

30 PRINTTAB(8);"NOVA CULTURAL" 
40 PRINT:PRINTTAB(6);"A P R E 8 
ENTA" 

50 LOCATE 11,9:PRINTZS*CHR$ (88) 
1:FORX-1TO5:PRINT ZS*CHR$(87):: 
NEXT: PRINTZS*CHRS (89) 

60 LOCATE 11,10:PRINTZS*CHR$ (B6 
) i" INPUT" ; 254 CHR$ (86) 

70 LOCATE 11,11:PRINTZS+CHRS (90 
);: FORX=1TOS:PRINT ZS+CHBS (B7) ; 
:NEXT: PRINTZS+CHRS (91) 

80 LOCATE 5,19:PRINT"Copyriaht 
(С) 1986" 

90 LOCATE 2,22:PRINT"Tecle а ba 
rra de espaços” 

100 IF ІМКЕҮ5-""ТНЕМ100 

110 CLS:LOCATE 7:PRINTCHR$ (207) 


;"INPUT - ÍNDICE";CHR$(208) 


120 FOR J=1T07: LOCATE 0,2*J+6 
130 READ AS,BS 

140 PRINTAS;TAB(23)¡BS 

150 NEXT 

160 GOTO 160 

170 DATA ANIMAÇÃO, 26-32, PROGRAM 


AÇÃO BASIC,2-7,"CTRL-STOP, MSX” 
+B, SISTEMA OPERACIONAL, 25,CONTR 
OLADORES DE DISCO,24,"CHR$, uso 
do",26-27,"POKE, como usar o", 
27-28 


O programa começa mudando a cor 
da tela para verde, com caracteres bran- 
cos, e desativando as indicações das te- 
clas de função. Em seguida, seleciona a 
tela de texto de 32 colunas e define a va- 
riável Z$ como o caractere de código 1. 
Adiante, veremos a utilidade dessa va- 
riável. 

As linhas 30 e 40 colocam na tela, de 
forma organizada, a mensagem ““NO- 
VA CULTURAL APRESENTA”. O 
PRINT TAB, com um valor adequado, 
encarrega-se de centralizar as palavras, 
enquanto o PRINT vazio que inicia a li- 
nha 40 produz o espaço de uma linha en- 
tre as palavras. 

As linhas 50 e 70 imprimem o título 
INPUT dentro de uma moldura forma- 
da por caracteres gráficos. Esses carac- 
teres são acessados pela instrução PRINT 
na forma: PRINT CHRS$(1) + CHRS (có- 
digo do caractere + 64). 

Observe o uso da instrução LOCA- 
TE, já explicada anteriormente, para 
posicionar na tela caracteres gráficos e 
palavras. 

A linha 100 pode parecer um tanto 
estranha, mas é muito importante no 
programa. Ela faz com que o computa- 
dor varra repetidamente o teclado, até 
que pressionemos alguma tecla, passan- 
do para a parte seguinte. 

A linha 110, por sua vez, limpa a te- 
la e posiciona uma mensagem no topo 
desta. As referências e números de pá- 
ginas são lidos da linha DATA e impres- 
sos pelas instruções do laço das linhas 
120 а 150. 

A linha 160, finalmente, tem como 
função evitar que o cursor e um OK pro- 
vocados pelo término da execução do 
programa atrapalhem o visual da tela. 


O ai 


10 HOME 

20 INVERSE : PRINT : HTAB 12: 
PRINT ” NOVA CULTURAL " 

30 PRINT : HTAB 10: PRINT " A 
PRESENTA" 

40 VTAB 12: PRINT SPC( 16): N 
ORMAL : PRINT " INPUT ";: INVER 
SE : PRINT SPC( 17) 


45 NORMAL : VTAB 20: HTAB 15: 
PRINT "VERSAO 1.1" 

50 PRINT : HTAB 11: PRINT "COP 
YRIGHT (C) 1986" 

60 FLASH : VTAB 24: HTAB 7: PR 
INT " TECLE A BARRA DE ESPACOS" 
1: NORMAL 

70 GET AS 

80 HOME INVERSE PRINT SPC 
(13); "INPUT - INDICE”; SPC( 13 
): NORMAL 

90 FOR J = 1 ТО 7: ЧТАВ Ј * 2 
+ 8 

100 READ IS,P$: PRINT TAB( 7) 
118; TAB( 30);P$: NEXT 

110 GOTO 110 

120 DATA ANIMACAO, 26-32, PRO 


GRAMACAO BASIC,2-7,"CTRL-C, App 
le”,7, SISTEMA OPERACIONAL, 25,C0 
NTROLADORES DE DISCO,24,"CHRS, 
uso do",26-27,"POKE, como usar 
0",27-28 


O programa produz uma tela bem 
mais elaborada que a anterior. Logo que 
se inicia, ele limpa a tela e seleciona o 
modo invertido de apresentação de ca- 
racteres. A instrução PRINT vazia nas 
linhas 20 e 30 faz com que o computa- 
dor pule uma linha antes de começar a 
imprimir as mensagens. 

Os comandos HTAB e VTAB, como 
já explicamos, posicionam o cursor pa- 
ra a impressão. 

Na linha 40, a instrução PRINT SPC 
(..), no modo invertido, provoca o apa- 
recimento de uma linha escura antes do 
título INPUT, dando-lhe destaque. 

As linhas 45 a 50 imprimem no mo- 
do normal mensagens de copyright e da 
versão do programa. 

A linha 60 utiliza o comando 
FLASH. Os usuários do TK-2000 devem 
substituí-lo por INVERSE. A mensagem 
aparecerá piscando no Apple, junta- 
mente com o cursor (é quase impossível 
escondê-lo, mas, dessa forma, ele se 
confunde com a mensagem). 

A linha 70 faz o computador esperar 
até que alguma tecla seja pressionada 
para continuar a execução. 

Em seguida, o programa limpa a te- 
la novamente e coloca a mensagem “IN- 
PUT - INDICE” no modo invertido. O 
laço das linhas 90 e 100 lê e imprime na 
tela as referências e números de páginas 
respectivos. Observe que isso é feito por 
meio dos comandos READ е РКІМ 
TAB. A mesma instrução PRINT impri- 
me a referência e o número da página, 
estando os TAB separados por ponto e 
vírgula. Esse processo facilita muito a 
montagem de listas e tabelas. 

A linha 110 impede que o programa 
termine. Assim, evita-se o aparecimen- 
to do cursor na tela, o que afetaria a dis- 
tribuição das mensagens. 
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—— NOVAS FUNÇÕES 
INVERSÃO DECORES EFORMAS 
IMAGENS AQ ESPELHO 
COMO RODAR OS CARACTERES 
O USO DA IMPRESSORA 


GERAÇÃO DE BLOCOS 
GRÁFICOS (2) 








Aqui está a parte que faltava a Este artigo completa o programa ge- mo usar os caracteres criados em seus 
q p q 3 rador de caracteres gráficos. As novas programas BASIC. 
seu programa gerador de blocos gráficos. linhas acrescentam-lhe recursos que tor- 


Com as novas funções incorporadas, nam ainda mais fácil a criação de blo- 

a i cos definidos pelo usuário. 
va poderá o caracteres com Além da parte final do programa, vo- А 
muito mais facilidade. cê encontrará aqui algumas dicas de co- Depois de acrescentar as novas linhas 
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ao programa dado no artigo anterior, 
você terá mais seis funções à sua dis- 
posição. 

A primeira evidencia-se já no início. 
Ela mostra na tela os valores dos oito 
bytes correspondentes às linhas do blo- 
co, bem como uma versão em tamanho 
real na tela. Isso é feito por um progra- 
ma em linguagem de máquina, que atua- 
liza tanto os valores como o bloco em 
tamanho real sempre que modificamos 
um ponto. 

O programa completo também per- 
mite que você limpe o quadriculado por 
meio da tecla C, evitando o trabalho de 
apagar ponto por ponto. 

Existem ainda três outras teclas de 
controle a que se pode recorrer para mo- 
dificar o padrão do quadriculado. Se vo- 
cê apertar o M, o bloco será substituí- 
do por sua imagem ao espelho. Assim, 
sempre que quiser obter uma figura 
composta por dois blocos simétricos — 
uma espaçonave, por exemplo —, bas- 
ta desenhar um deles, guardá-lo no ban- 
co de memória e criar a imagem simé- 
trica usando a tecla M. Também lança- 
08 mos máo desta fungáo quando estamos 





desenhando duas figuras iguais, cada 
qual apontando para uma direção. 

De modo semelhante, é possível ro- 
dar o bloco 90 graus, pressionando a te- 
cla R. Esta função será muito útil quan- 
do se precisar criar apenas um bloco — 
de um torpedo, digamos — e depois vi- 
rá-lo em todas as direções. 

Com a última das três funções você 
obterá o inverso do caractere, por meio 
da tecla I. Se usá-la duas vezes seguidas, 
terá o inverso do inverso, ou seja, o ca- 
ractere original. 

O programa passará a dispor, tam- 
bém, de uma rotina de impressáo. Pode- 
se empregá-la para imprimir os valores 
dos bytes que seráo colocados em uma 
linha DATA, por exemplo, ou para fa- 
zer uma cópia da tela. Esta sairá melhor 
ou pior de acordo com o tipo de sua im- 
pressora. 

Para usar a impressora, pressione a 
tecla Z, seguida de D ou S, conforme 
queira valores de bytes ou uma cópia da 
tela, respectivamente. Caso outra tecla 
seja utilizada, o programa voltará à 
edição. 

Se você não tiver uma impressora, 


não copie as linhas de 2570 a 2590. 
Acrescente, porém: 


2570 GOTO 2000 
Aqui está o resto do programa: 
5 CLEAR 31999 





12 LET T=0: FOR N=32000 TO 

32227: READ A: POKE N,A: LET Í 
T=T+A: NEXT N: IF T<>21691 

THEN PRINT FLASH 1;"ERRO NA 


S LINHAS 'DATA'": STOP 

2020 PRINT AT 10,21;CHR$ 139;CH 

R$ 131;CHR$ 135;AT 11,21;CHR$ l 
38;AT 11,23;CHR$ 133;AT 12,21;C 

HRS 142;CHRS 140;CHRS 141 ' 
2030 RAND USR 32000 
2530 IF INKEY$-"I" THEN 
SR 32092 

2540 IF INKEYS="C” 


RAND U 


ТНЕМ РОКЕ 3 , 





2106,0: RAND USR 32092: POKE 32 
106,12 

2550 IF INKEYS-"M" THEN RAND U 
SR 32145 

2560 IF INKEYS="R” THEN RAND U 
SR 32183 

2570 IF INKEYS<>"Z" THEN GOTO 
2000 


2575 INPUT "C(OPIA DA TELA) OU 
B(YTES)? "; LINE 25 4 
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2580 ІҒ 25<>"С" АМО 25<>"В" ТНЕ 
N сото 2000 


2590 IF Z$-"C" THEN COPY : GOT 
o 2000 
2600 LET CH-65: FOR N-USR "A" T 


O USR "U"*7 STEP 8 

2610 LET TA=0: LPRINT CHR$ CH: 

FOR M=N TO N+7: LPRINT TAB TA;P 
EEK M;: LET TA-TA*4: NEXT M 
2620 LPRINT : LET CH=CH+1: NEXT 
N 

9100 DATA 62,2,205,1,22,62,22,2 
15,62,8,215,175,215,33,11,72,22 
1,33,118,72 

9110 DATA 6,8,197,6,8,14,128,17 
5,50,91,125,126,254,1,40,7,58,9 
1,125,129 

9120 DATA 50,91,125,203,57,35,1 
6,239,58,91,125,221,119,0,229,2 
21,229,62,23,215 

9130 DATA 62,5,215,33,90,125,20 
5,40,26,62,13,215,221,225,225,1 
7,24,0,25,221 

9140 DATA 229,209,20,213,221,22 
5,193,16,189,201,0,0,33,11,72,6 
,8,197,6,8 

9150 DATA 197,126,254,1,229,40, 
12,6,7,62,1,119,36,16,252,54,25 
5,24,13,6 

9160 DATA 4,54,85,36,54,171,36, 
16,248,37,54,255,225,193,35,16, 





219,17,24,0 

9170 DATA 25,193,16,209,201,33, 
11,72,6,8,197,6,4,17,7,0,197,22 
9,126,25 

9180 DATA 78,119,225,113,35,27, 
27,193,16,242,17,28,0,25,193,16 
,.229,205,92,125 

9190 DATA 195,92,125,221,33,11, 
74,33,235,72,6,8,197,6,8,197,22 
1,126,0,119 

9200 DATA 221,35,6,32,43,16,253 
.193,16,241,17,24,0,221,25,17,1 
,1,25,193 

9210 БАТА 16,226,205,92,125,195 
,92,125 


Os valores nas linhas DATA são pro- 
gramas em linguagem de máquina co- 
locados no alto da memória com POKE. 
Ali existem três rotinas diferentes para 
rodar, espelhar e colocar o caractere em 
tamanho real na tela, junto com o va- 
lor dos bytes. 

Tome cuidado na digitação desses va- 
lores. Qualquer erro pode ser fatal. Por 
isso mesmo, o programa verifica as li- 
nhas DATA, provocando uma interrup- 
ção caso detecte algum erro. 


Т 





$ BLOCOS EM OUTROS PROGRAMAS 


O programa do artigo anterior já in- 
cluía funções de gravação e leitura em 
fita. Por meio delas, podemos dispor de 
uma versão permanente dos blocos cria- 
dos. O uso correto deste programa per- 
mite a criação de muitos bancos cheios 
de novos caracteres. 

O Spectrum é capaz de utilizar 21 
UDG de cada vez. Se precisar de um nú- 
mero maior, você terá duas opções: criar 
vários bancos de memória, ou redefinir 
o conjunto de blocos a todo instante. 
Explicaremos mais tarde como isso é fei- 
to, mas, agora, adiantaremos alguns de- 
talhes. 

Desde que saiba como modificar o 
“apontador de UDG”, você pode utili- 
zar quantos caracteres quiser. O apon- 
tador é uma variável interna do Spec- 
trum que diz ao computador onde en- 
contrar os bytes correspondentes aos 
blocos definidos pelo usuário. 

Mesmo que tenha grávado os bytes 
criados pelo programa a partir de um 
determinado endereço, você poderá tra- 
zer este conjunto de caracteres de volta 
da fita para qualquer outro endereço. 
Assim, se quiser usar três diferentes ban- 
cos de caracteres ao mesmo tempo, bas- 
tará carregá-los em posições diferentes 
da memória. 

Cada banco criado pelo programa 
tem 168 bytes de comprimento. Por is- 
so, é necessário carregar cada conjunto 
de caracteres em posições que tenham 
uma distância de pelo menos 168 bytes 


entre si; caso contrário, um banco po- 
derá apagar parte de outro. Para carre- 
gar um conjunto de caracteres gravado 
pelo programa, digite: 


LOAD "” CODE (endereço inicial) 


Independentemente do endereço a 
partir do qual o banco tenha sido gra- 
vado, pode-se colocá-lo em qualquer 
parte da RAM. 

Para usar os bancos que carregou, 
modifique o valor do apontador de 
UDG. Em artigo posterior, trataremos 
do assunto em detalhes. 

importante adiantar, ainda, que ao 
usarmos mais de um banco de caracte- 
res em um programa deveremos prote- 
ger, por meio de um comando CLEAR, 
a área de memória ocupada. Isso tam- 
bém será explicado mais tarde. 


Feitas as modificações, o programa 
terá várias novas funções. Você notará 
a primeira delas quando for guardar um 
bloco recém-criado no banco: o progra- 
ma imprimirá, ao ladó do quadricula- 
do, o valor do byte correspondente ao 
padrão de cada linha do bloco, acom- 
panhado do valor do byte de cor e do 
código da cor de frente e de fundo da- 
quela linha. 

O programa completo permite ainda 
que você limpe o quadriculado por meio 
da tecla A, evitando o trabalho de apa- 
gar ponto por ponto. 

Outra alternativa interessante que o 
programa oferece é a de se obter, com 
a tecla E, a imagem ao espelho do blo- 
co que está no quadriculado. Essa fun- 
ção facilita bastante a produção de de- 
senhos simétricos. 

Muito útil também é a possibilidade 
de rodar o bloco 90 graus, o que nos 
possibilita criar um torpedo, por exem- 
plo, e apontá-lo em todas as direções, 
usando a tecla V. 

Com a tecla I, pode-se inverter todo 
o padrão do bloco. Pressionando-a, os 
pontos acesos se apagam e os outros se 
acendem. A tecla Y tem o mesmo efei- 
to, mas troca a cor de frente com a cor 
de fundo, não atuando, assim, no esta- 
do dos pontos. Em outras palavras, o 
I modifica apenas os bytes do padrão do 
bloco, enquanto o Y modifica os bytes 
de cor — e esta é uma diferença muito 
importante, embora não se reflita no 
efeito obtido. A última função utiliza 
uma impressora para reproduzir o pa- 
drão do bloco que está no quadricula- 
do, bem como os valores dos bytes de 
padrão e cor. Para imprimir, pressiona- 
se a tecla L 
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40 GOSUB 6000 
135 IF K$-"V" 
ото 
145 
ото 
155 
ото 
165 
ото 
180 
ото 
190 ІҒ К5-"Е" 
ото 200 

1550 GOSUB 9000:FOR 1=0 ТО 7:Р( 
1)=0:FOR J=0 TO 7 

1595 II-64*I*8:PRESET(12,II):PR 
INT41,P(1) 

1605 PRESET(56,II):PRINT$1,C(I) 
:PRESET (176, II) : PRINT41, (C(I)-€ 
C(I)AND15))/16:PRESET (220, II) :P 
RINT&1,C(I)ANDIS 

1610 NEXT I 

1615 II-II*10:PRESET (12,II):PRI 
NT41,"BYTE" 

1620 PRESET(56,1I):PRINT41,"COR 


THEN GOSUB 4000:G 


THEN GOSUB 4500:G 


IF KS-"Y" THEN GOSUB 5000:G 
200 
IF K$-"L" 
200 
IF K$-"1" 


200 


THEN GOSUB 5500:G 


THEN GOSUB 3000:G 


THEN GOSUB 3500:G 


1630 PRESET(164,1II):PRINT$1,"^FR 
ENTE" 

1640 PRESET(216,II):PRINT41,"FU 
NDO" 

1650 PRESET (8,160) :PRINT41,"Qua 
lquer tecla para continuar” 
1660 XS-INKEYS:IF X$-"" THEN 16 
60 

1670 LINE(0,64)- (88,160) , 15, BF 
1680 LINE(164,64)-(255,160),15, 
BF 

1690 GOSUB 9100:RETURN 

3000 FOR I*0 TO 7:FOR J=0 TO 7 
3010 B(1,J)=B(I,J)XOR1 

3020 GOTO 1080 

3500 FOR 1=0 TO 7:FOR J=0 TO 7 





3510 T(I,J)*B(I,7-J) 
3520 NEXT J,I:FOR I-0 TO 7:FOR 
J=0 TO 7 


3530 B(I,J)=T(I,J):GOTO 1080 
4000 FOR I=0 TO 7:FOR J=0 TO 7 
4010 T(I,J)=B(J,7-I) 

4020 GOTO 3520 

4500 FOR I-0 TO 7:FOR J-0 TO 7 
4510 B(I,J)-0 

4520 GOTO 1080 

5000 FOR I-0 TO 7 


5010 
5020 
5030 
5040 
0 TO 
5050 
5500 
5510 
5520 
5530 
5550 
0 TO 
5560 P(1I)=P(1)+B(1,3)*2" (7-3) 
5570 IF B(1,J)=1 THEN LPRINT "X 
*; ELSE LPRINT "."; 

5580 NEXT J 
5590 LPRINT 
5600 LPRINT 
5610 LPRINT 


Y1=C(I)AND15 
Y2=(C(1)-Y1)/16 
C(1)=Y1*16+Y2 

МЕХТ І:ҒОВ 1-0 TO 7:FOR J= 


7 

GOTO 1080 

LPRINT TAB(10);"BYTE”; 
LPRINT TAB(15);" COR"; 
LPRINT TAB(20);"FRENTE"; 
LPRINT TAB(28);"FUNDO" 
FOR 1=0 TO 7:P(1)=0:FOR J= 
7 


ТАВ(10):Р(1); 
ТАВ(16);С(1); 
TAB (22) i (C(I) - (C(1) 


AND15))/16; 

5620 LPRINT TAB(28);C(I)ANDIS 
5630 NEXT I 

5640 LPRINT:LPRINT:LPRINT 
5650 RETURN 

6000 FOR I-0 TO 7 

6010 C(I)*C*16*F:NEXT: 

6020 RETURN 


Não há função automática que per- 
mita o aproveitamento do banco de blo- 
cos gravado em fita. Para isso, precisa- 


mos da ajuda de algumas linhas escri- 
tas em BASIC. 

A elaboracáo de um programa desse 
tipo exige que se conheça bem a organi- 
zação da memória de vídeo do MSX. 
Em artigo futuro trataremos deste as- 
sunto em detalhes. 


JAS INFORMAÇÕES 


Para os usuários mais avançados, 
adiantamos que um banco gravado pe- 
lo programa pode ser lido a qualquer 
momento. Inicialmente, deve-se prote- 
ger o alto da memória com: 


CLEAR 200, £HD000 


Em seguida, carrega-se o banco di- 
gitando: 


BLOAD "CAS:" 


Com isso, o banco volta à mesma po- 
sição de memória onde foi criado. Os oi- 
to bytes correspondentes ao padrão do 
bloco guardado na posição X podem, 
então, ser encontrados a partir do se- 
guinte endereço: 

&HDl00 4 X*B 

E os oito bytes de cor do bloco guar- 
dado na posição X do banco se encon- 
tram a partir de: 

ҺНЕ100 % X*8 

O passo seguinte consiste em trans- 
ferir, com a ajuda de VPOKE, os bytes 
de padrão para a tabela de padrões — 
BASE(12) — e os bytes de cor para a ta- 
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bela de cores — BASE(11). Maiores es- 
clarecimentos seráo dados num próximo 
artigo. 


O programa conta agora com várias 
outras funções de edição. Uma delas é 
a de limpeza do quadriculado, disponí- 
vel pela tecla C. Já não será preciso, 
portanto, apagar ponto por ponto. 

A tecla U tem função semelhante, 
mas apaga apenas o oitavo bit, que con- 
trola o grupo de cores. 

Duas outras novas funções contri- 
buem para diminuir um pouco as difi- 
culdades. Pressionando a tecla J, todo 
o padrão se desloca para a esquerda; a 
letra K tem efeito contrário. Utilizando 
essas teclas, pontos que estavam em co- 
lunas ímpares passam a ocupar colunas 
pares e vice-versa. Não havendo dois 
pontos adjacentes, o procedimento in- 
verterá a cor dos pontos. 

Para criar figuras simétricas, temos 
a tecla E, que produz a imagem ao es- 
pelho do bloco que está no quadricula- 
do. Ao usá-la, tenha sempre em mente 
as regras de definição de cores. Para ro- 
dar o padrão do quadriculado 90 graus, 
pressione a tecla V. Essas funções devem 
ser combinadas com outras, uma vez 
que modificam o oitavo bit, que não 
participa do padrão, mas da determina- 
ção de cores. 

Dispomos ainda de duas funções de 
inversão: apagar o que está aceso e vice- 


versa. A tecla I inverte todo o bloco, en- 
quanto a tecla O se restringe ao oitavo 
bit. O programa também exige os valo- 
res dos bytes, para quem quiser usá-los 
em linhas DATA. A tecla D mostra uma 
linha com os dados de um bloco, no ro- 
dapé da tela. Tendo uma impressora, os 
usuários do Apple podem obter uma có- 
pia usando W. 


40 DIM T(8,8) 


135 IF K$ = "U” THEN GOSUB 40 
00: GOTO 50 

145 IF K$ = "U" THEN LL = 7: G 
OSUB 2500: GOTO 50 

155 IF K$ = "J" THEN GOSUB 45 
00: сото 50 

160 IF K$ - "I" THEN LL - 0: G 
OSUB 3000: GOTO 50 

165 IF K$ - "K" THEN GOSUB 50 
00: GOTO 50 

170 IF K$ - "C" THEN LL * 0: G 
OSUB 2500: GOTO 50 

175 IF KS = "D" THEN GOSUB 60 
00: GOTO 50 

180 IF K$ - "O" THEN LL = 7: G 
OSUB 3000: GOTO 50 

185 IF K$ - "W" THEN PR4 1: G 
OTO 6000: PR$ 0: GOTO 50 

190 IF K$ = "E" THEN GOSUB 35 
00: GOTO 50 

2500 FOR I = 0 TO 7: FOR J = L 
L TO 7 

2510 В(І,Ј) = 0: СОТО 1020 

3000 FOR I = 0 TO 7 

3005 FOR J = LL TO 7 

3010 IF B(I,J) = O THEN B(I,J) 
= 1: GOTO 1020 

3020 B(I,J) * 0: GOTO 1020 
3500 FOR I * 0 TO 7: FOR J = 0 
TO 6 














3510 T(1,J) = B(I,6 - J): NEXT 
9,1 

3520 FOR I = O TO 7: FOR J = 0 
TO 6 

3530 B(1,J) = T(1,J): GOTO 1020 
4000 РОВ І = 0 PO 7: FOR J = 0 
TO 7 

4010 T(I,J) - B(J,7 - I): NEXT 
2,1 

4020 FOR I = O TO 7: FOR J = 0 
TO 7 

4030 В(Т,Ј) = Т(І,Ј): СОТО 1020 
4500 FOR I = 0 TO 7: FOR J = 0 
TO 6 

4510 В(І,Ј) = В(І,Ј + 1): GOTO 
1020 

5000 FORI *0 TO 7: FOR J = 0 
TO 6 

5010 T(1,7 - J) = B(I,6 - J): N 
EXT J,1 

5020 FOR 1 = 0 ТО 7: РОВ Ј = 0 
TO 6 

5030 B(I,J) * T(I,J): GOTO 1020 
6000 HOME : VTAB 22: INPUT "QU 
AL O NUMERO DO BLOCO ?";N: IF N 
» 320 THEN 1000 

6020 HOME 

6030 УТАВ 21: PRINT "DATA "; 
6040 FOR I * 0 TO 7: PRINT PE 
EK (E* N * 8 * 1): IFJ< > 
7 THEN PRINT " ,"; 

6050 NEXT : VTAB 23: GET X$ 
6060 HOME : RETURN 


USO DOS BLOCOS EM OUTROS PROGRAMAS 


Além dos problemas na exibicào de 
cores, o Apple tem uma organização de 
memória de vídeo um tanto complica- 
da. Deixaremos, assim, para um artigo 
futuro as explicações sobre o uso dos 
blocos em outros programas. 


No artigo anterior vimos a primeira 
metade de um programa cujo objetivo 
é facilitar a criação de blocos gráficos. 
Apresentamos aqui a outra metade, que 
acrescenta ao programa novos recursos 
de edição 

Inicialmente, carregue o programa 
antigo e adicione as linhas: 


30 T=0:FOR K=0 TO 14:READ N:T=T 
*N:POKE K+31100,N:NEXT:READC: IF 
T<>C THEN END 

40 T=0: FOR K=0 TO 84:READ N: 
T+N:POKE 31150+K,N:NEXT:READ C: 
IF T<>C THEN END 

70 DATA 141,72,142,123,12,236,1 
29,237,193,140,123,84,38,247,57 
+ 1974 

80 DATA 141,22,142,123,84,51,67 
+198,3,166,130,167,194,90,38,24 
9,51,70,140,123,12,38,240,57,18 
9,179,237,52 

90 DATA 6,31,3,142,123,14,134,3 











.183,121,68,230,192,134,8,74,88 ŠU 



















+73,125,121,23,39,4,88,73,128,4 
‚68 

100 DATA 102,132,125,121,23,39, 
3,68,102,132,77,38,230,48,31,12 
2,121,68,38,219,48,6,140,123,86 
.38,207,53,192,8285 

170 PRINT"JOYSTICK OU TECLADO ( 
J OU T)?"; 

180 AS=INKEYS:IF AS<>"J” 
<>"Т" THEN 180 

190 IF AS="J" THEN JY=1 
350 IF JY-1 THEN GOSUB 1000 ELS 
E GOSUB 1500 

1000 PUT(X1,Y1)-(X1+5*T-1,Y1+4) 
,Cl,NOT 

1010 IF (PEEK(65280)AND 1)=0 GO 
SUB 2000 

1020 IF JOYSTK(1)=0 THEN Y=Y-1 
1030 IF JOYSTK(1)=63 THEN Y=Y+1 
1040 IF JOYSTK(0)=0 THEN X=X-T 
1050 IF JOYSTK(0)=63 THEN X=X+T 
1060 RETURN 

2100 СЕТ(216,70)-(239,93),А 
2110 GOSUB 3000:GOTO 2070 

2200 AS=INKEYS:IF AS<>"S” AND A 
$«»"P" THEN 2200 

2210 CLS:DN-0:IF A$-"P" 
--2 

2220 FOR K=0 TO 14:FOR R=0 TO 2 
2230 PRINT 4DN, PEEK (VARPTR(A(O) 
J+K*3+R) ; : NEXT: PRINTADN: NEXT 
2240 IF DN<O THEN 2260 

2250 AS=INKEYS:IF AS="" THEN 22 
50 

2260 FOR K=15 TO 23: FOR P=0 TO 
2 


AND AS 


THEN DN 


2270 PRINT 4DN,PEEK(VARPTR(A(0) 
)*K*3*R) ; : NEXT: PRINT #0М:МЕХТ 
2280 AS-INKEYS:IF A$-"" AND DN- 
0 THEN 2280 

2290 SCREEN 1,ST:RETURN 

2800 POKE 30999,T-1:N=USR2 (VARP 
TR(A(0))) 

2810 GOSUB 3000:GOTO 2070 

2900 POKE 30999,T-1:N=USRI (VARP 
TR(A(0))) 

2910 GOSUB 3000:GOTO 2070 


As novas rotinas acrescentam várias funcóes ao 
programa gerador de gráficos; entre elas, a rotação de figuras. 
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Complete a linha 10 com: 
:DEFUSR1=31100:DEFUSR2=31150 


Se executarmos o programa agora, 
poderemos utilizar as novas funções. 
Mas é conveniente, antes de qualquer 
coisa, verificar se há algum erro em li- 
nhas DATA. 

Três funções foram somadas ao re- 
pertório do programa: espelhar, inver- 
ter e rodar o bloco gráfico. 

Para obter a imagem do bloco ao es- 
pelho, basta pressionar a tecla M. O ca- 
ractere é invertido da esquerda para a 
direita. Essa função é muito útil quan- 
do utilizamos dois blocos justapostos 
para produzir uma figura maior e simé- 
trica. Basta criar um dos caracteres, 
guardá-lo no banco e, em seguida, ob- 
ter a imagem ao espelho. 

A função de rotação é similar. Aper- 
tando R, rodamos o bloco 180 graus. 
Podemos, assim, mover a figura para ci- 
ma e para baixo, o que nos permite usar 
o gerador para criar uma versão do blo- 
co “de cabeça para baixo”. 

A inversão da cor de todos os pon- 
tos constitui outra nova opção ofereci- 
da pelo programa. Em PMODEA, o 
efeito é fácil de prever: o preto se torna 
verde (ou cinza) e vice-versa. Em 
PMODES3, azul e amarelo são inverti- 
dos (o que é azul fica amarelo e vice- 
versa). O mesmo ocorre com vermelho 
e verde, cinza e laranja, ciano e 
magenta. 

As inversões de cor provocam altera- 
ções surpreendentes no aspecto de cer- 
tos blocos. Uma vez que nos acostume- 
mos com as regras de mudança de cor, 
a função será muito útil, 

É possível, também, executar uma 





Com o programa completo, você poderá também 
inverter seus gráficos, utilizando a cor do fundo da tela. 


mudança de cor durante a edição, pres- 
sionando-se a tecla V. A alteração, no 
caso, resulta de uma inversão no tipo de 
tela — SCREEN — que estiver sendo 
utilizada. 

Outro novo recurso do programa, a 
impressão dos valores dos bytes dos ca- 
racteres guardados no banco, mostra-se 
especialmente útil quando se pretende 
colocar tais valores em linhas DATA. A 
tecla P ativa a função; os valores podem 
ser exibidos na tela ou, então, copiados 
por uma impressora. Após teclarmos P, 
O programa espera que pressionemos P 
ou S. P utiliza a impressora e S, a tela. 


USO DOS BLOCOS EM OUTROS PROGRAMAS 


Para utilizar os blocos gravados em 
fita dentro de um outro programa, car- 
regue o conteúdo da fita e, em seguida, 
guarde os padrões em matrizes com 
CLOADM e GET. 

Infelizmente, você precisará repetir o 
procedimento sempre que quiser usar o 
programa com os blocos gráficos ante- 
riormente gravados. 

Para evitar o trabalho de ler os blo- 
cos da fita todas as vezes, só há uma al- 
ternativa: transferir os números corres- 
pondentes aos blocos para linhas DA- 
TA e incorporá-las ao programa em 
questáo. 

Assim, embora não pareça, pode ser 
mais conveniente recorrer à função de 
impressão para digitar linhas DATA. Os 
números ali contidos deverão ser colo- 
cados pelo programa, usando POKE, na 
tela, e transferidos para matrizes por co- 
mandos GET. Depois disso, os blocos 
estarão disponíveis por meio de coman- 
dos PUT. 












O BASIC 





Como o computador armazena um 
programa em BASIC na memória? Satisfaça 
sua curiosidade: com um programa bem 
simples, você poderá listar os 

códigos secretos usados por seu micro. 


Já tivemos a oportunidade de exami- 
nar como se organiza o espaço total de 
memória dos microcomputadores (veja 
artigo da página 174). Em geral este es- 
paço divide-se internamente em uma sé- 
rie de áreas, cada qual com uma função 
específica. 

Uma dessas áreas da memória RAM 
é reservada para os programas em BASIC 
do usuário. Eles começam sempre em 
um mesmo endereço absoluto, cujo va- 
lor varia conforme a linha do micro. As- 
sim, quando o computador recebe um 
comando RUN, LIST ou LLIST, por 
exemplo, já “sabe” onde o programa se 
inicia, podendo começar a listá-lo ou 
interpretá-lo. Em muitos computadores, 
esse endereço de início está contido em 
um par de apontadores da RAM, em um 
lugar prefixado. Alterando-se seus va- 
lores com alguns POKE, pode-se mudar 
o local da memória onde o programa em 
BASIC está armazenado. 

A listagem dos códigos internos que 
seu microcomputador utiliza para arma- 
zenar esses programas constitui um óti- 

. mo exercício para quem está começan- 
do a aprender programação em lingua- 
gem de máquina. 


O PROGRAMA 


Neste artigo, apresentaremos um pro- 
grama bem simples, baseado no coman- 
do PEEK, que nos permite examinar os 
códigos numéricos decimais contidos 
nas locações das memórias ROM ou 
RAM, e seu equivalente em ASCII. Vo- 
cê poderá, assim, identificar as partes 
dos programas que contêm códigos di- 
ferentes do ASCII. 

Os computadores de algumas linhas 
já dispõem de programas-monitores re- 
sidentes, que servem perfeitamente pa- 
ra este propósito (é o caso do TRS-80, 








NA MEMORIA 


do Apple II e do TK-2000). Por isso, os 
programas seguintes destinam-se apenas 
aos micros das linhas ZX-81, Spectrum, 
TRS-Color e MSX, que não dispõem 
desse recurso. 


nau 


10 FOR 1=7681 TO 7851 STEP 5 
20 PRINT I;TAB(6);":"; 

30 FOR J=I TO I*4:PRINT USING 
"404 ";PEEK(J);:NEXT J 

60 PRINT TAB(25); 

70 FOR J=I TO 1+4 

80 IF PEEK(J)>31 AND PEEK(J)< 
129 PRINT CHRS(PEEK(J)); ELSE 
PRINT " "; 

120 NEXT J:PRINT:NEXT I 


O programa acima funciona no TRS- 
Color. Para o MSX, modifique a linha 
10 para: 


10 FOR I=-32765 TO -32595 STEP 
5 


10 FOR і-23755 ТО 23925 STEP 
5 


20 PRINT i;TAB 6;":"; 

30 FOR j-I TO i*4:PRINT PEEK 
3%:МЕХТ j 

60 PRINT TAB(25); 

70 FOR ј=і ТО 1+4 

80 IF PEEK 3>31 AND PEEK 3<96 
THEN GOTO 110 

90 PRINT CHR$ PEEK(3);:GOTO 120 
110 PRINT " *; 
120 NEXT j 
130 PRINT 

140 NEXT i 


FOR 1=16509 TO 16679 STEP 


PRINT I;TAB 6;": 
FOR J=I TO 1+4 
PRINT PEEK J; 
NEXT J 

PRINT TAB 25; 

70 FOR J=I TO I+4 
IF PEEK J>31 AND PEEK J<96 
THEN GOTO 110 

90 PRINT CHR$ PEEK(J); 

100 GOTO 120 

110 PRINT " "; 









= COMO É ARMAZENADO 
UM PROGRAMA EM BASIC? 

O USO DO PEEK 

O QUE SIGNIFICAM 
05 CÓDIGOS 


















































120 NEXT J 
130 PRINT 
140 NEXT I 

O laço FOR...NEXT que começa na 
linha 10 coloca o endereço absoluto da 
localização da memória a ser listada, a 
partir do ponto inicial de todo progra- 
ma BASIC, em incrementos de 5. A li- 
nha 20 imprime o enderego absoluto da 
primeira memória de um grupo de 5, en- 
quanto os laços das linhas 30 e 70 se en- 
carregam, respectivamente, da impres- 
são do conteúdo numérico e dos carac- 
teres ASCII correspondentes. 

Observe que as palavras-chave do 
BASIC não são armazenadas caractere 
por caractere, mas sim como códigos 
numéricos de 1 byte — os chamados to- 
kens, em inglés. Cada código correspon- 
de a uma das palavras reservadas do 
BASIC, existentes no manual do micro. 
Eles são traduzidos de volta para as 
palavras-chave quando o programa é lis- 
tado com LIST ou LLIST. Armazenam- 
se em ASCII, por sua vez, as constan- 
tes, nomes de variáveis, caracteres de 
pontuação, símbolos matemáticos e tu- 
do o que estiver entre aspas. 

Como exercício, procure identificar 
os códigos das palavras reservadas no 
programa listado. 























O DIVERTIDO 
JOGO DA COBRA 


Ajude uma cobra faminta a encontrar 
alimento. Enquanto vai abocanhando os 
números que o computador coloca na 

tela, o desnutrido animal se transforma, 
aos poucos, numa gigantesca serpente. 


















O jogo da cobra consiste num tipo 
clássico de videogame, de regras simples 
mas muito interessante e cheio de sur- 
presas. Além disso, sua programação 
dispensa o uso de linguagem de máqui- 
na — o jogo desafia o tempo, sendo um 
dos mais facilmente programáveis em 
BASIC. 





060 


O objetivo do jogo é ajudar ита со- 
bra faminta a encontrar o alimento es- 
palhado ao acaso pela tela, na forma de 
números ou blocos. O valor desses nú- 
meros diminui á medida que o tempo 
passa; assim, quanto mais lento for o jo- 
gador, menor seu total de pontos. Se ele 
demorar demais, o número que estava 
na tela chega a zero e desaparece; outro 
número surge em posigáo diferente. Ca- 
da número engolido pela serpente au- 
menta seu comprimento proporcional- 
mente ao valor ingerido. 

Devemos tomar cuidado para náo 
deixar a cobra ultrapassar a moldura da 
tela ou passar sobre si mesma — o que 
fica cada vez mais difícil, conforme ela 
cresce. Se cruzarmos a margem ou o 
corpo da cobra, o jogo termina. A pa- 
lavra “FIM” ou “FORA” é, então, exi- 
bida várias vezes na tela. 


10 BORDER 1: PAPER 7: INK 9: 
CLS 

20 LET hs=0 

30 DIM в(570,2) 

100 LET в-0 

110 LET s(1,1)=10: LET a(1,2)= 


14 
120 LET s(2,1)=11: 
14 


LET 8(2,2)* 


130 LET s(3,1)=12: LET 9(3,2)= 


14 

135 GOSUB 1500 

140 LET t=1: LET h=3 
145 LET yv-1: LET xv-0 


PAPER 
NEXT n 


150 FOR n=1 TO 3: PRINT 

4;AT s(n,1),8(n,2) ;i"4": 

160 LET y=12: LET x=14 

165 LET p=0 

170 GOSUB 1000 

190 IF ATTR (y,x)<>56 AND ATTR 

(y,x)<128 THEN СОТО 2000 

200 LET h=h+l: IF h=501 THEN 

LET h=1 

210 PRINT PAPER 4;AT y,x;"4" 

220 LET s(h,l)-v: LET s(h,2)=x 

230 PRINT AT s(t,1),5(t,2) 

CHR$ 32 

240 LET t-t*l: 

LET t=1 

250 IF p=0 THEN LET p=INT ( 

RND*9)+1: LET fy-INT (RND*19)* 

2: LET fx-INT (RND*30)+1: IF 

ATTR (fy,£x)<>56 THEN LET p-0 
GOTO 250 

260 PRINT PAPER INT (р/2); 

FLASH 1;AT fy,fx;p 

270 IF RND<.98 THEN GOTO 290 


IF t=501 THEN 






280 LET р=р-1: IF p=0 THEN 
PRINT AT Ғу,Ғх;СНВ5 32 
290 IF y<>fy OR x<>fx 
THEN GOTO 170 

300 LET s=B+p: PRINT 
PAPER 4;AT y,x;"4": PR 
INT PAPER 6;AT 0,6;8 
310 FOR n=1 TO p 

320 GOSUB 1000 

325 IF ATTR (y,x)<>56 
THEN GOTO 2000 
330 LET h=h+1: 
THEN LET h=1 
340 LET s(h,l)-y: LET 


IF h=501 


в(һ,2)=х 

350 PRINT PAPER 4;AT s(h,1),8 
(h,2);"4" 

355 FOR m-1 TO 10: NEXT m 

360 NEXT n 


500 GOTO 165 
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п UMA VERSÃO BASIC 

| DO JOGO DA COBRA 
Ш ESPALHE OS NUMEROS E FAÇA 

A COBRA ABOCANHÁ-LOS 


п COMO A FIGURA CRESCE 




























































1000 LET aS=INKEYS 

1010 IF aS="q” THEN LET yv=-1: 
LET xv=0 

1020 IF a$="a” THEN LET yv=l: 
LET xv=0 

1030 IF а5-"о" ТНЕМ LET xv=-1: 
LET yv=0 

1040 IF a$-"p" THEN LET xv=l: 
LET' yv=0 

1050 LET y=y+yv: LET x=x+xv: RE 
TURN 

1500 FOR n=22560 TO 225 
91: POKE n,16: POKE n+6 
40,16: NEXT n 

1510 FOR n=22592 TO 225 
92*32*19 STEP 32: POKE 
n,l6: POKE n*31,16: NE 
XT n 

1520 PRINT PAPER 1;AT 0,0;"SCO 
RE "; PAPER 6;8; PAPER AB 
;"RECORDE "; PAPER 6;h 
1;TAB 31;" " 

1590 RETURN 

2000 PRINT AT 0,0;: FOR n=1 TO 
88: PRINT FLASH 1; PAPER 2; IN 
K 6;"FORA"; PAPER 6; INK 2;"FOR 
A";: SOUND .005,60-n: NEXT n 
2010 IF s»hs THEN LET hs-s 
2020 CLS : PRINT AT 8,1 
: ";8;AT 11,8;"RECORDE 
2030 PRINT INVERSE 1;AT 16,2;" 


аа ЙЯ Qualquer tecla para recomecar” 
pu 2040 PAUSE 0: CLS : GOTO 100 
— A linha 10 cuida das cores da mol- 


dura, do fundo e dos caracteres. Tam- 
bém limpa a tela. As linhas 20 e 100 ze- 
ram o recorde e o score. 

A linha 30 DIMensiona a matriz S, 
usada para armazenar as coordenadas 
da cobra. Inicialmente, esta ficará nas 
coordenadas (10,14), (11,14), (12,14), 
colocada nos primeiros elementos da 
matriz pelas linhas 110 e 130. 

A linha 135 chama uma sub-rotina 
que prepara a tela — linha 1500. Para 
o desenho da moldura, os valores são 
colocados na tabela de atributos com o 
auxílio de POKE. A linha 1500 traça 
duas linhas na tela: uma em cima e ou- 
tra embaixo; a 1510 desenha as linhas 
laterais. A linha 1520 escreve o recorde 
€ 0 score. 

A linha 140 determina onde estão a 
cabecae o rabo da cobra — h e t, res- 
pectivamente — dentro da matriz s. Es- 
sas variáveis indicam ao computador os 
elementos da matriz em que as coorde- 
nadas da cabeça e do final do corpo da 



































cobra podem ser encontradas. Elas são 
chamadas de ““apontadores”” (pointers). 
Conforme a cobra se move, o compu- 
tador reajusta os dois apontadores e co- 
loca as novas coordenadas no elemento 
adequado da matriz. 


MOVIMENTO E DIRE 


As variáveis xv e yv indicam a dire- 
ção em que está indo a cobra. Elas po- 
dem assumir três valores diferentes: 0, 
quando a cobra não está indo naquela 
direção; 1, quando a cobra se dirige pa- 
ra a direita ou para baixo; e — 1, quan- 
do a cobra está seguindo para a esquer- 
da ou para cima. Pode-se ver, desse mo- 
do, que a linha 145 faz com que a ser- 
pente siga para cima no começo do jogo. 

A linha 150 desenha a cobra, inicial- 
mente, com apenas três caracteres. A 
posição atual da cabeça é dada por x e 
y, variáveis também usadas para detec- 
tar colisões. A linha 160 posiciona a ca- 
beça em (14,12). A linha 165 faz com 
que o valor do número a ser mostrado 
— p — seja zero. 

A linha 170 chama a sub-rotina que 
movimenta o cursor — linha 1000. Q e 
A movimentam a serpente na vertical, 
enquanto O e P o fazem na horizontal. 
Pressionando essas teclas, alteramos os 
valores de xv e yv; a linha 1050 modifi- 
ca a posição da cabeça adicionando xv 
eyvaxey. 

Quando termina a sub-rotina, o pro- 
grama retorna para a linha 190, que usa 
o comando ATTR para verificar se a ca- 
beca está sendo colocada em uma posi- 
ção que não é de cor branca — a cor do 
fundo — ou não é cintilante — como 
são os números. Se essas duas condições 
não forem satisfeitas, a cobra deve ter 
cruzado a moldura ou seu próprio cor- 
po. Neste caso, o programa vai para a 
linha 2000, início da sub-rotina que in- 
forma o final do jogo. 

Se a nova posição da cabeça for vá- 
lida, o programa prossegue na linha 200, 
que incrementa o apontador da cabeça. 
Se o apontador indica um elemento da 
matriz maior do que sua dimensão, o 
apontador passa a valer 1. A linha 210 
desenha a cabeça em sua nova posição 
ea linha 220 coloca as coordenadas des- 
ta posigáo na matriz s, no elemento in- 
dicado pelo apontador da cabega — h. 
O rabo da cobra é mantido no tamanho 
correto por meio da impressão de espa- 
ços em branco que apagam os caracte- 
res das posições já ocupadas. Isso é fei- 
to pela linha 230, que obtém as coorde- 
nadas corretas na matriz s. A linha 240, 
por sua vez, aumenta o valor do apon- 
tador da cauda — t — verificando se ele 


ultrapassou a dimensão da matriz. 

Se não houver um número na tela pa- 
raa cobra comer, a linha 250 escolhe um 
— p—, com posição e valor aleatórios. 
Se as coordenadas escolhidas não cor- 
respondem a uma área em branco da te- 
la — ATTR < > 56 —, o valor e a posi- 
ção de p são escolhidos novamente. A 
linha 260 escreve o número na tela cin- 
tilando, isto é, com atributo FLASH. 

À medida que o tempo passa, o va- 
lor do número que está na tela vai di- 
minuindo. A linha 270, que compara 
um número aleatório com 0.98, intro- 
duz um certo elemento de acaso na ve- 
locidade com que ocorre a diminuição. 
Na maioria dos casos, a linha que dimi- 
nui o valor do número — 280 — é pula- 
da. Essa linha verifica se o valor de p 
ainda não chegou a zero, logo após 
subtrair-lhe | — em caso afirmativo, um 
espaço em branco é colocado no lugar 
do número na tela. Se a cabeça da co- 
bra não está na mesma posição que o 
número, completa-se o laço e o progra- 
ma volta à linha 170. 

Se a serpente engolir o número, o 
programa segue na linha 300, que soma 
o número engolido ao score. Este é co- 
locado na tela, assim como a cabeça. 

O laço FOR...NEXT das linhas 310 
a 360 adiciona ao corpo da cobra uma 
quantidade de caracteres igual ao valor 
ingerido. A cada volta do laço, a linha 
320 chama a rotina de movimentação do 
cursor; a linha 325 verifica se a cabeça 
ocupa uma posição legal; a linha 330 in- 
crementa o valor do apontador da ca- 
beça; a linha 340 coloca a nova posição 
na matriz s, e a linha 350 imprime a ca- 
beça. Nenhum caractere é apagado, co- 
mo aconteceria normalmente, servindo 
todos para acrescentar segmentos ao 
corpo da cobra. Como estes também 
nunca são apagados, a cobra teria mo- 
vimentos bem mais rápidos, se não hou- 
vesse o atraso provocado pela linha 355. 

A porção final do programa — que 
começa na linha 2000 — é a sub-rotina 
que cuida do encerramento do jogo. A 
linha 2000 escreve vários “FORA” na 
tela, ao mesmo tempo que emite uma sé- 
rie de sons. A linha 2010 atualiza o va- 
lor do recorde, se este foi batido, e a li- 
nha 2020 informa o placar. As linhas 
2030 e 2040 permitem que o jogador ini- 
cie uma nova partida. 


1. EA 


5 SCREEN 1:KEY OFF 

10 M=512:DIMB(M) 

15 RR=RND(-TIME) 

20 L=3:GOSUB 600 

30 GOTO 500 

100 K-STICK(0):IF K-0 THEN K-L 
110 NP-B(H)*32*(K-1)-32* (K-5)- C 


K=3)+(K=7) 

120 TE=VPEEK (NP) 

130 IF TE=255 OR TE=HC OR TE=BC 
OR NP<BASE (5)+32 THEN VPOKE NP 
«HC: E=1 

140 L-K:FOR I-1 
RN 

200 R=INT(RND(1)*9)+1:RX=INT (RN 
D(1)*13)+2:RY=INT (RND(1)*29)+2: 
RP=RX*32+RY 

210 IF VPEEK (BASE (5) +RP)<>32 TH 
EN 200 

220 VPOKE BASE (5) +RP,48+R:P=1:R 
ETURN 

250 R=R-1:IF R=0 THEN VPOKE BAS 
E(5)*RP,32:P-0:RETURN ELSE VPOK 
E BASE(5) +RP,48+R: RETURN 

300 SC=SC+R:LOCATE 22,0:PRINT S 


ТО 50:МЕХТ:ВЕТІ/ 


C;:P=0 

310 SL=SL+1:VPOKE NP,BC 

320 Н-Н-1:ІҒ H=0 THEN H=M 

330 B(H)=NP 

340 FOR J=1 TO R 

350 PLAY"L64CEF" 

360 GOSUB 100:IF E=] THEN 800 
370 H=H-1:1F H=0 THEN H=M L 
380 B(H)=NP:VPOKE NP,BC 

390 NEXT 

400 VPOKE NP,HC: RETURN 

500 IF Р-0 THEN GOSUB 200 ELSE 


IF INT(RND(1)*150)+1<SL THEN GO 
SUB 250 

510 GOSUB 100:ІҒ Е-1 THEN 800 
520 IF TE=48+R THEN VPOKE B(H), 
BC:GOSUB 300 

530 VPOKE B(H),BC:VPOKE B(T),32 
540 H-H-1:IF H=0 THEN H=M 

550 T-T-1:IF T-0 THEN T=M 

560 В(Н)-МР:УРОКЕ МР,НС 

570 GoTO 500 

600 BG=INT(RND(1)*13)+1:FG=INT( 
RND(1)*13+1) :P=0:SC=0:SL=1:E=0 
610 IF BG=FG THEN 600 

620 COLOR 15,BG,BG:CLS 

630 УРОКЕ BASE (6)+4,240+BG 

640 VPOKE BASE (6)+31,FG*16+FG 
650 FOR J=0 TO 31:PLAY”T255L640 
4AG":VPOKE BASE(5)*J,255:UPOKE 
BASE (5) +J+736,255:NEXT:FOR J=32 
TO 736 STEP 32:PLAY"O2DA":UPOK 
E BASE(5)+J,255:VPOKE BASE(5)+3 
1*J,255:NEXT 

660 LOCATE 3,0:PRINT"RECORDE-"; 
HS;:PRINT TAB(15);"SCORE = 0 "; 
670 HC=2:BC=215:T=3:H=1 

680 VPOKE BASE (6) ,FG*16+BG 

690 VPOKE BASE (6)+26,FG*16+BG 
700 В(1)- ВАЗЕ(5)%239:УРОКЕ В(1 
), HC 

710 B(2)=B(1)+32:VPOKE B(2),BC 
720 В(3)-В(2)%32:УРОКЕ В(3),ВС 
730 RETURN 

800 COLOR 15,INT(RND(1)*14)*1:C 
LS:PLAY"OlACDEFGACDEFG":FOR K-1 
TO 408:PRINT "FIM ";:NEXT:PLAY 
"O4ABCEDFGO3ABCDEFGO2ABCDEFG" 
810 IF HS<SC THEN HS=SC 

820 COLOR 1,15,15:CLS:LOCATE 9, 
8:PRINT"SCORE =" 
: PRINT"RECORDE ¡HS 

830 AS=INKEYS:LOCATE 3,20:PRINT 
"<RETURN> para continuar” 
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840 AS=INKEYS:IF AS<>CHR$(13) T 
HEN 840 ELSE 20 


Ao contrário de outros jogos vistos 
em INPUT, para os quais utilizamos a 
tela gráfica, optamos aqui pela tela de 
textos de 32 colunas, já que a cobra é 
feita de caracteres. 

A linha 5 seleciona a tela e desliga o 
menu das teclas de funções da parte in- 
ferior da tela. A linha 10 dimensiona a 
matriz B de maneira que esta acomode 
no máximo 512 caracteres — o maior ta- 
manho que a cobra poderá ter. Note que 
os elementos dessa matriz não corres- 
pondem às posições de caracteres na te- 
la. Cada um deles contém as coordena- 
das de uma parte da cobra. A linha 15 
“dá a partida” no gerador de números 
randômicos; a 20 manda o programa 
para a linha 600, que prepara as condi- 
ções iniciais do jogo. 

Na linha 600, BG é a cor de fundo da 
tela e FG, a cor da moldura, bem como 
da cobra. P=0 significa que nenhum nú- 
mero está sendo exibido; SC=0, que o 
score é zero; SL=0 quer dizer que o ní- 
vel de dificuldade é zero e E=0 informa 
ao computador que a cobra permanece 
dentro dos limites da tela, náo tendo cru- 
zado nem a moldura, nem seu próprio 
corpo. Todas essas variáveis sáo utiliza- 
das ao longo do programa para que cer- 
tas sub-rotinas sejam chamadas no mo- 
mento adequado. 

A linha 610 verifica se a cor de fun- 
do é igual à da moldura — em caso afir- 
mativo, duas novas cores sáo escolhidas. 
A linha 620 seleciona as cores da tela — 
caracteres brancos, fundo e bordas de 
acordo com BG. Além disso, limpa a 
tela, 

Na linha 630, um comando VPOKE 
assegura que o caractere de espaço em 
branco — código 32 — tenha cor de 
frente branca e cor de fundo igual a BG. 


Na linha 640, a mesma técnica é empre- 
gada para fazer com que o caractere 
255, usado para desenhar a moldura, te- 
nha cor de frente e de fundo igual a FG. 
A linha 650 desenha a moldura, enquan- 
to emite alguns sons. A linha 660 mos- 
tra o placar. 

Na linha 670, HC é o código do ca- 
ractere da cabeça da cobra e BC, o có- 
digo do caractere usado no corpo da 
mesma. As variáveis H e T indicam os 
elementos de B() que contêm as coorde- 
nadas da cabeça e da ponta da cauda da 
serpente. São chamadas de “apontado- 
res” (pointers). 

Ainda usando o comando VPOKE 
para modificar os valores da tabela de 
cores da tela de 32 colunas, as linhas 680 
e 690 fazem com que os caracteres da 
cabeça e do corpo da cobra tenham cor 
de frente igual a FG e cor de fundo igual 
a BG. As linhas 700 a 720 colocam a ca- 
beça e dois segmentos do corpo na tela, 
de modo que a cobra tenha apenas es- 
tas partes a cada início de partida. 


ROTINA PRINCIPAI 


Da sub-rotina o programa retorna à 
linha 30, que o envia para a rotina prin- 
cipal, na linha 500. Essa linha verifica, 
inicialmente, se na tela há um número 
para a cobra comer. P é o indicador de 
número na tela; se seu valor for zero, a 
sub-rotina da linha 200 é chamada. Se 
houver um número na tela, um valor 
qualquer entre 1 e 150 é comparado com 
o nível de dificuldade SL. Se o número 
gerado for menor que SL, o programa 
vai à sub-rotina 250. 

A sub-rotina que começa na linha 200 
coloca um número qualquer na tela, em 
uma posição escolhida ao acaso. A li- 
nha 200 seleciona o número — R — en- 























tre 1 e 9, bem como suas coordenadas 
RX e RY. Esses dois valores são usados 
para calcular RP, posição do número na 
tabela de nomes da tela 1. Antes que o 
número seja impresso na tela, a linha 
210 verifica se na sua posição há algum 
outro caractere além do de espaço — có- 
digo 32. Dessa maneira, evita que o nú- 
mero seja colocado sobre a moldura ou 
sobre o corpo da serpente. A linha 220 
escreve o número na tela, usando VPO- 
KE para colocar o código corresponden- 
te ao número na tabela de nomes — BA- 
SE (5) — da tela 1. Consultando uma 
tabela ASCII, você verá que os caracte- 
res de O a 9 têm códigos de 48 a 57. 

A sub-rotina que começa na linha 250 
faz o valor do número na tela ir dimi- 
nuindo até que o jogador leve a cobra 
até ele. Se o número chegar a zero an- 
tes da cobra comê-lo, um espaço em 
branco será colocado em seu lugar. En- 
quanto isso não acontecer, valores su- 
cessivamente mais baixos substituem os 
anteriores, na mesma posição. A sub- 
rotina retorna para a linha 510. 

Essa linha chama outra sub-rotina, na 
linha 100, que recebe os comandos de 
movimentação do cursor. Podemos usar 
tanto as teclas com setas como um joys- 
tick, desde que o comando STICK da li- 
nha 100 seja modificado (veja o artigo 
da página 348). O IF... THEN verifica se. 
a cobra cruzou a moldura ou seu pró- 
prio corpo. Em caso afirmativo, o pro- 
grama vai para a linha 800, que cuida do 
fim da partida. 

A linha 520 testa se o número foi en- 
golido pela cobra, somando 48 a R e 
comparando o resultado com TE. So- 
mamos 48 a R para obter o código do 
caractere correspondente ao número que 
estava na tela. TE, obtido com VPEEK, 
corresponde ao código do caractere que 
estava na posição que a cabeça da co- 
bra ocupa agora. Caso o número tenha 
sido realmente engolido, um caractere 
do corpo é colocado em sua posição. O 
programa vai, então, para a sub-rotina 
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Y 
da linha 300, que calcula o novo score, P / 40) NP - INT (NP / 40) * 40, INT ( 
aumenta o tamanho da cobra propor- 390 NEXT NP / 40) 
cionalmente ao número engolido — la- 400 COLOR= 11: PLOT NP - INT 570 GOTO 500 
ço entre as linhas 340 e 390 — e coloca (NP / 40) * 40, INT (NP / 40) 600 LS = "Х":р = 0:8С = 0:81 = 
outro número na tela. S10 NRETUSN Атк” 0 

As linhas 540 е 550 modificam os 500 IF P = 0 THEN GOSUB 200: 650 COLOR= 9: HLIN 0,39 AT 0: 
GOTO 510 VLIN 0,39 AT O: VLIN 0,39 AT 39 
apontadores da cabeça e da ponta da 505 IF INT ( RND (1) * 150) + : НІІН 0,39 АТ 39 
cauda, ajustando seus valores, caso te- 1 < SL THEN GOSUB 250 660 HOME : ЧТАВ 22: PRINT "SCO 
nham se reduzido a zero. A linha S60co- 510 GOSUB 100: IF E = 1 THEN 8 RE ";SC; TAB( 15);"RECORDE ";HS 
loca o caractere da cabeça na tela. 00 670 Т = 3:H = 1: COLOR= 11 
A rotina que cuida do encerramento 520 IF TE = 6 THEN COLOR= 0: 680 В(1) - 300: РІОТ B(1) ~ ІМ 
da partida começa na linha 800, que lim- PLOT B(H) - INT (B(H) / 40) * T (B(1) / 40) * 40, INT (B(1) / 
pa a tela, usando uma cor ao acaso, e 40. INT (B(H) / 40): GOSUB 300 40) 
produz. um som enquanto a palavra ta ouy 07°40) = 2607 МІ) 4 ІҢГ 700 B(2) = 340: PLOT B(2 IN 
“ Héi 1 1 . - : LOT B 
Mee A eA 40): COLOR» 0: PLOT B(T) - INT T (B(2) / 40) * 40. INT (B(2) / 
linha 810 atualiza o recorde, antes que AAT) oc Breed S = 380: PLOT B(3) - IN 
as linhas 820 a 840 ofereçam ao joga- 540 H - H - 1: IF H - 0 THEN H T (B(3) / 40) * 40, INT (B(3) / 
dor a oportunidade de jogar novamente. = м 40) 
550 T - T - 1: IF T - 0 THEN T 720 RETURN 
=M 800 HGR : TEXT : HOME : FOR I 


C io -o NT 


5 HOME : GR 
10 M = 500: DIM B(M) 
20 GOSUB 600 
30 сото 500 
100 GET KS: IF K$ < > “P” AND 
KS < > "L” ANDKS< > "X” AN 
D K$ < > "2" ТНЕМ K$ = LS 


110 NP - B(H) - 40 * (KS - "P") 
* 40 * (K$ —"L") - (KS - "2") 
* (K$ "y 

120 TE SCRN( NP - INT (NP / 





40) * 40, INT (NP / 40)) 

130 IF TE = 9 OR TE = 11 OR TE 
= 8 OR NP < 40 THEN COLOR= 11 
PLOT NP - INT (NP / 40) * 40 
INT (NP / 40):E = 1 

140 L$ = K$: RETURN 

200 R INT ( RND (1) * 9) +1 

:RX = INT ( RND (1) * 37) + 2: 

RY = INT ( RND (1) * 37) + 2 

210 IF SCRN( RX,RY) < > 0 TH 

EN 200 

220 VTAB 22: HTAB 31: PRINT "B 

ONUS ”;R:P = 1 

230 COLOR= 6: PLOT RX,RY: RETU 

RN 

250 R = R - 1: IF R * 0 THEN C 

OLOR= 0: PLOT RX,RY:P = 0: RETU 





RN 
260 HTAB 31: VTAB 22: PRINT "B 
ONUS " RETURN 





300 SC = 5С + А: НТАВ 7: ЧТАВ 2 
2: PRINT SC:P = O 
310 SL = SL + l: COLOR= 8: PLOT 


NP - INT (NP / 40) * 40, INT 
(NP / 40) 

320 H = H - l: IF H * 0 THEN H 
=M 

330 B(H) = NP 

340 FOR J = 1 TO R 

350 XX = PEEK ( - 16336) 

360 GOSUB 100: IF E = 1 THEN 8 
00 

370 H = H - 1: IF H = O THEN H 





=M 
380 B(H) = NP: COLOR= 8: PLOT N 
P - INT (NP / 40) * 40, INT (N 
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): PRINT "FIM ";: NEXT 


805 IF HS < SC THEN HS = SC 
810 HOME : HTAB 15: УТАВ 8: PR 
INT "SCORE - ";SC: HTAB 14: VTA 
B 12: PRINT "RECORDE = ";HS 
820 НТАВ 6: УТАВ 20: PRINT "<В 
ETURN> PARA JOGAR NOVAMENTE”: G 
ET AS 

830 IF AS = CHR$ (13) THEN H 
OME : GR : GOTO 20 

880 сото 820 


Para o jogo no Apple e no TK-2000, 
escolhemos a tela de baixa resolução, já 
que a cobra é feita de blocos. 

A linha 5 seleciona a tela e limpa sua 
parte inferior. A 10 dimensiona a ma- 
triz B de modo a acomodar no máximo 
quinhentos caracteres — o maior tama- 
nho que a cobra poderá ter. Note que 
os elementos da matriz B não correspon- 
dem às posições dos blocos na tela. Ca- 
da um deles contém as coordenadas de 


uma parte da cobra. A linha 20 manda 
o programa para a linha 600, que pre- 
para as condições iniciais do jogo. 

Na linha 600, P=0 significa que ne- 
nhum bloco está sendo mostrado; 
SC=0, que o score é zero; SL=0 quer 
dizer que o nível de dificuldade é zero 
e E=0 informa ao computador que a co- 
bra permanece dentro dos limites da te- 
la, não tendo cruzado nem a moldura, 
nem seu próprio corpo. Todas essas va- 
riáveis são utilizadas ao longo do pro- 
grama para que certas sub-rotinas sejam 
chamadas no momento adequado. 

A linha 650 desenha a moldura. A li- 
nha 660 mostra o placar. 

Na linha 670, 11 é a cor da cabeça da 
cobra. H e T são variáveis usadas para 
indicar os elementos de B ( ) que con- 
têm as coordenadas da cabeça e da pon- 
ta da cauda da serpente. Essas duas va- 
riáveis são chamadas de “apontadores” 
(pointers). 

As linhas 680 a 710 colocam a cabe- 


ça e dois segmentos do corpo na tela, de 
modo que a cobra tenha apenas estas 
partes a cada início de partida. A cor do 
corpo da cobra é 8. 


BLOCOS NA TEI 


Da sub-rotina o programa retorna à 
linha 30, que o envia para a rotina 
principal, na linha 500. Essa linha veri- 
fica, inicialmente, se há comida (bloco) 
para a cobra na tela. P é o indicador de 
bloco na tela; se seu valor for zero, a 
sub-rotina da linha 200 é chamada. Se 
houver um bloco na tela, um número 
qualquer entre 1 e 150 é comparado com 
o nível de dificuldade SL. Se o número 
gerado for menor que SL, a linha 505 
Au o programa para a sub-rotina 

50. 











A sub-rotina que começa na linha 200 
coloca um bloco na tela, em uma posi- 
ção escolhida ao acaso. A linha 200 se- 
leciona o número — R — entre 1 e 9, 
bem como duas coordenadas RX e RY. 
A linha 210 verifica se a posição tem a 
cor 0, preta, indicando que não há na- 
da no local, A linha 220 imprime na por- 
ção inferior da tela o valor do bloco que 
ali está (bônus). A linha 230 coloca um 
bloco de cor 6 em um ponto qualquer 
da tela. 

A sub-rotina da linha 250 diminui 
gradativamente o valor do bônus, até 
que o jogador consiga fazer a cobra che- 
gar à comida. Se o número for reduzi- 
do a zero antes que a cobra coma o blo- 
co, um espaço em brarico é colocado em 
seu lugar. Enquanto isso não ocorre, va- 
lores mais baixos são sucessivamente 
exibidos. A sub-rotina retorna para a li- 
nha 510. 

Esta linha chama outra sub-rotina, na 
linha 100, que recebe os comandos de mo- 
vimentação do cursor. Usamos as teclas P, 
L, Z e X como de costume. O IF..THEN 
verifica se a cobra cruzou a moldura ou seu 
próprio corpo; em caso afirmativo, o pro- 
grama vai para a linha 800, que cuida do 
encerramento da partida. 

A linha 520 testa se a comida foi en- 
golida pela cobra, comparando a cor do 
bloco com TE. Usamos SCRN na linha 
120 para obter TE, cor do bloco que es- 
tava na posição que a cabeça da cobra 
ocupa. Caso a comida tenha sido real- 
mente engolida, um bloco do corpo é 
colocado em sua posição. O programa 
vai, então, para a sub-rotina da linha 
300, que calcula o novo score, aumenta 
o tamanho da cobra proporcionalmen- 
te ao bônus — laço entre as linhas 340 
e 390 — e, por fim, coloca outro bloco 
na tela. 

As linhas 540 e 550 mudam os apon- 
tadores da cabeça e da ponta da cauda, 
ajustando seus valores, caso tenham se 
reduzido a zero. A linha 560 coloca o 
bloco da cabeça da cobra na tela. 

A rotina que cuida do final da parti- 
da começa na linha 800, que limpa a te- 
la e provoca um ruído (no Apple), en- 
quanto a palavra “FIM” é impressa vá- 
rias vezes. A linha 805 atualiza o recor- 
de, antes que as linhas 810 a 830 ofere- 
çam ao jogador a oportunidade de jo- 
gar novamente. 


10 M=512:DIM B(M) 

20 GOSUB 600 

30 GOTO 500 

100 K$=INKEYS:IF K$="" THEN K$= 


15 
110 K=ASC(K$) :NP=B(H)-32*(K=10) 








-8 





*32* (K-94) - (K*9) * (K*8) 

120 TE-PEEK(NP) 

130 IF TE-FG OR TE-HC OR TE-BC 
OR NP<1056 THEN POKE NP,HC:E=1 
140 LS=KS:RETURN 

200 R=RND (9) :RX=RND(13)+1:RY=RN 
D(29)+1:RP=RX*32+RY 

210 1F PEEK(1024+RP)<>BG THEN 2 
00 

220 R$=RIGHTS(STRS(R),1):PRINTE 





RP,RS;:P=1:RETURN 
250 R=R-1:IF R=0 THEN PRINT ERP 
+ CHR$ (BG P=0: RETURN ELSE PRIN 


T 6RP,RIGHTS(STRS(R) .1);;RETURN 
300 SC=SC+R: PRINT 826,5C;:P=0 
310 SL=SL+1:POKE NP,BC 

320 H=H-1:IF H=0 THEN H=M 

330 B(H)=NP 

340 FOR J=1 TOR 

350 PLAY "L255CEF" 

360 GOSUB 100:IF E-1 THEN 800 
370 H-H-1:IF H-0 THEN H-M 

380 B(H)=NP:POKE NP,BC 

390 NEXT 

400 POKE NP,HC:RETURN 

500 IF P-0 THEN GOSUB 200 ELSE 
TF RND(159)<SL THEN GOSUB 250 
510 GOSUB 100: IF E=1 THEN 800 
IF TE-R*112 THEN POKE B(H), 
* GOSUB 300 

POKE B(H),BC:POKE B(T),BG 
H-H-1:IF H-0 THEN H-M 
T-T-1:1F T-0 THEN T-M 
B(H)*NP:POKE NP,HC 

бото 500 

600 BG=RND(7)+1:FG=RND(7)+1:L$= 
CHRS (94) :P=0:SC=0:SL=1:E=0 

610 IF BG=FG THEN 600 

620 CLS BG:BG=BG-1:FG=FG-1 

630 BG=143+16*BG 

640 FG=143+16*FG 

650 FOR J-1024 TO 1055:PLAY "T2 
55L25504AG":POKE J,FG:POKE J+48 
0,FG:NEXT:FOR J-1056 TO 1472 ST 
EP 32:PLAY"O2DA":POKE J,FG:POKE 
J*31,FG:NEXT 

660 PRINT 63,"RECORDE-";HS 
NT €15,"SCORE= 0 "; 

670 HC=ASC("*")+64:BC=ASC("4")+ 
64:T=3:H=1 

680 B(1)=1263:POKE B(1),HC 

690 B(2)=1295:POKE B(2),BC 

700 B(3)=1327:POKE B(3),BC 

710 RETURN 

800 CLS RND(8): PLAY"OLACDEFGAC 
DEFG":FOR K-1 TO 408:PRINT " FO 
RA!! ";:NEXT: PLAY"O4ABCDEFGO3AB 
CDEFGO2ABCDEFG" 

810 IF HS<SC THEN HS=SC 

820 CLS:PRINT 673,"SCORE -”;8 
С:РВІМТ 6230,” RECORDE =";HS 
830 AS=INKEYS: PRINT €450,"PRESS 
IONE QUALQUER TECLA PARA RECO 
MECAR" 

840 AS=INKEYS: 
0 ELSE 20 


RI 





IF A$-"" THEN 84 


Usamos a tela de textos, e nào a grá- 
fica, para o jogo no TRS-Color, já que 
cobra é feita de caracteres. 

A linha 10 dimensiona a matriz B de 
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modo que esta acomode no máximo 512 
caracteres — o maior tamanho que a co- 
bra poderá ter. Note que os elementos 
da matriz B não correspondem às posi- 
ções de caracteres na tela. Cada elemen- 
to contém as coordenadas de uma par- 
te da cobra. A linha 20 manda o pro- 
grama à linha 600, que prepara as con- 
dições iniciais do jogo, 

Na linha 600, BG é a cor de fundo 
da tela e FG, a cor da moldura. 
15 = CHR$(94) faz com que a cobra se 
movimente para cima, até que uma te- 
cla seja pressionada. P = O significa que 
nenhum número está sendo mostrado; 
SC=0, que o score é zero; SL=0 quer 
dizer que o nível de dificuldade é zero, 
e E=0 informa ao computador que a 
cobra permanece dentro dos limites da 
tela, náo tendo cruzado nem a moldu- 
ra, nem seu próprio corpo. Todas essas 
variáveis sáo utilizadas ao longo do pro- 
grama para que certas sub-rotinas sejam 
chamadas no momento adequado. 

A linha 610 verifica se a cor de fun- 
do é igual à da moldura, escolhendo 
duas novas cores se o par inicial for 
idêntico. A linha 620 usa CLS BG para 
colorir a tela. Subtrai 1 de BG e FG, nu- 
ma preparação para as contas das linhas 
630 e 640. Embora pareçam complexas, 
essas contas simplesmente convertem 
BG e FG em valores que possam ser co- 
locados na tela com POKE, a fim de 
produzir a cor desejada. 

A linha 650 desenha a moldura, en- 
quanto produz alguns sons. А linha 660 
mostra O placar. 

Na linha 670, HC é o código do ca- 
ractere da cabeça da cobra e BC, o có- 
digo do caractere usado no corpo da 
mesma. H e T são variáveis usadas pa- 
ra indicar os elementos de B( ) que con- 
têm as coordenadas da cabeça e da pon- 
ta da cauda da serpente. Essas duas va- 
riáveis são chamadas de “apontadores” 
(pointers). 

As linhas 680 a 700 colocam na tela 
a cabeça e dois segmentos do corpo, de 
modo que a cobra tenha apenas estas 
partes a cada início de partida. 

Da sub-rotina o programa retorna pa- 
ra a linha 30, que o envia para a rotina 
principal na linha 500. Essa linha veri- 
fica, inicialmente, se há um número na 
tela para a cobra comer. P é o indicador 
de número na tela. Se seu valor for igual 
a zero, a sub-rotina da linha 200 é cha- 
mada. Se houver um número na tela, um 
número qualquer entre 1 e 150 é com- 
parado com o nível de dificuldade SL. 
Se o número gerado for menor que SL, 
o programa vai à sub-rotina 250. 

A sub-rotina que começa na linha 200 
coloca na tela úm número qualquer, em 
uma posição escolhida ao acaso. A li- 


nha 200 seleciona o número — R — en- 
tre 1 e 9, bem como suas coordenadas 
RX e RY. Esses dois valores são usados 
para calcular RP, posição do número na 
tabela de nomes da tela 1. Antes que o 
número seja impresso na tela, a linha 
210 verifica se na sua posição há outra 
cor além da cor de fundo, para evitar 
uma superposição com a moldura ou 
com o corpo da serpente. À linha 220 
cabe escrever o número na tela, e colo- 
car 1 em P. 

A sub-rotina que começa na linha 250 
diminui gradativamente o valor do nú- 
mero na tela, até queo jogador consiga 
fazer a cobra comé-lo. Se o número for 
reduzido a zero, um espaco em branco 
é colocado em seu lugar. Enquanto isso 
nào ocorre, valores sucessivamente mais 
baixos são colocados na mesma posição. 
A sub-rotina retorna para a linha 510. 

Essa linha chama outra sub-rotina, na 
linha 100, que recebe os comandos de 
movimentação do cursor. O IF... THEN 
verifica se a cobra cruzou a moldura ou 
seu próprio corpo; em caso afirmativo, 
o programa vai para a linha 800, que cui- 
da do fim da partida. 


A COBRA CRESCE 


A linha 520 testa se a cobra engoliu 
o número, somando 112 a R e compa- 
rando o resultado com TE. Somamos 
112 a R para obter o código do caracte- 
re correspondente ao número que esta- 
va na tela. TE é obtido com PEEK, e 
corresponde ao código do caractere que 
estava na posição que a cabeça da co- 
bra ocupa agora. Caso o número tenha 
sido realmente engolido, um caractere 
do corpo é colocado em sua posição, O 
programa vai, então, para a sub-rotina 
da linha 300, que calcula o novo score, 
aumenta o tamanho da cobra propor- 
cionalmente ao número engolido — la- 
ço entre as linhas 340 e 390 — e coloca 
outro número na tela. 

As linhas 540 e 550 modificam os 
apontadores da cabeca e da ponta da 
cauda, ajustando seus valores, caso eles 
tenham se reduzido a zero. A linha 560 
coloca o caractere da cabeca da cobra 
na tela. 

A rotina que cuida do encerramento 
da partida comega na linha 800, que lim- 
paa tela usando uma cor ao acaso e pro- 
duz algum som enquanto a palavra 
“FIM” é impressa várias vezes. Ao fi- 
nal da operação, outro som é produzi- 
do. A linha 810 se incumbe de atualizar 
o recorde, antes que as linhas 820 a 840 
ofereçam ao jogador a oportunidade de 
jogar novamente. 


Se você já desejou algum dia uma 
listagem impressa de seus 

programas, ou uma cópia dos gráficos 
que aparecem na tela, chegou 

0 momento de adquirir uma impressora. 


Periférico dos mais úteis para um mi- 
erocomputador, uma impressora contri- 
bui não só para a concretização de mui- 
tas aplicações novas, como também pa- 
ra um notável progresso na produtivi- 
dade e na eficiência da programação. 
Entretanto, como ela representa um in- 
vestimento considerável, e como existe 
no mercado uma grande variedade de ti- 
pos e preços, é necessário planejar com 
bastante cuidado a aquisição do mode- 
lo mais adequado, 

Embora a impressora possa ser vista 
apenas como um periférico de saída al- 
ternativo para o vídeo, isto não quer di- 


ESCOLHA O TIPO CERTO 
DE IMPRESSORA 
= PAPEL PARA IMPRESSAO 


COMO CONECTAR A IMPRESSORA 


AO SEU COMPUTADOR 


zer que ambos tenham as mesmas fun- 
ções. O papel principal da impressora é 
assegurar um registro permanente de 
qualquer informação armazenada ou 
processada pelo computador, mesmo 
que esta nunca seja exibida na tela, Mas 
ela pode proporcionar também cópias 
da tela em papel (o que é conhecido co- 
mo hardcopy, em jargão técnico). 

Há muitos tipos de programas capa- 
zes de desenhar na tela gráficos cientí- 
ficos (chamados também de “'arte com- 
putacional”) que o usuário gostaria de 
copiar, arquivar, ou até colocar em uma 
moldura. O mesmo acontece com os de- 
senhos técnicos produzidos no vídeo por 
software de projetos (CAD ou Computer- 
Aided-Design). Tudo isso pode ser re- 
produzido no papel por uma impresso- 
ra gráfica adequada. 

Certas aplicações, porém, exigem 
apenas uma impressora de textos; por 
exemplo, se você trabalha com progra- 
mas de bancos de dados ou com progra- 





ШЕЕ &= == E 


mas contábeis, que não necessitem de 
gráficos, pode encontrar uma impresso- 
ra mais barata, c igualmente adequada. 

Um computador doméstico pode ser 
usado de modo semelhante a uma má- 
quina de escrever: seu teclado permite 
datilografar cartas, artigos, livros etc. 
Existem programas de processamento de 
textos que manipulam com rapidez e efi- 
ciência palavras, linhas e parágrafos. 
Nesse tipo de aplicação, a impressora é 
um periférico essencial. 

A impressora funciona ainda como 
elemento de apoio para a atividade de 
programação, Neste particular, os mé- 
ritos do vídeo são muitos, mas as pes- 
soas costumam ter mais familiaridade 
com a palavra impressa. Por outro la- 
do, a maioria dos programadores gosta 
de ter uma cópia impressa do programa; 
esta não só dá uma idéia global do pro- 
grama, como facilita o trabalho de de- 
tecção e correção de erros. Além disso, 
é sempre bom contar com uma listagem 
do programa em papel para manter um 
arquivo paralelo 


TIPOS DE IMPRESSORA 


No Brasil, o usuário de computado- 
res pessoais conta com trés espécies de 








impressora: a matricial de impacto, a do 
tipo “margarida” e a impressora térmi- 
Um quarto modelo é a impressora- 
tracadora, muito utilizada na Europa e 
no Japão; essa espécie, porém, é encon- 
trada no Brasil apenas como parte do 
equipamento do microcomputador de 
bolso PC-1500, da Sharp. 

Como acontece com todas as impres- 
soras modernas, a matricial conta com 
carro de papel fixo. A cabeça de impres- 
são se movimenta no sentido transver- 
sal sobre o papel; ela contém uma colu- 
na vertical de agulhas bem próximas 
umas das outras e ligadas a indutores do 
tipo solenóide. Quando um solenóide é 
ativado, a agulha é propulsionada con- 
tra uma fita tintada, imprimindo um 
ponto no papel. Os caracteres são for- 
mados por meio da combinação de agu- 
lhas, e da movimentação da cabeça de 
impressão. 

As primeiras impressoras matriciais 
tinham matrizes de 5 x 7 (cinco colunas 
por sete fileiras), porém as mais moder- 
nas já utilizam nove agulhas, para pro- 
duzir um padrào de 7 x 9 ou 9 x 9. Este 
é um aspecto importante, pois a quali- 
dade final dos caracteres impressos de- 
pende do nümero de pontos na matriz. 
Uma das características ““negativas”* das 
impressoras matriciais, quando operam 












com matrizes menores, é a impossibili- 
dade de tragar a parte da letra que 
abaixo da linha de impressáo, como nas 
letras p e q. 

Essas impressoras sáo as mais rápi- 
das de todas, existindo modelos com ve- 
locidades que variam de 80 a 400 cps (ca- 
racteres por segundo). A velocidade má- 
xima, no entanto, raramente é atingida. 
As impressoras mais modernas impri- 
mem linhas de texto nas duas direções 
(impressão bidirecional). 

Mesmo nos melhores modelos de im- 
pressoras matriciais, os caracteres im- 
pressos, embora claramente legíveis, são 
nitidamente formados por pontinhos 
Entretanto, é possível conseguir uma 
qualidade melhor de apresentação. O re- 
curso mais utilizado para isso é a im- 
pressão múltipla, que faz com que a ca- 
beça imprima duas vezes cada linha de 
texto: uma vez em cada direção. Antes 
da segunda passagem, o rolo de papel 
é deslocado em uma fração de milime- 
tro, O que causa um pequeno desalinha- 
mento entre as agulhas de impressão e 
os caracteres já impressos. Assim, Os €s- 
paços em branco deixados na primeira 
passagem são preenchidos na segunda, 
e os caracteres ficam com um aspecto fi- 
nal mais completo e mais escuro (qua- 
lidade carta). 
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Esse recurso, porém, reduz a veloci- 
dade normal de impressão à metade e 
tem efeito apenas em impressoras ma- 
triciais com capacidade gráfica. Nestas, 
o computador controla não só o dispa- 
ro individual de cada agulha, como o 
grau de deslocamento horizontal da ca- 
beça de impressão e vertical do rolo. 

Existe ainda um tipo de cabeça com 
um conjunto duplo de agulhas. Esse dis- 
positivo não diminui a velocidade de im- 
pressão, mas é menos usado por ser mais 
caro. Com ele, os caracteres são forma- 
dos em passos múltiplos: a primeira co- 
luna de agulhas dispara, em seguida vem 
a segunda, com um ligeiro deslocamen- 
to, e assim por diante, 

As impressoras gráficas permitem 
também a troca dos tipos de letra (co- 
nhecidos como fontes); desse modo, po- 
de-se controlar a largura e altura dos ca- 
racteres, e determinar se eles serão im 
pressos em negrito, ou em itálico, etc. 
(alguns programas têm comandos inter 
nos que indicam o tipo de letra a ser uti- 
lizado na impressão). 

Embora todos esses métodos repre- 
sentem um progresso considerável, a 
qualidade final de impressão de textos 
não é irrepreensível. Para aperfeiçoá-la, 
é necessário utilizar as impressoras de 
caracteres formados, ou seja, as que têm 
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caracteres em relevo, como as máquinas 
de escrever (dos tipos “esfera”, “vare- 
ta”, ou “*margarida”). 


IMPRESSORAS DE CARACTERES FORMADOS 


As primeiras impressoras de caracte- 
res formados acopladas a micros foram 
adaptadas de máquinas de escrever elé- 
tricas, do tipo “esfera”, Embora a qua- 
lidade de impressão seja boa, a massa 
da cabeça de impressão (que não foi fei- 
ta para as velocidades máximas de 15 
cps que a impressora consegue) torna a 
impressão lenta e pouco confiável. Con- 
sequentemente, hoje dominam as im- 
pressoras do tipo “margarida” 

As impressoras ''margarida” empre- 


Dispostas em torno de um anel (acima), as 
agulhas da impressora “margarida” 

adas com caracteres em relevo 
que imprimem sobre o papel (abaixo). 
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gam um elemento de impressão remo- 
vível semelhante a uma flor, com “pé-| 
talas” irradiando do anel central, Cada 
“pétala” tem na ponta um cai 
relevo. Para imprimir, a imp gi 
ra a margarida até que a “pétala” com 
o caractere fique em posição; um peque- 
no martelo pressiona-a então contra a 
fita de impressão e o papel. A qualida- 
de de impressão é igual ou superior à de 
uma máquina de escrever elétrica, e mui- 
to superior à de uma impressora matri- 
cial (em qualidade carta); entretanto, a 
velocidade de impressão é bem menor, 
variando entre 8 e 80 cps. 

Tais máquinas contam com recursos 
de ênfase de texto, como sublinhamen- 
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to, negrito etc. Além disso, elas possi- 
itam variações no espaçamento entre 
os caracteres. Algumas são capazes de 
gerar gráficos por meio do controle da 
movimentação do papel. 


IMPRESSORAS TÉRMICAS 


Uma desvantagem importante das 
impressoras matriciais e do tipo “mar- 
garida” é o custo relativamente alto. As- 
sim, tem-se tentado, ao longo dos anos, 
utilizar outras técnicas mais baratas de 
impressão. 

As primeiras tentativas levaram ao 
surgimento das impressoras térmicas, 
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gue exigem um papel especial, revesti- 
com uma substância química termos- 
sensível. Esse papel é caro, mas tem a 
vantagem de não precisar de fita de im- 
pressão. A cabeça impressora é consti- 
tuída de uma matriz equipada com pe- 
quenas peças de aquecimento. O com- 
putador seleciona o caractere a ser im- 
presso, e o sistema eletrônico interno da 
impressora faz passar uma corrente elé- 
trica nas agulhas da cabeça, aquecendo- 
as até cerca de 150°C. Esse padrão é en- 
táo aplicado sobre o papel termossensí- 
vel, escurecendo-o nos pontos corres- 
pondentes. 

Tal género de impressora náo pode 
ser usado para imprimir textos de me- 
Ihor qualidade. O papel, geralmente de 
rolo, é alimentado por fricção (rolo de 
borracha). Assim, seu deslocamento não 
tem a precisão oferecida pela alimenta- 
ção por trator (formulário perfurado 
nas margens). Entretanto, ele apresen- 
ta vantagens como: pequeno tamanho, 
menor desgaste mecânico etc, 

Outro tipo é a chamada impressora- 
traçadora, cujo funcionamento se baseia 
no mesmo principio do traçador digital 
de desenhos. Além de impressora, ela é 
também traçadora, utilizando pequenas 
canetas esferográficas de várias cores. A 


cabeça de impressão típica contém qua- 
tro penas, que são alojadas em um tam- 
bor rotatório. Sob comando de softwa- 
re, a cabeça pode ser rodada para colo- 
car em posição a caneta com a cor ade- 
quada. Ademais, existe um solenóide 
que retira ou pressiona a pena contra o 
papel. A cabeça se movimenta no senti- 
do transversal, e o papel no vertical, 
possibilitando traços contínuos sobre o 
papel. A velocidade de impressão se si- 
tua em torno de 12 cps. O papel é de 
rolo, semelhante ao das máquinas de 
calcular. 


0 PAPEL PARA IMPRESSORA 


Ao selecionar uma impressora, é ne- 
cessário saber antes como se quer a im- 
pressão. Isso se aplica não somente aos 
modelos e à qualidade dos caracteres, 
como também ao tipo, tamanho, cor e 
textura do papel. Além disso, a forma 
com que este é alimentado na impresso- 
ra também é importante. Por exemplo, 
se um médico precisar imprimir receitas 
em papel timbrado, deverá dispor de 
uma impressora capaz de ser alimenta- 
da com folhas soltas. 

Existe uma grande variedade de pa- 
péis para impressora de largura padro- 
nizada. Esta pode ser especificada em 
número de colunas (80, 120 e 132 colu- 
nas) ou ainda em centímetros (os tama- 
nhos variam, neste caso, entre 10 e 40 
em). Os comprimentos são igualmente 
padronizados (ofício, A4 etc.). 

Algumas impressoras usam apenas 
um tipo de papel (por exemplo, formu- 
lário contínuo de oitenta colunas); ou- 
tras comportam vários tipos. O papel 
pode ser comprado em folhas soltas, em 
rolo ou em formulário contínuo. Este 
último é o papel tradicionalmente utili- 
zado em computadores: consiste de uma 
faixa contínua dobrada em “Z”, e acon- 
dicionada em caixas. As folhas podem 
ser separadas na dobra, por meio de um 
serrilhado ou corte vincado. Nas bor- 

















das, existem duas fitas de papel perfu- 
rado (chamadas remalinas), que tam- 
bém podem ser separadas manualmente, 

Cada tipo de papel exige uma forma 
peculiar de alimentação, Os principais 
mecanismos de alimentação são: trator 
(rodas dentadas que movimentam o for- 
mulário contínuo) e fricção (rolo de bor- 
racha, semelhante ao da máquina de es- 
crever, usado com folhas soltas ou com 
papel de rolo). As folhas soltas podem 
ser alimentadas manualmente ou por in- 
termédio de um dispositivo especial (este 
deve ser comprado separadamente, e 
não existe para todos os tipos de im- 
pressora). 

Os papéis podem ser lisos (em uma 
só cor, geralmente branca), pautados e 
zebrados (com faixas de cor e brancas, 
alternadas). Existem ainda papéis com 
cópias múltiplas (1 a 7), com ou sem pa- 
pel carbono intercalado, 


INTERFACE! 


Por outro lado, o computador só po- 
de se comunicar efetivamente com a im- 
pressora se for usada uma interface 
adequada. 

Uma interface é, essencialmente, o 
hardware que torna possível a conexão 
entre dois sistemas. Ela é equipada com 
um circuito eletrônico e com o softwa- 
re necessário para operá-lo. Muitos 
computadores já são vendidos com a in- 
terface para impressora embutida; as- 
sim, basta adquirir um cabo para efe- 
tuar a ligação. Outros são normalmen- 
te vendidos sem qualquer tipo de inter- 
face para impressoras. 

Quando o computador e a impresso- 
ra são do mesmo fabricante, há geral- 
mente compatibilidade entre eles. Caso 
isso não aconteça, eles podem ser trans- 
formados por meio de uma interface. 

É importante também assegurar que 
o software que se pretende utilizar seja 
compativel com a impressora, principal- 
mente se ele precisar de recursos espe- 


ciais (elaboração de gráficos, proces- 
samento de textos etc.), peculiares a 
determinados tipos de impressora. Al- 
guns softwares têm um módulo de ins- 
talação que permite selecionar a impres- 
sora a partir de um menu. 

Para assegurar algum grau de com- 
patibilidade entre os equipamentos no 
mercado, foram desenvolvidos diversos 
padróes interfaces. Os dois mais famo- 
sos sáo o RS-232C (uma interface do ti- 
po serial), e o padráo Centronics (uma 
interface do tipo paralelo). 

Numa interface serial, a transmissáo 
dos bits do código de cada caractere é 
feita gradualmente (um de cada vez). In- 
ternamente, porém, tanto o computador 
quanto a impressora armazenam os bits 
em paralelo; assim, torna-se necessária 
a presença de um mecanismo de conver- 
são de paralelo para serial (e vice-ver= 
sa) em cada ponta do sistema. Daí a 
vantagem da interface paralela, que 
manda todos os“bits de cada caractere 
ao mesmo tempo. Apesar de mais rápi- 
da, essa interface tem a desvantagem de 
exigir um cabo com maior número de 
fios (geralmente coaxial ou paralelo), 
enquanto a interface serial requer ape- 
nas um par de fios. 

A conversão, transmissão e recepção 
de bits em série são efetuadas por um 
circuito integrado especial chamado 
UART (Universal Assynchronous Trans- 
mitter and Receiver, ou Transmissor e 
Receptor Assincrônico Universal). 

Um UART no computador recebe 
códigos ASCII da memória por meio da 
UCP, “'traduzindo-os” para o formato 
serial, Além disso, adiciona outros có- 
digos de transmissão e os transmite pa- 
ra a impressora, Um UART idêntico na 
impressora recebe esses códigos e, se não 
houver erros, os converte de volta no 
formato paralelo. As taxas de transfe- 
rência de dados (medidos em bauds) va- 
riam, segundo a impressora, entre 75 e 
19 200 bits por segundo (ou bauds), o 
que equivale a cerca de 7 e 1 800 cps, res- 
pectivamente. 









Para superar as limitações de veloci- 
dade impostas ao computador, devido 
à lentidão do mecanismo impressor, a 
maioria das impressoras dispõe de uma 
memória intermediária chamada buffer. 
A informação a ser impressa é enviada 
diretamente para o buffer, liberando o 
computador para outras tarefas. O con- 
trolador da impressora esvazia então o 
buffer na impressão. O tamanho dessa 
memória intermediária varia entre 8 e 
8 000 bytes. À medida que ela aumenta, 
torna-se menor a frequência com que o 
computador é interrompido, ou seja, di- 
minui a demanda da impressora sobre 
o computador. Assim, embora saia mais 
caro, é preferível ter uma impressora 
com um buffer maior. Algumas empre- 
sas vendem buffers especiais de grande 
capacidade para serem instalados entre 
o computador e a impressora. 

Um outro tipo de interface serial em- 
pregado durante muito tempo com im- 
pressoras é o laço de corrente de 20 mA. 
Originalmente usado em terminais de te- 
letipos e telex, esse tipo tem sido substi- 
tuído ultimamente pelo padráo 
RS-232C, pois é muito lento. 

A interface paralela mais usada é a 
do tipo Centronics. Desenvolvida pelo 
fabricante do mesmo nome na década 
de 70, ela foi universalmente adotada 
devido à sua simplicidade. A esmagado- 
ra maioria de impressoras e micros uti- 
liza hoje esse padrão, o que garante am- 
pla compatibilidade. 

Outra interface bastante usada, prin- 
cipalmente na interligação de instrumen- 
tos de medida a computadores, é o pa- 
drão IEE 488, um sofisticado equipa- 
mento paralelo que permite a operação 
full-duplex (comunicação simultânea 
nos dois sentidos). Como pode ser co- 
nectada a muitos micros, essa interface 
foi incorporada a alguns modelos de im- 
pressora. Muitos de seus inúmeros re- 
cursos, porém, não são necessários à co- 
municação computador-impressora. 
Por esse motivo, a Centronics continua 


sendo a opção preferida. 





COP 2, 1390 — oa ШИ ET 
CONJ UNTOS DE Monstros e espaçonaves são apenas duas 
aplicações dos blocos gráficos. 


è Extremamente úteis e versáteis, estes 
BLOCOS GRÁFICOS (1) — zm 
quisermos. A imaginação é o limite. 


Nem só de monstros e dragões vivem 
os blocos gráficos. Com eles podemos 
criar, por exemplo, conjuntos de símbo- L 
los especiais ou de novas letras, ou qual- 
quer outra coisa que desejarmos. Neste 
artigo, veremos como criar uma grande 
variedade de blocos e como utilizar me- 
Ihor o programa gerador apresentado 
nas liçóes anteriores. 


QUAIS SAO OS LIMITES? 


Alguns microcomputadores limitam 
o nümero de blocos que podem ser pro- 
duzidos. Este é o caso do Spectrum, que 
só permite a criação de 21 blocos. Já no 
MSX é possível produzir 256 blocos pa- 
ra cada terço da tela de alta resolução 
— 256 também é o máximo que o pro- 
grama gerador cria de cada vez. No Ap- 
ple, o número de blocos é limitado ape- 
nas pela quantidade de memória dispo- 
nível; esse é também o limite do TRS- 
Color. Neste último, aliás, não se pode 
falar propriamente de blocos gráficos, 
mas sim de matrizes que armazenam o 
padrão desejado. O ZX-81 e o TRS-80 
não dispõem desse recurso, impossibi- 
litando a criação de blocos gráficos em 
BASIC apenas. 

No caso do Spectrum, há formas de 
se extrapolar o limite dos 21 blocos, 
quando se deseja um número maior. As- 
sim, podemos criar uma tela que use 
muitos blocos — por exemplo, um jo- 
go em que um sapo deve atravessar uma 
pista movimentada, pela qual trafegam 
carros, caminhões e ônibus. Isso certa- 
mente consumirá mais de 21 caracteres, 
sem contar os que vamos precisar para 
desenhos de fundo como margens de 
rios, calçadas e acostamentos. 

Suponhamos que se trate de um de- 
senho representando uma rua. Teremos, 
nesse caso, de utilizar blocos para figu- 
rar os edifícios, as pessoas, os veículos 
e outros detalhes da cena. No próximo 
artigo, explicaremos como criar uma te- 
la desse tipo. 

Finalmente, podemos precisar de um 
novo conjunto de caracteres — o alfa- 
beto grego, por exemplo — o que ul- 
trapassaria o limite de 21 caracteres. 

Em resumo, há inúmeras situações 
que exigem mais de 21 blocos gráficos. 










































































Felizmente, casos como esses não ficam 
sem solução, pois existe uma maneira de 
aumentar o número de blocos ofereci- 
dos pelo computador. 


O espaço reservado pelo Spectrum ao 
ser ligado corresponde a 21 blocos grá- 
ficos. Podemos, contudo, aumentá-lo, 
destinando uma área maior na RAM es- 
pecialmente para esse fim. Assim, quan- 
do os padrões dos novos blocos estive- 
rem na memória, serão formados vários 
“bancos” de 21 blocos cada um. 


сом! 





LOCAR OS BLOCOS NA MEMÓRIA 


A primeira coisa a fazer é encontrar 
um lugar seguro para guardar nossos 
blocos na memória, de tal forma que 
eles não possam ser apagados pelo BA- 
SIC. Devemos também decidir quantos 
blocos usaremos para dimensionar pre- 
viamente o espaço a ser reservado. 

Se quisermos criar mais 21 blocos, 
podemos fazer o cálculo do comprimen- 
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to que o “banco de memória” vai ocu- 
par, multiplicando 21 (o número de no- 
vos blocos) por 8, que é o número de 
bytes necessários para definir o padrão 
de um bloco. O resultado dessa multi- 
plicação é o número de bytes que preci- 
samos reservar. 

O passo seguinte consiste em escolher 
a posição em que vamos colocar o “ban- 
co”, Quanto mais alto o colocarmos na 
memória, mais espaço sobrará para o 
programa em BASIC, O ideal seria po- 
sicionar nosso “banco” imediatamente 
abaixo da área em que ficam guardados 
os 21 primeiros blocos e reservada au- 
tomaticamente pelo micro. 

O endereço máximo até onde o BA- 
SIC pode chegar é denominado RAM- 
TOP. Ele fica situado uma posição abai- 
xo do primeiro byte da área dos blocos 
gráficos — UDG —, reservada automa- 
ticamente pelo Spectrum, Veremos mais 
tarde que esse enderego náo é fixo. Po- 
demos verificar o valor atual de RAM- 
TOP por intermédio do comando: 


PRINT USR "A" - 1 


Essa linha mostra na tela o endereço 
do primeiro byte do bloco definido pe- 








lo usuário no lugar “A” menos 1, Se 
não houver alterações depois que o apa- 
relho for ligado, o valor de RAMTOP 
deverá ser 65367 no Spectrum de 48K, 
e 32599 no de 16K. 

Agora que sabemos onde fica o 
RAMTOP, podemos calcular o endere- 
ço inicial de nosso espaço reservado pa- 
ra os novos blocos. 

Para isso, temos que calcular quan- 
tos bytes vamos reservar a partir do pri- 
meiro byte da área dos UDG. Nosso 
banco tem um comprimento de 21 x 8, 
ou 168 bytes. Dessa forma, ele deve co- 
meçar 168 bytes abaixo da área dos 
UDG. Isso fica na posição: 


PRINT USR "A" - 169 


que corresponde ao valor 65199, ou 
32431 nas máquinas de 16K. 


PROTEÇÃO DO BANCO DE B 


Entretanto, não basta colocar sim- 
plesmente os padrões dos blocos nessa 
área, Programas BASIC muito longos 
podem chegar até lá, destruindo os da- 
dos. Para proteger essa área, devemos 














digitar, ou colocar em uma linha do pro- 
grama, a instrução: 


CLEAR USR "A” - 169 


Isso fará com que o RAMTOP seja 
deslocado 168 bytes para baixo, de mo- 
do que as posições acima de 65199 (ou 
32431) ficarão protegidas. 

Agora, temos que informar o Spec- 
trum onde encontrar os dados; depois 
disso, colocamos na memória os bytes 
correspondentes aos novos caracteres. 








OMO USAR APONTADORES 


Para informar ao computador onde 
se encontram os dados referentes aos 
novos blocos, precisamos modificar o 
valor de um apontador. 





Existem vários apontadores na me- 
mória do Spectrum: cada um deles 
“aponta” para uma posição importan- 
te da memória. Neste caso específico, es- 
tamos interessados naquele que “apon- 
ta” para o endereço do primeiro byte da 
área de blocos gráficos. Antes de usar 
um bloco gráfico, o computador deve 
descobrir onde seus bytes estão guarda- 
dos. Para isso, ele precisa primeiro ob- 
ter o valor do endereço que está no 
apontador. Esse valor é geralmente 
65368, mas devemos modificá-lo, de 
maneira que ele passe a “apontar” pa- 
ra o início do novo banco de blocos. 

Uma característica dos apontadores 
é que podemos colocar novos valores 
dentro deles usando POKE; assim, o 
computador utilizará simplesmente o 
novo endereço. É essa característica que 


faz do apontador um elemento tão útil 
na expansão do limite de blocos. Na ver- 
dade, precisamos de dois comandos PO- 
KE para modificar o conteúdo de um 
apontador, pois o valor máximo que um 
byte pode conter é 255, ao passo que os 
valores de endereços são geralmente 
maiores. Desse modo, o Spectrum que- 
bra o endereço em duas partes, equiva- 
lentes, por assim dizer, ao algarismo das 
dezenas e ao algarismo das unidades de 
um número normal. 

Para calcular as diferentes partes de 
um número decimal, devemos dividi-lo 
por 10, caso ele tenha dois algarismos. 
Tomemos o número 56 como exemplo: 
para encontrar o algarismo das dezenas, 
dividimos 56 por 10 e obtemos 5. O res- 
to da divisáo, 6 no nosso exemplo, é o 
algarismo das unidades. 





Quando quisermos colocar um novo 
valor dentro do apontador (usando PO- 
KE), devemos quebrar o número em 
duas partes de maneira similar. A dife- 
rença é que, em vez de dividirmos por 
10, dividimos por 256. Nosso banco con- 
tendo 21 novos blocos deve começar no 
endereço 65200 (no Spectrum de 48K). 
Assim, é preciso colocar esse valor den- 
tro do apontador, quebrando-o em duas 
partes. Dividimos então 65200 por 256. 
Obtemos 254 e um resto igual a 176. 

O sistema operacional do Spectrum 
interpreta a primeira parte de um núme- 
ro com duas partes como sendo a me- 
nor (ao contrário do que fazemos com 
números decimais). Desse modo, o quo- 
ciente da divisão vai para a segunda par- 
te do número e o resto para a primeira. 

O nosso apontador corresponde en- 


tão a dois endereços: 23675 e 23676. 
Portanto, precisamos de dois POKE: 


POKE 23675,176 
POKE 23676,254 


Falta agora criar e colocar os novos 
blocos na memória. 

Uma vez modificado o conteúdo do 
apontador, procedemos exatamente da 
mesma maneira que com blocos nor- 
mais: POKE USR “A” com o primeiro 
byte do primeiro caractere, USR “A” 
+ 1 com o segundo byte do primeiro ca- 
ractere, e assim por diante. 

Se você preferir, pode colocar os va- 
lores na memória antes de mudar o 
apontador. Neste caso, terá que usar o 
valor do endereço, e não mais USR 
“A”, Assim, no nosso exemplo, o ргі- 
meiro endereço seria 65200. Para não 





confundirmos os números, é aconselhá- 
vel usar + 1 em cada novo POKE. 

Para trabalhar com os caracteres no- 
vos, é preciso modificar o apontador 
(geralmente, é mais fácil fazer isso no 
início). 

Se seguirmos corretamente as ins- 
truções, será fácil imprimir os blocos, 
usando um programa BASIC. Contudo, 
quando precisamos de novos caracteres 
ou blocos disponíveis via teclado, o mé- 
todo não é muito adequado. Não é agra- 
dável mudar o apontador ou usar o mo- 
do gráfico a todo instante. 





Para contornar esse problema, é ne- 
cessário que redefinamos o conjunto de 









caracteres do Spectrum. Isso vai fazer 
com que o ato de pressionar uma tecla 
imprima um novo caractere ou bloco 
gráfico, em vez da letra ou número cor- 
respondentes. 

Há muitos motivos para se criar um 
novo conjunto de caracteres: por exem- 
plo, quando queremos imprimir mensa- 
gens na tela em outra língua (russo ou 
grego, digamos), ou quando desejamos 
personalizar um programa, usando tipos 
que nós mesmos criamos. 

A redefinição do conjunto de carac- 
teres do Spectrum é na realidade bem si- 
milar à criação de novos bancos de 
UDG: reserva-se uma área na memória 
RAM e coloca-se ali os padrões de ma- 
neira análoga. | 

O único problema com a redefinição 
é que, mesmo que queiramos criar ape- 
nas um caractere novo, todos os outros 
devem ter seus padrões transferidos pa- 
ra a mesma área da RAM. 

A razão para isso é que devemos mo- 
dificar o apontador do conjunto de ca- 
racteres, da mesma maneira que ante- 
riormente mudamos o apontador de 
UDG. Uma vez modificado o valor do 
apontador, o computador passa a pro- 
curar os padrões das letras no novo en- 
dereço na RAM, não podendo retornar 
à ROM para obter os padrões das letras 
que não foram modificadas. 

Um procedimento útil é transferir pa- 
ra a área reservada na RAM todos os 
bytes das letras antes de colocar os da- 
dos correspondentes aos caracteres que 
queremos modificar. 

Digite a instrução RANDOM O pa- 
ra limpar a memória e depois carregue 
o seguinte programa: 





10 CLEAR USR "A"-769 

20 LET d-PEEK 237304256*PEEK 
23731+1 

30 FOR n=15616 TO 15616+767 
40 POKE d,PEEK n 

50 LET d=d+1: NEXT n 

60 POKE 23606,PEEK 23675 

70 POKE 23607,PEEK 23676-4 
80 LET p=PEEK 23606+256*PEEK 
23607+48*8 

90 FOR n=p TO p+79: READ a: 
POKE n,a: NEXT n 

110 DATA 0,124,76,84,86,102, 
126,0 

130 DATA 0,8,8,8,24,24,24,0 
150 DATA 0,126,2,126,96,96,126 
‚0 

170 DATA 0,124,4,126,6,6,126,0 
190 DATA 0,96,98,98,126,2,2,0 
210 DATA 0,124,64,126,6,6,126,0, 


ШИШ: 





B= EE Es 


230 DATA 0,62,32,126,98,98,126 


‚0 

250 DATA 0,124,4,4,6,6,6,0 
270 DATA 0,60,36,60,102,102, 
126,0 

290 DATA 0,124,68,126,6,6,126, 
0 


As oito primeiras linhas protegem 
uma área na RAM e colocam ali os bytes 
correspondentes ao conjunto de carac- 
teres obtidos na ROM. As linhas restan- 
tes redefinem os números. 

Coloque o programa para funcionar, 
aguardando a mensagem “OK”. A se- 
guir, aperte uma das teclas numéricas. 

Se pressionarmos NEW, os números 
voltarão à sua forma original, Entretan- 
to, os dados correspondentes continuam 
na memória e o novo conjunto de ca- 
racteres pode ser reativado por: 


POKE 23606, PEEK 23675 
POKE 23607, PEEK 23676 - 4 


Não importa o tamanho da memória 
de seu micro — 16K ou 48K —, o pro- 
grama descobre e altera os endereços re- 
levantes. Ele faz isto verificando o va- 
lor do apontador do RAMTOP (ende- 
reços 23730 e 23731). Os valores dos co- 
mandos PEEK são combinados de ma- 
neira a produzir o valor de RAMTOP. 

O conjunto de caracteres da ROM 
é guardado entre os endereços 15616 
e 15616 + 767 (pelo menos, esta é a 
parte do conjunto de caracteres que 
pode ser redefinida). Usando um laço 
FOR...NEXT, o programa transfere pa- 
ra a RAM os bytes dessa regiáo da 
ROM. 

O lago atualiza o enderego que está 
sendo transferido automaticamente (já 
que o contador do lago é também o en- 
dereço que está sendo transferido); o en- 
dereço da RAM que está recebendo o 
byte é atualizado na linha 50 (variável 
d). Como podemos ver na linha 30, não 
há necessidade de somar os endereços 
nem os bytes, já que o Spectrum pode 
fazer isso por nós. As linhas 60 e 70 mo- 
dificam o valor do apontador do con- 
junto de caracteres, para que ele **apon- 
te" para o endereço inicial da área que 
reservamos na RAM. Esse endereco é 
calculado a partir do endereco da área 
de caracteres UDG, obtido por intermé- 
dio de PEEK (esse mecanismo funcio- 
nará mesmo que tenham sido criados 
novos bancos de UDG). O novo conjun- 
to de caracteres ficará logo abaixo da 
área de caracteres UDG; assim, o cál- 














culo na linha 70 simplesmente subtrai o 
comprimento do conjunto de caracteres 
do endereço inicial da área de UDG. Es- 
se comprimento é igual a 4, mas, como 
está no byte mais significativo do ende- 
reço, ele é multiplicado por 256, resul- 
tando no comprimento real do conjun- 
to, que é de 1024 bytes. 

Agora que o conjunto de caracteres 
foi todo transferido para a RAM, po- 
demos substituir alguns dos velhos ca- 
racteres por novos. 

Se não tomarmos cuidado, corremos 
o risco de substituir os caracteres erra- 
dos. Isso pode ser evitado se escolher- 
mos direito os caracteres que serão mo- 
dificados e se colocarmos os novos bytes 
nos lugares certos. 

O apéndice 1 do manual do Spectrum 
apresenta uma lista com o conjunto de 
caracteres. Somente podem ser redefi- 
nidos os caracteres com códigos ASCII 
entre 32 e 127 (a coluna da esquerda traz 
o código de cada caractere). 

Para calcular os bytes que devem ser 
modificados, multiplicamos o código do 
caractere por 8. Essa operagáo nos dá 
o endereço do primeiro byte do carac- 
tere que queremos redesenhar. Para o 
caractere de espaço (código ASCII 32), 
o resultado é 32 x 8 = 256. 

Agora que sabemos onde o byte es- 
tá, dentro do conjunto de caracteres, so- 
mamos esse número ao endereço que se 
encontra no apontador do conjunto de 
caracteres. Isso é calculado como PEEK 
23606 + 256*PEEK 23607 + 32*8. No 
Spectrum de 48K recém-ligado, o resul- 
tado será 64600. 

Depois de tudo isso, torna-se fácil 
fornecer os dados do novo caractere ao 
Spectrum. Usamos POKE para colocar 
oito bytes na memória a partir do ende- 
reço que acabamos de calcular. Esses 
bytes devem corresponder ao padrão do 
novo bloco. 

As linhas que se seguem redefinem o 
formato dos caracteres de espaço, fazen- 
do com que eles se tornem visíveis na 
listagem: 


10 FOR X=64600 TO 64600+7 

20 READ A 

30 POKE X,A 

40 NEXT X 

50 DATA 0,126,66,66,66,66,126 
‚0 


Se seu micro tem 16K, mude o núme- 
ro 64600 para 31832. Evidentemente, é 
uma boa idéia usar laços FOR...NEXT 


«S 


ee on мыса, 


para colocar bytes na memória, uma vez 
que o laço muda automaticamente o en- 
dereço e evita que escrevamos oito co- 
mandos POKE. 

Tente agora calcular o endereço ini- 
cial dos bytes correspondentes aos diver- 
sos caracteres numéricos: você poderá 
conferir o resultado examinando a lis- 
tagem do programa. 


US Spei iniri RES 


Já vimos como mudar o formato dos 
caracteres do MSX. Agora, vamos pro- 
curar esclarecer a organização da memó- 
ria de alta resolução (SCREEN 2) para 
que possamos criar blocos gráficos (à 
mão ou por meio do gerador de blocos). 
O artigo Os Comandos PEEK e POKE 
(página 261) apresenta uma introdução 
ao assunto, que deve ser revista. 

A tela do MSX tem 256 pontos de 
largura por 192 de altura. Cada um des- 
ses pontos pode estar aceso ou apaga- 
do, assumindo assim a cor de frente ou 
a cor de fundo, respectivamente. Exis- 
tem dezesseis cores disponíveis. No mo- 
do de alta resolução (SCREEN 2), es- 
ses pontos estão distribuídos por 768 
blocos gráficos de 8 x 8 pontos. Cada 
bloco gráfico definido pelo usuário po- 
de ocupar uma dessas 768 posições — 
ao contrário dos sprites, que podem 
ocupar qualquer posição. 

O padrão de cada uma dessas posi- 
ções (ou blocos) é definido da maneira 
usual, ou seja, cada linha de oito pon- 
tos corresponde a um número de oito 
bits ou um byte. Assim, cada posição 
precisa de oito bytes de memória. 

O MSX tem uma memória separada 
só para o vídeo: a memória VRAM. O 
comando SCREEN determina como es- 
sa memória será utilizada pelo micro. 
No modo de alta resolução — que ob- 
temos logo após acionar o comando 
SCREEN 2 dentro de um programa BA- 
SIC —, uma porção da VRAM é sepa- 
rada para armazenar os padrões de to- 
das as 768 posições da tela. Essa parte 
da VRAM é denominada tabela de pa- 
drões e tem seu endereço inicial (na 
VRAM) contido em BASE(12), que é 
uma variável interna do micro, Como 
cada posição — 8 x 8 pontos — da tela 
necessita de oito bytes, a tabela de pa- 
drões tem um comprimento igual a 768 
х 8 = 6144 bytes. Cada byte define o 
padrão de uma linha de bloco gráfico. 


Esse padrão, por sua vez, determina 
quais pontos estão acesos e quais pon- 
tos estão apagados. Para colorir os pon- 
tos, o computador precisa usar uma ou- 
tra área da VRAM, a tabela de cores, 
que tem endereço inicial armazenado em 
BASE(11). Cada linha de bloco gráfico 
pode ter apenas uma cor de frente (pon- 
tos acesos) e uma de fundo (pontos apa- 
gados). Assim, a cada linha de bloco 
gráfico — ou posição — da tela corres- 
ponde um byte de cor. O valor desse 
byte é igual ao código da cor de fundo 
mais 16 multiplicado pelo código da cor 
de frente. Como a tela tem 768 posições 
e cada posição oito linhas, a tabela de 
cores também tem 6144 bytes de com- 
primento. 

Quando quisermos colocar um blo- 
co gráfico em determinado ponto da te- 
la, devemos calcular as posições nas ta- 
belas de padrões e de cores correspon- 
dentes aos bytes que vamos alterar. Pa- 
ra conhecermos a posição na tabela de 
cor ou na de padrões do primeiro byte 
que coloca um bloco na tela, multipli- 
camos a posição desejada na tela por oi- 
to. Se quisermos colocar um bloco, di- 
gamos, na posição 25 da tela, temos que 
alterar oito bytes, a partir da posição 25 
x 8 = 200 na tabela de padrões e na de 
cores. O programa a seguir tenta ilus- 
trar o processo: 


5 P-367 

10 SCREEN 2 

20 FOR I=0 TO 7 

30 READ A(I) 

40 VPOKE BASE(12)*P*8*I,A(I) 

50 VPOKE BASE(11)*P*8*I,6*16*11 
60 NEXT I 

70 GOTO 70 

100 DATA 254,124,56,16,8,28,62, 
127 

Este programa desenha na posição 
367 da tela o bloco gráfico cujo padrão 
corresponde aos oito bytes da linha DA- 
TA 100. 

A linha 5 determina a posição P da 
tela onde será colocado o bloco gráfi- 
co. A linha 10 seleciona o modo de alta 
resolução. 

O comando VPOKE é utilizado para 
colocar valores na VRAM. Note como 
os endereços correspondentes ao padrão 
e à cor das linhas do bloco são cal- 
culados. Como são oito linhas, o laço 
FOR...NEXT será repetido oito vezes. 
Na linha 40, o endereço do primeiro 
bytea ser alterado na tabela de padrões 
é 8 multiplicado pela posição na tela P. 


Essa posição é contada na tabela a par- 
tir de seu endereço inicial na VRAM, da- 
do por BASE(12). A variável I, conta- 
dor do laço, faz com que oito posições 
consecutivas da VRAM sejam modifi- 
cadas. Por fim, o valor colocado na ta- 
bela de padrões é A(I), que foi lido com 
READ na linha 30. A cor de cada linha 
do bloco é determinada de forma seme- 
Ihante. O cálculo da posição é o mesmo, 
só que o valor obtido é contado a partir 
de BASE(11), endereço inicial da tabe- 
la de cores na VRAM. O byte de cor de- 
termina que a cor de frente seja verme- 
Iha (código 6) e a de fundo seja amare- 
la (código 11), na linha 50. 

A linha 70, por sua vez, evita que a 
tela seja apagada, já que o modo gráfi- 
co de alta resolução — SCREEN 2 — 
só permanece ativo enquanto o progra- 
ma estiver funcionando. 


O PROGRAMA GERADOR DE BLOCOS 


Se você já criou vários blocos gráfi- 
cos com o auxílio de nosso programa ge- 
rador, chegou o momento de usá-los. Se 
você ainda não usou o programa, o que 
vem a seguir pode parecer confuso. As- 
sim, para aproveitar bem as próximas 
linhas, é necessário que vocé tenha cria- 
do e guardado em fita todo um banco 
cheio de blocos gráficos criados pelo 
gerador. 

Uma vez gravado um banco conten- 
do 256 blocos, podemos recuperá-lo de 
duas maneiras: usando o próprio pro- 
grama gerador para fazer uma edicào, 
por exemplo, ou para retirá-lo direta- 
mente da memória do micro e usar os 
blocos em outro programa. Na segun- 
da hipótese, a primeira coisa a fazer é 
proteger uma área no topo da memória 
do micro, colocando ali o banco de blo- 
cos. Para isso, digite: 


CLEAR 200,&HC999 
Em seguida, posicione a fita e carre- 
gue o banco de blocos usando: 


BLOAD "CAS:" 


e o banco terá sido carregado. 

Para trazer o banco para a tela, use 
um programa BASIC: 
5 SCREEN 2 
10 FOR J=0 ТО 2%256%8 8ТЕР 256х 
в 


20 FOR I=0 TO 256*8-1 


Aliina b Rb REAA 





30 VPOKE BASE (12)+I+J, а 
00+1) 

40 ЧРОКЕ ВАЗЕ (11) +1+Ј, PEEK (LHEL 
00+1) 

50 МЕХТ І,Ј 

60 сото 60 


Depois de executar o programa, te- 
remos três cópias do banco de blocos 
que criamos anteriormente. Todos os 
blocos produzidos estarão lá. Se não ti- 
vermos armado um banco completo 
com 256 blocos, alguns blocos estranhos 





aparecerão, mas sem prejuízo dos que 
foram criados. Esses blocos exteriores 
correspondem a valores da memória que 
permaneceram inalterados quando cria- 
mos o banco e foram gravados junto 
com ele. No entanto, nada disso acon- 
tecerá se criarmos 256 blocos, preen- 
chendo inteiramente o espaço. 

A linha 5 ativa a tela de alta resolu- 
ção. A linha 10 se prepara para fazer 
três cópias do banco, repetindo três ve- 
zes as linhas de 20 a 40. O laço entre as 
linhas 30 e 40 será repetido 256 x 8 ve- 
zes — correspondente a 256 blocos com 
oito bytes cada um. 

A linha 30 transfere os padrões do 
banco — endereço inicial D100, em he- 
xa — para a tabela de padrões — ende- 
reco inicial BASE(12). A linha 40 trans- 
fere os bytes de cor do banco — ende- 
reco inicial E 100, em hexa — para a ta- 
bela de cores — endereço inicial BA- 
SE(11). Observe como esse processo é 
demorado. 

Como vemos, o banco de blocos cria- 
do pelo gerador consiste em uma ““ta- 
bela de padrões” — endereço inicial 
D100, hexadecimal — e uma “tabela de 
cores'* — endereço inicial E100. 

Obviamente, nem sempre desejamos 
transferir de uma só vez todo o banco 
para a tela, como no exemplo. Quando 
quisermos obter o padrão (ou a cor) de 
um bloco isolado que está no banco, te- 
remos que calcular onde se encontram 
os bytes correspondentes. Para isso, pre- 
cisamos saber qual a posição desse blo- 
co no banco (é necessário fazer uma lis- 
ta quando criarmos os blocos). Conhe- 
cendo esse valor, é possível calcular o 
endereço do primeiro byte do bloco, 
multiplicando sua posição por 8 e so- 
mando o resultado ao endereço inicial 
— D100 ou E100, conforme queiramos 
padrões ou cores. 


IA] 


Por esse método de trabalho com a 
tela de alta resolução, tudo o que foi co- 
locado nas tabelas de padrões e cores 
apareceu imediatamente na tela. Existe, 
porém, outra maneira de usar essas ta- 
belas: levando-as a funcionar como ban- 
cos de blocos gráficos, dos quais esco- 
lhemos apenas alguns para exibir de ca- 
da vez na tela. 

Para fazer isso, utilizamos a tabela de 
nomes — endereço inicial BASE (10), na 
VRAM. Essa tabela tem 768 bytes de 
comprimento — cada byte corresponde 


a uma posição (8 x 8 pontos) da tela. Ela ` 


permite que codifiquemos os blocos que 
estão na tabela de padrões com números 
de 0 a 255, como no banco do gerador. 


Para que o bloco de número 37, por 
exemplo, apareça na posição 170 da te- 
la, basta fazer com que o byte 170 da 
tabela de nomes seja igual a 37, usando 
VPOKE BASE(10) + 170,37, Essa or- 
ganização é semelhante à da tela de tex- 
tos, onde os padrões dos caracteres fi- 
cam numa tabela de padrões e uma ta- 
bela de nomes faz com que os caracte- 
res sejam impressos na tela codificados 
por seu código ASCII. 

Existem aqui dois problemas. Pri- 
meiro, só podem ser codificados 256 
blocos gráficos, enquanto o número 
de blocos nas tabelas de cor e padrão é 
três vezes maior. Esse problema é con- 
tornado com a criação de três bancos 
de blocos gráficos. Isso significa que 
os 256 primeiros blocos (256 x 8 bytes) 
das tabelas de cor e padrão têm seus có- 
digos válidos apenas para o terço supe- 
rior da tela. Do mesmo modo, o terço 
médio e o inferior contam com seus pró- 
prios bancos — respectivamente, no ter- 
ço médio e inferior das tabelas de cor 
e padrão. 

о segundo problema é que nem o 
próprio micro emprega esse tipo de or- 
ganização. Assim, se trabalharmos com 
a codificação descrita para criar telas 
gráficas, não poderemos recorrer a co- 
mandos como DRAW, LINE e PAINT. 
A forma de organização utilizada pelo 
computador é a mesma que faz com que 
cada byte colocado na tabela de padrões 
e de cores apareça na tela, possibilitan- 
do o modo de utilização que descreve- 
mos linhas atrás. 

Para entender melhor, veja os valo- 
res que o micro mantém normalmente 
na tabela de nomes: 


20 FOR I=0 TO 3*256-1 
30 PRINT I,VPEEK (BASE (10)+I) 
40 NEXT 


Este programa lista os valores conti- 
dos na tabela de nomes. Note que a po- 
sição | corresponde ao caractere 1, que 
é o primeiro da tabela de padrões e de 
cores; a posição 2 tem valor 2, corrés- 
pondente ao segundo bloco da tabela de 
padrões (e de cores), e assim por diante. 

Para familiarizar-se com a utilização 
da tabela de nomes, acrescente as pró- 
ximas linhas ao programa que carrega 
o banco criado pelo gerador. Ele só fun- 
cionará, contudo, se houver um banco 
de blocos no topo da memória. 


60 FOR I=0 TO 255 - 
70 FOR J=0 TO 3*256-1 

80 VPOKE BASE(10)*J.I 

90 NEXT J,I 

100 GOTO 100 


Este programa preenche toda a tabela 





















































de nomes com o mesmo valor. O códi- 
go de cada bloco é modificado pelo la- 
ço FOR...NEXT das linhas 60 a 90, de 
tal forma que, ao ser desenhado, cada 
um dos 256 blocos do banco ocupa a te- 
la inteira. 

Mais interessante ainda é fazer com 
que os blocos que estão na tela se movi 
mentem. Para tanto, você deve modifi- 
car a linha 80: 


80 VPOKE BASE(10)+J, (VPEEK (BASE 
(10) +Ј) +1)АМЮ 255 


O programa movimenta todos os blo- 
cos da tela mudando apenas os valores 
na tabela de nomes. Uma vez copiado 
o banco do alto da memória nas tabe- 
las de cor e padrão, seus valores não se 
modificam. A velocidade com que são 
movimentados os blocos é aproximada- 
mente dezesseis vezes maior que aquela 
com que eles são desenhados no início 
do programa, já que um VPOKE na ta- 
bela de nomes equivale a oito VPOKE 
na tabela de padrões e oito VPOKE na 
tabela de cor. 

Esta última modificação faz com que 
apenas o terço superior da tela seja mo- 
vimentado: 








70 FOR J=0 TO 255 


DEM НЕН 


O maior problema para a utiliza- 
ção de blocos gráficos no Apple e no 





ШІШІС ша. 


TK-2000 é a caótica organização da me- 
mória de vídeo desses computadores. 
Com efeito, na tela desses micros, as li- 
nhas consecutivas não têm números con- 
ѕесшіуоѕ е é necessário recorrer à ma- 
temática para contornar a dificuldade, 
o que torna parte do programa muito 
complicada para alguns. 

Nada melhor do que um exemplo em 
BASIC para ilustrar o problema: 


10 HGR 

20 FOR I = 8192 TO 16383 
30 POKE 1,255 

40 NEXT I 


Este programa coloca na tela peda- 
ços de linha, por intermédio de POKE. 
Embora os endereços da memória de vi- 
deo sejam consecutivos, as linhas pro- 
duzidas não o são. Ora, nossos blocos 
gráficos só serão desenhados se colocar- 
mos valores na memória de vídeo usan- 
do POKE. 

O problema pode ser resolvido pela 
dedução de uma fórmula matemática 
que permita calcular os oito endereços 
necessários para desenhar um bloco grá- 
fico em uma determinada posição. 


ESCREVA NA TELA DE ALTA RESOLUC; 


Para os usuários do TK-2000 o pro- 
grama a seguir pode parecer desneces- 
sário, pois esse micro é capaz de escre- 
ver textos na tela de alta resolução. En- 
tretanto, os usuários do Apple o acha- 
rão bem útil, 


10 HGR :E = 16384:T = 8192 
20 FORI =ETOE+9%*8B-1: 
READ B: POKE 1,B: NEXT 


30 DATA 28,34,38,42,50,34,28, 
0 

40 DATA 16,24,20,16,16,16,56, 
0 

50 DATA 28,34,32,24,4,2,62,0 
60 DATA 28,34,32,24,32,34,28, 
0 

70 DATA 16,24,20,18,62,16,16, 
0 

80 DATA 62,2,2,30,32,34,28,0 
90 DATA 28,34,2,30,34,34,28,0 
100 DATA 62,32,32,16,8,8,8,0 
110. DATA 28,34,34,28,34,34,28 
,0 

120 DATA 28,34,34,60,32,34,28 
‚0 

130 FOR Y = 0 TO 19: FOR X = 0 
TO 39:N = INT ( RND (1) * 9) 
140 FOR I - 0 TO 7 

150 POKE T * (Y - 8 * (Y > 7) 
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ee. 


- 8 * (Y > 15)) * 128 * 40 * (Y 
> 7) +40 * (Y > 15) + X + 102 
4 * I, PEEK (E * N * 8 * I) 
160 NEXT I,X,Y 

O programa começa ativando a tela 
de alta resolução e estabelecendo os va- 
lores de E, endereço inicial da página 2, 
e T, endereço inicial da página 1. Os 
usuários do TK-2000 devem mudar o va- 
lor de T para 40960. 

A linha 20 lê os valores contidos nas 
linhas DATA, criando parte de um ban- 
co de blocos. 

A linha 130 inicia um laço 
FOR...NEXT, onde Y é a linha e X a 
coluna em que serão impressos os nú- 
meros. N é o número que será impres- 
so, escolhido ao acaso. 

A parte mais importante do progra- 
ma é o FOR...NEXT das linhas 140 a 
160. Ela é responsável pelos oito co- 
mandos POKE que colocam o bloco na 
posição desejada. A fórmula a que nos 
referimos é a que está na linha 150. 

Este programa só escreve números. 
Ora, nosso objetivo é escrever todo ti- 
po de mensagem na tela gráfica, Para 
isso, precisamos criar (com o auxílio do 
gerador) um conjunto inteiro de carac- 
teres. Quando houver um banco de blo- 
cos com caracteres na página 2, pode- 
remos utilizar seus bytes para escrever 
na tela de alta resolução. 

Os usuários do TK-2000 devem ago- 
ra redefinir o conjunto de caracteres, 
criando seus próprios tipos gráficos. 

Para os que não se habituaram ao 
uso do gerador, o programa a seguir cria 
um banco de blocos contendo os carac- 
teres de código ASCII entre 32 e 95. 

Uma vez executado com sucesso, ele 
poderá ser apagado e todo o banco será 
visualizado e editado pelo gerador de 
blocos. Basta carregá-lo sem desligar o 
computador, 

As letras têm aqui posições corres- 
pondentes a seus códigos ASCII. 

10 HGR :E = 16384:T = 8192 
20 FOR I = E +.32 * 8 TO E + 3 
2 * 8 + 64 * 8 - 1: READ B: POK 


E I,B: NEXT 

100 DATA 0,0,0,0,0,0,0,0 

110 DATA 8,8,8,8,0,0,8,0 

120 DATA 18,18,18,0,0,0,0,0 
130 DATA 18,18,63,18,63,18,18 
‚0 

140 DATA 8 ,60 ,10 ,28 ,40 ,3 
0,8 ,0 

150 DATA 38,38,16,8,4,50,50,0 
160 DATA 12,18,18,12,82,34,92 
"0 






































сісі 





22. 


170 DATA 24,16,8,0,0,0,0,0 ‚64 sagem é impressa. O laço da linha 1010 
180 DATA 32,16,8,8,8,16,32,0 600 DATA 30,34,34,30,18,34,34 faz com que todas as letras sejam lidas, 
Mc uL P M cene O ie ООО o 
,8,42,28,28,42,8, ,2,2,28,32,32,30,0 qi “ э, 
210 DATA 0,8,8,62,8,8,0,0 620 DATA 62,8,8,8,8,8,8,0 Selo aboia da adeta Crie: 
220 DATA 0,0,0,0,0,24,16,8 630 DATA 34,34,34,34,34,34,28 к 
| „0 tar que a mensagem ultrapasse os limi- 
Í 230 DATA 0,0,0,62,0,0,0,0 640 DATA 34,34,34,34,34,20,8, tesdatela, “pulando” de linha. Obser- 
{ 240 DATA 0,0,0,0,0,24,24,0 0 ve que é N que é incrementado na linha 
250 DATA 64,32,16,8,4,2,1,0 650 DATA 65,65,65,73,85,99,65 1070 e que L e C têm seus novos valo- 
260 DATA 28,34,38,42,50,34,28 ,0 res calculados a partir de N, na linha 
‚0 660 DATA 34,34,20,8,20,34,34, 1040. 
270 DATA 16,24,20,16,16,16,56 0 As últimas linhas do programa fazem 
` o9 670 DATA -34,34,34,20,8,8,8,0 uma pequena moldura colorida para a 
280 DATA 28,34,32,24,4,2,62,0 mensagem, lembrando ao usuário que 
290 DATA 28,34,32,24,32,34,28 690 DATA oo se trata da tela gráfica. 
‚0 po a О 700 DATA 1,2,4,8,16,32,64,0 As letras apareceráo com cores alea- 
300 DATA 16,24,20,18,62,16,16 710 БАТА 30,16,16,16,16,16,30  lórias — geralmente tons de amarelo. Is- 
,0 ‚0 to é inevitável devido à maneira com que 
к 310 DATA 62,2,2,30,32,34,28,0 720 DATA 8,20,34,0,0,0,0,0 o Apple codifica as cores. 
320 DATA 28,34,2,30,34,34,28, 730 DATA 0,0,0,0,0,0,62,0 Para ver e editar os novos caracteres 
0 799 HGR usando o editor, apague o programa 
330 DATA 62,32,32,16,8,8,8,0 800765 = "ESTA MENSAGEM E' UM Т com NEW e carregue o gerador. Antes 
- de executá-lo, acrescente as próximas li- 
240 DATA 28,34,34, 28, 34,34,28 o O :L * 11: GOSUB 1000 nhas, que dào a ele uma nova função, 
350 DATA 28,34,34,60,32,34,28 1000 N - L * 40 +C disponível através de “M”. 
‚0 1010 FOR J = 1 TO LEN (A9) 
360 DATA 0,24,24,0,0,24,24,0 1020 BS = MIDS (AS,J,1) 195 IF K$ = °M” THEN GOSUB 21 
1030 B = ASC (B$) 10: GOTO 50 
370 DATA 0,24,24,0,0,24,16,8 1040 І = INT (N / 40):C = N - 
380 DATA 32,16,8,4,8,16,32,0 40 * L DIL Y uw 
390 DATA 0,0,0,62,0,62,0,0 1050 FOR I = 0 TO 7 
400 DATA 4,8,16,32,16,8,4,0 1060 POKE T + (L - 8 * (L > 7) 
410 DATA 28,34,32,16,8,8,0,8 - 8 * (L > 15)) * 128 + 40 * ( > i: = 
A шоу кайаш злу ош (ш D s a pun на 
0 24 * I, PEEK (E + B * 8 + I) O do 
430) DATA: 8,20,34,34,62,34,з34, 1070 ИБкт т: и+1: ийт С controle de hlocos Aráficos. Coma 
@ 1080 HCOLOR= 6 esse micro guarda os valores correspon- 
440 DATA 30,34,34,30,34,34,30 1090 HPLOT 25,80 TO 250,80 TO dentes ao padrão dos blocos dentro de 
‚0 250,105 ТО 26,105 ТО 26,80 matrizes, о único limite ao número de 
450 DATA 28,34,2,2,2,34,28,0 1100 RETURN blocos é o tamanho da memória. Isso 
460 DATA 30,34,34,34,34,34,30 significa que podemos criar tantos blo- 
К] A linha 10 estabelece as condições ini- cos quantos couberem em 32k. 
470 DATA 62,2,2,62,2,2,62,0 ciais. A linha 20 cuida de transferir pa- Ao contrário dos demais computado- 
480 DATA 62,2,2,30,2,2,2,0 ra a página 2 de vídeo os padrões dos res, o TRS-Color náo permite que mu- 
459 DATA 28,34,2,58,34,34,28. caracteres contidos nas linhas DATA. € o formato de seus caracteres da 
Note que sáo 64 caracteres, a partir da ROM — ou seja, os caracteres disponí- 
208 DATA 734734,2462,34,34,:4 posição 32, e cada caractere precisa de — veis por intermédio do teclado. Portan- 
510 DATA 24,8,8,8,8,8,28,0 oito bytes para ser definido. Com essas to, não podemos alterar os tipos com 
520 DATA 56.16,16,16,18,18,28 informações fica mais fácil entender os que são escritas as listagens e as mensa- 
‚0 números da linha. gens de erro. É possível, porém, produ- 
530 DATA 34,18,10,6,10,18,34, Para imprimir uma mensagem, utili- zir blocos gráficos que sejam ao mesmo 
0° za-se a sub-rotina que começa na linha tempo letras e dar a estas o formato que 
540 DATA 2,2,2,2,2,2,62,0 1000. Essa sub-rotina imprime na tela se quiser. 
3m DATA 65,99,85,73,65,65,65 gráfica o conteúdo da variável plana Um гаа para isso deveria ter 
: mérica AS. Para fazer isso, ela toma le- uma série de comandos IF INKEY$ = 
E DATA 34,38,42,42,50,34,34 tra por letra da variável, usando MIDS — "X" THEN..., um para cada letra, o 
570 DATA 28,34,34,34,34,34,28 Па linha 1020. Como o código ASCII da que o tornaria muito lento. Se você op- 
„0 letra é igual à sua posição no banco, fi- tar por uma operação dessas para alguns 
580 DATA 30,34,34,30,2,2,2,0 ca fácil para a linha 1060 imprimir a le- caracteres, empregue o comando 
tra correspondente. C e L são respecti- PMODEI e as linhas DATA do progra- 
590 DATA 28,34,34,34,42,50,60 vamente a linha e a coluna onde a men- та do Spectrum. 
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UM COMPACTADOR 
DE PROGRAMAS 










tar um programa em BA- PULS D,X,U 900 RTS çi 
SIC, é conveniente colocar espaços em 290 LEAX -1,Х 910 END w 
branco entre os comandos, as variáveis 200 PER A UN 1 
€ os dados, para tornar mais fácil a lei- 
tura das linhas. SU 9 a PCR р 
Necessárias рага nossa própria orien- 340 EORB 41 ' р 
tação, as linhas REM são especialmen- 350 STB ICOM,PCR A primeira instrução LDU 25 carre- d 
te importantes quando estamos depu- 360 BRA LTWO ga o registro U com o conteúdo das po- 
rando o programa. O problema é que os 370 LTWE CMPA 4134 sições 25 e 26 da memória. Estas con- р 
espaços entre as palavras e as linhas 380 ВМЕ 181Х tém o valor de uma variável do sistema ү b 
REM diminuem a velocidade de execu- 390 LDA -2,X que corresponde ao endereço inicial do c 
ção do programa e ocupam um grande 05 PD programa em BASIC. LDD 27 carrega с 
espaço na memória. 420 LDB ICOM,PCR o registro D com o conteúdo das posi- n 


Quando o programa está funcionan- 430 EoRB #2 
do bem e desejamos obter um máximo 440 STB ICOM,PCR 
de rendimento, temos que apagar todas 450 BRA LTWO 
essas linhas e espaços. Isso, porém, exi- 460 LSIX CMPA 4130 
ge muito esforço e, o que é pior, pode 470 BEQ LSEV 
introduzir novos erros no programa. 480 СМРА 4131 

O programa em código de máquina 490 BNE LTWO 
que apresentamos aqui faz todo esse tra- 500 LSEV LDA -2,X 
balho para você. Uma vez que seu pro- 510 СМРА 4255 
grama esteja funcionando, execute a ro- 520 BEQ LTWO 


tina em código para compactá-lo. 530 LDD ,U 
540 LEAX -1,X 


550 PSHS X,U 
Soo oo ++ 
š 570 TFR X,Y 
A seguir, apresentamos um compac- 580 LDX ¿U 
tador de programas para o TRS-Color. 590 LEAX -1,X 


Caso você use o monitor, e não o As- 600 PSHS D,X 

















































sembler, o endereço inicial é 30000. 610 TFR Y,D 
620 SUBD 4,8 
10 ORG 30000 630 CMPB #4 
20 LDU 25 640 BNE LNIN 
30 LDD 27 650 PULS D 
40 PSHS D 660 ADDD 44 
50 BRA LONE 670 PSHS D 
60 LTWO LDA ,X* 680 LNIN BSR SHIFT 
70 BNE LTHR 690 PULS D,X,U 
80 LDU ,U 700 LBRA LONE Pe 
90 LONE CLR ICOM,PCR 710 ІСОМ ЕСВ 0 » “S 
100 LDD ,U 720 SHIFT LDD ,U uS 272 
110 BNE LFOU 730 BEQ SHTWO Y 5 
120 LDX 27 740 LDX ,U 7 
130 STX 29 750 SUBD 2,8 
140 STX 31 760 STD ,U 
150 PULS D 770 TFR X,U 
160 SUBD 27 780 BRA SHIFT 
170 JSR $B4F4 790 SHTWO LDD 4,5 
180 RTS 800 SUBD 2,8 
190 LFOU LEAX 4,U 810 TFR D,U 
200 BRA LTWO 820 LDX 4,8 E 
210 LTHR CMPA 432 830 SHTHR LDA ,X* 
220 BNE LFIV 840 STA ,U* 
230 TST ICOM,PCR 850 СМРХ 27 


240 BNE LTWO 860 BLO SHTHR 
250 LDD 41 870 LDD 27 

260 PSHS D,X,U 880 SUBD 2,S 
BSR SHIFT STD 27 











Do 20 CÓDIGODEMAQUINA DO 


Ш LOCALIZE OS COMANDOS REM 


Apague as linhas REM e os espaços 
inúteis, tornando seus 

programas em BASIC mais rápidos 
e econômicos. Existe um 

programa em código para isso. 


ções 27 e 28, que contêm igualmente o 
valor de uma variável do sistema. Des- 
ta vez, porém, trata-se de um aponta- 
dor, que indica o endereço da primeira 
posição livre da memória, após o fim do 
programa em BASIC. Seu valor é guar- 
dado na pilha por PSHS D. 

Mais adiante, durante a execução do 
programa, será calculado o número de 
bytes economizado pelo processo de 
compressão. Assim, é preciso que o 
computador saiba onde o antigo progra- 
ma em BASIC termina. A instrução 





BRA (BRanch Always, ou “desvie sem- 
pre”) transfere a execução para o meio 
da sub-rotina seguinte, no rótulo 
LONE. 


USAR SINALIZADORE: 


A linha CLR ICOM, PCR limpa a 
área de armazenamento formada pela 
instrução FCBO que se segue ao rótulo 
ICOM. O comando PCR (Programa 
Counter Relative) faz com que o ende- 
reçamento utilizado possibilite a realo- 








E OS ESPAÇOS 

COMO USAR SINALIZADORES 

COMO COMPRIMIR UM 
PROGRAMA NA MEMÓRIA 





cação do programa quando necessário. 
FCB (Form Constant Byte) reserva 
um byte para a armazenagem de dados. 
Qualquer tipo de dado pode ser guarda- 
do ali, mas, no nosso caso, armazena- 
remos um par de indicadores que o pro- 
grama usará para saber se está manipu- 
lando uma variável alfanumérica. Quan- 
do se tratar de um cordão, os espaços 
em branco não devem ser apagados. 
Não é conveniente também que as pa- 
lavras que o BASIC escreve na tela apa- 
reçam juntas. Os bits da posição de me- 
mória rotulada como ICOM serão usa- 
dos como sinalizadores, do mesmo mo- 
do que é feito no registro indicador de 
condições. Os indicadores serão estabe- 
lecidos (ou ligados) quando o programa 
encontrar uma variável alfanumérica, 
voltando a valer zero quando o progra- 
ma estiver cuidando de outras expres- 
sões. Desse modo, ao fazer a compac- 
tação, podemos verificar os bits de 
ICOM para saber como proceder. 
Existe uma instrução parecida com 
FCB. É FDB (Form Double Byte) que 
reserva dois bytes para colocar dados. 
O 0 após FCB coloca inicialmente 00 
nesse byte (se o O for colocado após 
FDB, os dois bytes reservados recebe- 
rão 00 00). CLR ICOM, PCR limpa o 
conteúdo do byte a cada linha. 


COMO ATUALIZAR OS APONTADORES 


LDD,U coloca no registro D o con- 
teúdo do endereço contido em U. Em 
outras palavras, ele posiciona os dois 
primeiros bytes do programa em D. 

Os dois primeiros bytes de um pro- 
grama em BASIC correspondem ao en- 
dereço do início da linha seguinte, Quan- 
do esses dois bytes forem 00 00, chega- 
mos ao final do programa. BNE (des- 
vio, se diferente de zero) verifica essa 
condição. Enquanto não se tratar do fi- 
nal do programa, esses dois bytes serão 
diferentes de 00 00, e o desvio não será 
realizado. LDX coloca o conteúdo das 
posições de memória 27 e 28 no regis- 
tro X. Essas posiçóes contëm o endere- 
ço do início da ““área das variáveis”,isto 
é, o primeiro byte livre depois do pro- 
grama BASIC. 

Esse apontador será atualizado repe- 





























tidas vezes à medida que o programa for 
comprimido. STX 29 e STX 31 colocam 
esse endereço nas posições 29 e 30, e 31 
e 32. Esses dois apontadores são variá- 
veis do sistema que correspondem ao en- 
dereço inicial da tabela de apontadores 
das matrizes e ao endereço final da 
“área” do BASIC, As variáveis serão 
definidas e as matrizes montadas somen- 
te quando o BASIC for executado. As- 
sim, aquelas duas variáveis do sistema 
devem ficar apontando para o endere- 
ço do primeiro byte livre após o final do 
programa em BASIC, enquanto este é 
compactado. 


ESCREVA NA TELA 


O valor contido no apontador do fi- 
nal da área BASIC (colocado na pilha 
quando o programa ainda tinha o tama- 
nho original, no início da rotina em có- 
digo) é recuperado da pilha. Em segui- 
da, o valor que ficar no apontador após 
a compressão do programa será subtraí- 
do daquele que acaba de voltar da pi- 
lha e o resultado, armazenado em D. 

JSR $B4F4 transfere o programa pa- 
ra uma sub-rotina da ROM que toma o 
valor do registro D, converte-o em de- 
cimal e o imprime na tela. Como pode- 
mos observar, o registro D contém o nú- 
mero de bytes economizados pela com- 
pressão do programa. Quando о ргосеѕ- 
so terminar, a economia de espaço será 
impressa na tela. RTS retorna ao 
BASIC. 


COMO PERCORRER A MEMÓRIA 


Se o programa compactador náo che- 
gar ao final do programa em BASIC, 
BNE LFOU enviará este último para a 
próxima ocorréncia do rótulo LFOU. O 
comando LEA significa “carregar o en- 
dereço efetivo“ (Load Efective Adress). 
Neste caso, ele opera sobre o registro X. 
LEA X 4,U toma o endereço em U, so- 
ma 4 e coloca o resultado em X. Os dois 
primeiros bytes de qualquer linha BA- 
SIC são o endereço inicial da linha se- 
guinte; os dois bytes imediatamente pos- 
teriores contêm o número da linha. Des- 
te modo, a instrução move o micropro- 
cessador para o início dos códigos do 
BASIC. Em seguida, o programa vai pa- 
ra o rótulo LTWO. 

LDA,X + coloca o primeiro byte do 
BASIC no acumulador. O sinal “+” 
significa que o registro X é incrementa- 
do após a execução da instrução. Isso 
faz com que o valor contido em X cor- 
responda ao byte seguinte do programa. 

BNE LTHR desviará para o rótulo 
LTHR se o conteúdo do acumulador 


nào for zero. Um byte igual a 0 (zero) 
corresponde ao final da linha BASIC. 
Quando o programa chegar ao fim da 
linha, o desvio não ocorrerá e o conteú- 
do da memória cujo endereço está em 
U será colocado no registro U por LDU, 
U. No início, o conteúdo da variável do 
sistema que aponta para o começo do 
BASIC foi colocado em U. No TRS- 
Color, os dois primeiros bytes de uma 
linha correspondem ao enderego da li- 
nha seguinte. Cada vez que o programa 
em código chega ao fim de uma linha 
BASIC, o registro U é atualizado de mo- 
do a corresponder ao enderego inicial da 
próxima linha. A seguir, é realizado o 
comando de limpeza CLR. 


CUIDE DOS ESPAÇOS 


Se ainda não se trata do final de uma 
linha BASIC, ocorre desvio e o coman- 
do CMPA +32 verifica se o byte colo- 


cado no acumulador corresponde a um 
espaço. O código ASCII do caractere de 
espaço é 32. Caso se trate de um espa- 
ço, o valor do acumulador será iguala- 
do a 0 (zero) pelo comando CMPA 432, 
de forma que a instrução de desvio BNE 
LF,V não será executada. 

TST ICOM,PCR verifica o estado da 
posição de memória rotulada como 
ICOM. Se qualquer um dos bits indica- 
dores em ICOM valer 1, é sinal de que 
se trata de um cordão, de modo que o 
espaço não deve ser eliminado e BNE 
LTWO voltará ao início do programa. 
Caso o espaço esteja entre dois coman- 
dos BASIC, o processador passará pa- 
ra a próxima instrução: LDD #1. 





COMO USAR A PILHA 


LDD #1 coloca 1 no registro D. 
PSHSD,X;U transporta o conteúdo des- 
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ses registros para a pilha da máquina. 
Pode parecer desnecessário pôr o regis- 
tro D na pilha, já que sabemos que ele 
contém 1; contudo, a instrução seguin- 
te, BSR SHIFT, desvia para a sub- 
rotina SHIFT. Esta desloca o progra- 
ma aproveitando o espaço deixado pe- 
los caracteres apagados. Ela é usada 
quando apagamos espaços — apenas 
um byte — e quando apagamos linhas 
REM — vários bytes. O valor do regis- 
tro D corresponde ao número de bytes 
apagados e é usado pela sub-rotina. No 
caso de uma linha REM, esse valor po- 
de chegar a 255 bytes. 

Usamos um comando de salto relati- 
vo, BSR, em vez de um de salto absolu- 
to, JSR, de maneira que o programa se- 
ja realocável na memória. O comando 
JSR é mais adequado quando usamos 
sub-rotinas de ROM, que são fixas. 

Depois que a rotina na SHIFT for 
executada, os valores de D,X e U serão 
recuperados por PULS D,X,U. Note que 
D, X e U são especificados na mesma 
ordem em que estão guardados na pilha. 

Não importa a ordem em que defini- 
mos os registros. O microprocessador 
tem uma ordem pré-determinada para 
guardar e recuperar grupos de registros. 
A ordem de armazenamento é: byte me- 
nos significativo do registro PC; byte 
mais significativo de PC; bytes de S ou 
U, na mesma ordem baixo-alto; Y, X, 
DP, A, Be CC. A ordem de recupera- 
ção é a inversa: CC primeiro, PC por 
último. 

Os registros U e S são os apontado- 
res das duas pilhas — U para a pilha do 
usuário e S para a pilha da máquina. 
Obviamente, não podemos colocar o va- 
lor de um apontador dentro de sua pró- 
pria pilha, nem podemos recuperar um 
valor da pilha, colocando-o dentro de 
seu apontador. Este é o motivo de ter- 
mos colocado U ou S na ordem anterior. 
A própria instrução informa de que pi- 
lha se trata. PSHS usa a pilha de má- 
quina e PSHU e PULU, a pilha do 
usuário. 

LEAX —1,X decrementa o registro 
X, subtraindo 1 de seu conteúdo. Isso 
é feito porque o programa acaba de ser 
deslocado um byte para baixo na memó- 
ria. X é o apontador da posição em que 
nos encontramos dentro da listagem 
BASIC. Ele apontava para o espaço que 
foi apagado, mas o byte seguinte da li- 
nha acaba de ser transferido para o mes- 
mo local. Para considerar esse byte, te- 
mos que examinar a posição de memó- 
ria novamente, em vez de observarmos 
o byte seguinte. Quando BRA LTWO 
volta ao princípio novamente, a primei- 
ra instrução incrementa o registro X, 
mudando para o próximo byte. 


PROCURAR CORDÕES 


Se o programa não encontrar um ca- 
ractere de espaço na instrução CMPA 
*32, a instrução BNE LFIV desviará 
para uma pequena rotina que procura 
aspas. CMPA 34 compara o conteú- 
do do acumulador com o código ASCII 
das aspas. Se um caractere de aspas for 
encontrado, CMPA 34 resultará O; as- 
sim, a condição necessária à execução 
de BNE LTWE nào será satisfeita e LDB 
ICOM, PCR carregará o registro B com 
o conteúdo da posição de memória on- 
de os sinalizadores foram guardados. 

EORB 1 executa a operação lógica 
“ou exclusivo” entre Be 1, Essa opera- 
ção existe também em BASIC. STB 
ICOM, PCR coloca o resultado de vol- 
ta no byte de sinalizadores; -o bit zero 
é ativado como sinal de que um carac- 
tere de aspas foi encontrado. Se esse bit 
ICOM já era igual a 1, EORB # 1 retor- 
nará o valor 0: se o bit era 0, o resulta- 
do será 1. Assim, se o bit zero estava li- 
gado, essa operação o desligará. Caso 
contrário, ela o ligará. 
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DAS ASPAS 


Se observarmos agora como as aspas 
envolvem as mensagens dentro de um 
programa, veremos que um cordão co- 
meça depois de um número ímpar de as- 
pas e termina após um número par. Al- 
ternando o bit zero do byte de sinaliza- 
dores toda vez que um caractere de as- 
pas for encontrado, o comando EOR 
deixará o bit valendo 1 após um núme- 
ro ímpar de aspas e O após um número 
par. O sinalizador ligado indica, portan- 
to, que o programa se encontra em um 
cordão; desligado, ele revela que não se 
trata de um cordão. Esta é exatamente 
a condição que é testada por TST 
ICOM, PCT seguido de BNE LTWO. 

Uma vez alterada a condição do si- 
nalizador de aspas, BRA LTWO retor- 
na ao princípio novamente, passando ao 
próximo byte da listagem BASIC, 

Se o byte não estivesse entre aspas, 
a condição necessária de BNE LTWE te- 
ria sido satisfeita, e o programa prosse- 
guiria com novas verificações. 


РВОСОВАМ ІМНА5 ОАТА 


As linhas DATA podem conter cor- 
dões; de forma que é melhor não 
comprimi-las também. 

A instrução CMPA * 134 verifica se 
o byte no acumulador é o código do co- 


mando DATA, Caso seja, a condição 
necessária de BNE LSIX não será sa- 
tisfeita. 

Contudo, há outra situação em que 
o código 134 pode aparecer. A função 
LOG tem o código FF 86, em hexadeci- 
mal, ou 255 seguido de 134, em decimal. 
Assim, é preciso verificar se o byte an- 
terior não 6 255. 

Como você deve estar lembrado, 
LDA ,X + incrementa o registro X após 
colocar nele o valor do acumulador. 
Desse modo, o registro X aponta agora 
para o byte posterior ao que está sendo 
considerado. Para verificar o byte an- 
terior, o acumulador deve ser carrega- 
do com o conteúdo da memória cujo en- 
dereço é o resultado de X menos 2. А 
instrução LDA —2,X faz isso. 

O comando CMPA 4255 verifica 
então se o byte anterior é 255. Se FF for 
encontrado, BEQ LTWO retornará ao 
princípio. 

Se FF não for encontrado, isso sig- 
nifica que $86 é o código de um coman- 
do DATA e que, portanto , um sinali- 
zador em ICOM deve ser ativado. Ob- 
viamente, não se trata do bit zero, que 
conta as aspas. 

Assim, a instrução LDB ICOM, PCR 
coloca o valor de ICOM em B. Por sua 
vez, EORB 42 realiza um “ou exclusi- 
он (XOR) entre B e 2. Isso ativa o bit 

ois. 


COMO PROCURAR LINHAS REM 


CMPA 4130 verifica se o próximo 
byte é o código de uma instrução REM. 
Se for, BEQ LSEV levará o micropro- 
cessador ao rótulo LSEV. Se não for, 
СМРА #131 verificará se o byte é um 
apóstrofo que funciona como REM. 

Se, ao contrário, nenhum desses có- 
digos for encontrado, a instrução BNE 
LTWO voltará ao princípio, passando 
ao próximo byte. 

Caso um desses sinais seja encontra- 
do, o programa deve verificar se não se 
trata de outras funções, cujos códigos 
são precedidos de FF. Isto é feito pelas 
três instruções seguintes: LDA —2,X, 
CMPA 4255 e BEQ LTWO. 

Depois disso, o registro D é carrega- 
do com o valor de U, que corresponde 
ao endereço da próxima linha BASIC. 

Por seu turno, a instrução LEAX 
— 1,X decrementa o registro X, fazen- 
do com que o apontador indique a po- 
sição do comando REM ou do apósto- 
fro (nosso objetivo é apagar o trecho 
que vai desse ponto até o fim da linha). 
A seguir, PSHS guarda X e U na pilha 
e SUBD ,S ++ subtrai o valor dos dois 
últimos bytes da pilha do registro D; o 
resultado é colocado em D mesmo. A 











instrução também incrementa em duas 
vezes o apontador da pilha. 

Como você já deve saber, o conteú- 
do de U é guardado antes de X na pi- 
lha. SUBD ,S++ subtrai do valor de 
D a última coisa que foi guardada na pi- 
lha da máquina. 

O sinal “++” após S incrementa o 
registro S (apontador da pilha da má- 
quina) em duas vezes, ou seja, soma 2 
a ele. Isso retira o valor de X — dois 
bytes — da pilha. 

TFR X, Y transfere (copia) o conteú- 
do de X para Y. O registro Y não é usa- 
do para mais nada nesse programa, ser- 
vindo apenas como um registro tempo- 
rário para guardar o valor de X 

LDX ,U coloca o valor de U em X. 
U contém o endereço inicial da próxi- 
ma linha. LEAX — 1,X decrementa es- 
se valor, de modo a fazê-lo correspon- 
der ao endereço final da linha atual, 
PSHS D,X guarda o conteúdo desses re- 
gistros na pilha para que possam ser usa- 
dos pela rotina SHIFT. 

. TFR Y,D transfere para D o valor de 
Y. Assim, a posição do código da ins- 
trução REM está agora em D. SUBD 
4,S subtrai de D o valor corresponden- 
te aos dois bytes que se encontram a par- 
tir do quinto byte da pilha. (S aponta 
para o primeiro byte da pilha. A expres- 
são 4,S soma 4 a S, de forma que este 
passa a apontar para o quinto byte). Ob- 
serve o que foi feito antes: esse valor é 
o antigo conteúdo do registro U, ende- 
reço inicial da próxima linha do progra- 
ma BASIC. 

Isso significa que o endereço inicial 
da linha é subtraído do endereço do có- 
digo da instrução REM. O resultado nos 
dá o número de bytes entre o início da 
linha e a instrução. O que precisamos sa- 
ber ése a instrução REM está no come- 
ço ou no meio da linha. No primeiro ca- 
so, podemos apagar também o número 
da linha. Isso é verificado por CMPB 
#4. 

Se a instrução REM não estiver no 
começo da linha, BNE LNIN irá dire- 
tamente à instrução que chama a sub- 
rotina SHIFT. Contudo, se a REM es- 
tiver no início da linha, o resultado da 
operação será 4 e o último valor colo- 
cado na pilha será recuperado no regis- 
tro D por PULS D. Soma-se 4 a D para 
que os quatro bytes iniciais da linha 
REM — correspondentes ao endereço 
inicial da linha seguinte e ao número da 
linha — também sejam apagados no 
processo de compressão. Finalmente, o 
conteúdo de D é devolvido à pilha. 

A sub-rotina SHIFT é chamada por 
BSRSHIFT e o conteúdo original dos 
registros é recuperado da pilha. LBRA 
LONE volta ao início do programa. 


Um desvio longo — Long BRAnch 
— é usado porque o salto é maior que 
128 bytes. 





O comando LDD ,U coloca em D o 
conteúdo do endereço apontado por U 
— em outras palavras, D vai conter o 
endereço inicial da próxima linha do 
programa em BASIC. Se esse valor for 
zero, teremos chegado ao fim do pro- 
grama e a instrução BEQ LTWO sairá 
do laço principal do programa. 

Se não se tratar do fim do programa 
em BASIC, o mesmo valor será coloca- 
do em X por LDX ,U. O valor corres- 
pondente aos dois bytes localizados a 
partir do terceiro byte da pilha será en- 
tão subtraído por SUBD 2,5 до епдеге- 
ço em D (endereço inicial da próxima 
linha). 

Por outro lado, devemos ter em men- 
te que estamos no meio de uma sub- 
rotina e os dois bytes correspondentes 
ao endereço de retorno da sub-rotina fo- 
ram colocados na pilha da máquina — 
daí a necessidade do 2,8. 

O resultado dessa operação é o ende- 
reço inicial que a próxima linha BASIC 
ocupará, uma vez feita a compressão. 
Ela é colocada na posição de memória 
apontada por U, que corresponde aos 
dois primeiros bytes da linha BASIC. 
Estes, por sua vez, indicam o endereço 
da próxima linha. Em outras palavras, 
estamos fazendo com que esse valor 
coincida com as mudanças de endereço 
causadas pela compressão. 

O valor de X que corresponde ao en- 
dereço inicial antigo é colocado em U e 
BRA SHIFT volta novamente ao início 
da sub-rotina SHIFT. 

A única saída desse laço é o BEQ, 
que só será executado quando todo o 
programa BASIC tiver passado por es- 
se tipo de modificação. Quando a pre- 
paração for finalmente completada, po- 
demos comprimir nosso programa. РС 
comando LDD 4,5 transporta para D o 
valor de X guardado na pilha, isto é, ele 
coloca o endereço final da linha atual se 
estivermos eliminando um comentário 
REM, ou a posição atual na linha, caso 
estejamos eliminando um espaço. 

SUBD 2,8 subtrai o número de bytes 
que serão eliminados. 

O resultado é a posição que o próxi- 
mo byte da linha deve ocupar; ele é co- 
locado em U pela instrução TFR D,U. 

LDX 4,S recupera outra vez o anti- 
go valor de X guardado na pilha. As- 
sim, o enderego antigo do próximo byte 
está em X e o novo em U 


LDA ,X+ coloca o byte apontado 
por X em A e incrementa o valor de X. 
STA ,U + põe o mesmo valor na posi- 
ção de memória apontada por U e in- 
crementa o valor de U. Assim, o próxi- 
mo byte do programa nào comprimido 
é transferido para sua nova posição, no 
programa comprimido. Além disso, os 
dois apontadores X e U são incremen- 
tados para que apontem para o próxi- 
mo byte e para a próxima posição. 

CMPX #27 compara o conteúdo de 
X com o conteúdo da variável do siste- 
ma que fica nos endereços 27 e 28. Ela 
corresponde ao endereço inicial da área 
das variáveis, que deve ficar logo acima 
do final do programa em BASIC. Essa 
instrução verifica se chegamos ao final 
da listagem. Se isto ainda não aconte- 
ceu, BLO — desvio se for menor — des- 
viará para o rótulo SHTHR, continuan- 
do a compressão. 

Quando todo o programa tiver sido 
comprimido, o microprocessador execu- 
tará LDD 27. Essa instrução coloca o 
apontador do final do programa no re- 
gistro D. SUB 2,S subtrai o número de 
bytes eliminados e STD 27 coloca o 
apontador atualizado de volta em seu lu- 
gar. RTS retorna à rotina principal. 


USAR O PRESSOR 


Esse programa pode ser montado 
com qualquer endereço inicial, desde 
que o local tenha sido protegido. Depois 
de gravar o programa-fonte e montar o 
compressor, podemos usar NEW para 
eliminar o Assembler e então carregar 
o programa que vamos compactar. Pa- 
ra executar a compressão, use: 


DEF USRO = endereço inicial 


onde o endereço inicial é a origem. De- 
pois, digite: 
PRINT USRO (0) 


Devemos, contudo, ser muito cuida- 
dosos. Não será possível editar o pro- 
grama depois da compressão; portanto, 
ele deve ter sido exaustivamente testa- 
do. Muita atenção com os comandos 
GOTO e GOSUB que se referiam a li- 
nhas REM: eles devem ser mudados. 

Para gravar o compressor em códi- 
go, digite: 


CSAVEM "CMPRSS” endereço 
inicial, endereço final, 
endereço inicial 


Para carregar o programa de volta, 
use: 


CLOADM "CMPRSS" 
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NJUN DE Wi QUANDO USAR BLOCOS GRÁFICOS 
Ш COMOCOMBINAR BLOCOS 

PARA FORMAR FIGURAS 

CRIACAO DE UM CENÁRIO 


BLOCOS GRÁFICOS (2) es 








Com um conjunto de blocos gráficos, 
será fácil criar as mais diversas 
figuras. Vocé precisará apenas colocar 
os blocos na posição correta e 
acrescentar alguns detalhes ao fundo. 







































Já falamos bastante sobre a criaçã 
proteção, edição e gravação de co: 
tos de blocos definidos pelo usuário. 
Mostramos também ao usuário do Spec- 
trum como exceder o limite de 21 blo- 
cos inicialmente imposto. Neste artigo, 
o segundo de uma série de três, avança- 
mos as explicações sobre o uso de blo- 
cos gráficos na criação de figuras na te- 
la de seu microcomputador. 


MASAS 


Suponhamos que vocé queira criar 
uma tela representando uma floresta — 
para servir de cenário a um jogo de 
ação, por exemplo. Existem basicamen- 
te dois caminhos a seguir: usar os co- 
mandos gráficos do BÁSIC para dese- 
nhar cada рахе da ше ou, então, 
combinar blocos gráficos. 

Se você escolher a primeira alternati- 
va, terá um trabalho enorme para criar 
a mata que faz parte do cenário, pois рге- 
cisará desenhar cada tronco e cada copa 
de árvore, Além disso, as árvores ficarão 
muito parecidas umas com as outras. 

Se você criar um bloco gráfico, ou 
vários deles que, combinados, formem 
uma árvore, poderá colocá-los na tela, 
repetidas vezes, nas posições que quiser. 
Você evitará, desse modo, o trabalho de 
























especificar cada detalhe ao acrescentar 
mais uma árvore na tela. 

Existem ainda outras vantagens no 
uso de UDG. Uma delas é a economia 
de tempo. Os desenhos compostos por 
blocos gráficos, não importa se mais ou 
menos complicados, são traçados na tela 
numa velocidade maior que os produ- 
zidos com comandos gráficos do BA- 
SIC. Assim, se compusermos uma figu- 
ra com blocos gráficos, teremos que es- 
perar bem menos tempo por sua apari- 
ção na tela. 


LIBERDADE DE ESCOLH 


Outra vantagem é a facilidade de va- 
riar o tamanho e a forma da figura. No 
desenho da floresta, por exemplo, po- 
deríamos mudar o tamanho de uma ár- 
vore aumentando ou diminuindo o nú- 
mero de “blocos de tronco” e, ainda, 
alterar sua copa usando uma combina- 
ção diferente de “blocos de folhagem”. 
Os comandos gráficos do BASIC podem 
fazer a mesma coisa, mas, com os blo- 
cos, a tarefa é bem mais fácil. 

Uma vez criados, баз gráficos 
rene na memória até serem mo- 

- dificados — ou o micro ser desligado. 
No caso do Spectrum, se dispusermos 
de vários bancos, precisaremos “ligar” 


| .. 0 banco que estiver sendo usado naquele 


“momento. Mas isto é só uma questão de 
“modificar o apontador de UDG. 

(08, assim, usar os blocos que 
criamos quantas vezes quisermos dentro 


deum : 0 único limite é a me- 
om V demum nosso exemplo, se- 


іо fácil criar uma floresta quanto 
\ árvore, utilizando UDG. 


emos que definir todos 

ao gerador ou di- 

DATA. Vale lem- 

que, usando comandos 

os ainda E аы, 
em é a ocupação 

memória do micro pa- 


ra guardar os blocos e, pior, a menos que 
sejamos cuidadosos, acabamos fazendo-o 
duas vezes. No próximo artigo, veremos 
como contornar o problema. 


JANDO VALE A PENA USAR UDG 


Por todas estas razões, é mais vanta- 
joso usar blocos gráficos em certas fi- 
guras do que em outras. 

Como regra geral, se o cenário inclui 
uma série de objetos semelhantes, dese- 
nhados várias vezes, ou se algum tipo de 
figura aparece repetidamente no decor- 
rer do programa, o uso de UDG vai nos 
poupar tempo e trabalho. 

Se, por outro lado, queremos um de- 
senho muito detalhado, que usaremos 
apenas uma vez durante o programa, 
pode ser melhor ficarmos com os co- 
mandos gráficos do BASIC. 

Uma parede de tijolos, por exemplo, 
poderá ser desenhada com muito mais 
facilidade se utilizarmos um ou vários 
blocos repetidas vezes. Uma alternativa 
seria tragar diversas linhas sobre uma re- 
giáo colorida para imitar os espagos en- 
tre os tijolos. 

No nosso cenário de floresta, já vi- 
mos que podemos fazer uma boa èco- 
nomia de tempo criando UDG para as 
árvores que nele aparecem. Os animais 
também podem ser desenhados com blo- 
cos gráficos, principalmente se formos 
utilizá-los novamente no decorrer do 
programa, ou se quisermos animá-los ou 
desenhá-los várias vezes. 


— Es 


UMA FLORESTA NA TELA V 


Apresentaremos a seguir alguns pro- , 
gramas que criam os caracteres para 4е-? 
senhar o cenário já mencionado. 

As linhas DATA para o Spectrumye 
o MSX são as mesmas. Elas começam” 
na linha 1300 e estão listadas logo'após 
o programa do MSX. 


= 


10 CLEAR 63500 
110 POKE 23676,255 
120 FOR n=USR "а" 
: READ a: POKE n,a: 
260 POKE 23676,249 ‚4 
270 FOR n=USR "a^ TO USR “m"+7 | 

: READ a: POKE n,a: NEXT n 

290 РОКЕ 23676,248 

300 FOR n-USR "a" TO USR "o"47 

: READ a: POKE n,a: NEXT n 

410 BORDER 1: PAPER B: CLS 

420 FOR n-1 TO PRINT PAPER 
5;" "iTAB 31;" NEXT n 

430 FOR n*1 TO 14: PRINT 

PAPER 4;" ";TAB 31;" ": NEXT n 
440 PLOT 0,110: DRAW 142,-100, 
-PI/3: PLOT 160,110: DRAW -60, 


TO USR "г”%7 
NEXT n 











1870 DATA 0,0,0,0,1,1,3,7,0,0,0 
,0,224,240,248,248,15,63,63,63, 
31,15,3,3 

1880 DATA 252,254,254,254,254,2 
54,252,252 

1890 DATA 3,3,3,3,3,1,0,0,248,2 
48,248,248,248,248,240,96,96,96 
,96,96,96,96 

1900 DATA 96,96 

1910 REM ARVORE 2 

1920 DATA 0,3,15,31,127,127,63, 
1,7,15,255,255,255,255,255,255, 
15,63,255,255 

1930 DATA 255,255,255,255,0,128 
,248,248,248,248,240,224 

1940 DATA 255,227,96,48,24,25,1 
3,15,252,240,96,96,192,192,128, 
128,7,7,7,7,7 
1950 DATA 
31,63 


na 


5 CLEAR 200,&HC999 

10 FOR I-0 TO 367 

20 READ A:POKE &HD100*I,A 
30 NEXT I:COLOR 15,4,4 

110 SCREEN 2 

120 CIRCLE (255,191),160,2,0 


.7.7,7.7,15,15,15, 


28,.6:PAINT(230,191),2 

130 CIRCLE(0,191),143,2,0,6.28, 
.4:РАІМТ(10,191),2 

140 CIRCLE(0,191),143,12,0,6.28 


m 

200 FOR I=1 TO 51 

210 READ A,B,C:FOR J=0 TO 7 

220 VPOKE BASE (12) +A*8+J, PEEK (& 
HD100+B*8+J) 

230 VPOKE BASE (11)+A*8+J,C 


240 NEXT J,1 

250 FOR K=1 TO 6:READ D(K) :NEXT 
к 

260 FOR I=1 TO 8:READ A(1),B(1) 
,C(I):NEXT I:FOR K-l TO 6:FOR I 
=1 TO 8:FOR J=0 TO 7 

270 УРОКЕ ВАЗЕ (12) + (А(1) +р(К))* 
8+J, PEEK (&HD100+B (1) *8+J) 

280 ЧРОКЕ ВАЅЕ (11) + (А (1) +0 (К))* 
8+J,C(I) 

290 NEXT J,I,K 

300 FOR K=1 TO 8:READ D(K):NEXT 


K 

310 FOR I=1 TO 9:READ A(I),B(I) 
«С(І):МЕХТ І:ҒОВ К-1 TO 8:FOR I 
=1 TO 9:FOR J=0 TO 7 

320 VPOKE BASE (12) +(A(I)+D(K))* 
B*J,PEEK (&HD100*B (I) *8*J) 

330 VPOKE BASE(11)*(A(I)*D(K))* 
8*J,C(I) 

340 NEXT J,I,K 

400 GOTO 400 

3000 DATA 692,0,98,693,1,98,694 
.2,98,695,3,98 

3010 DATA 696,4,98,697,5,98,698 
,6,98,699,7,98 

































3020 DATA 700,8,98,701,9,98,702 
.10,98,703,11,98 

3030 DATA 724,12,98,725,13,98,7 
26,14,98,727,15,98 

3040 DATA 728,15,98,729,15,98,7 
30,15,98,731,15,98 

3050 DATA 732,16,98,733,15,98,7 
34,15,98,735,15,98 

3060 DATA 754,17,78,755,17,78,7 
56,17,78,757,17,78,758,17,78,75 
9,17,78 

3070 DATA 760,17,78,761,17,78,7 
62,17,78,763,17,78 

3080 DATA 764,17,78,765,17,78,7 
66,17,78,767,17,78 

3090 DATA 500,18,226,501,19,226 
+502,20,226,503,21,226 

3100 DATA 532,22,226,533,23,226 
,534,24,226,535,25,226 

3110 DATA 536,26,226,565,27,226 
.566,28,226,567,29,226,568,30,2 
26 

3115 БАТА -32,-4,36,75,80,147 
3120 DATA 342,31,36,343,32,36,3 
74,33,36,375,34,36 

3130 DATA 406,35,36,407,36,36,4 
39,37,96,471,37,96 

3135 DATA -44,-20,-15,60,84,96, 
157,163 

3140 DATA 327,38,36,328,39,36,3 


29,40,36,330,41,36 
3150 DATA 360,42,96,361,43,96,3 
92,44,96,424,44,96 
3160 DATA 456,45,96 


ES by 


1300 REM CROCODILO 

1310 DATA 0,0,1,7,15,15,9,5,0,0 
.128,192,248,255,127,95,1,3,6,1 
2 
1320 DATA 62,255,255,255,192,22 
4,176,159,191,255,255,255 

1330 DATA 0,0,0,0,0,248,252,255 
+0,0,0,0,0,0,1,207,0,0,0,1,15,1 
27,255,255 

1340 DATA 0,3,63,255,255,255,25 
5,255,127,255,255,255,255,254,2 
49,247,248 

1350 DATA 255,255,255,255,15,25 
5,255 

1360 DATA 0,224,254,255,255,255 
+255,255,0,0,0,192,248,255,255, 
255,0,2,4,7,7 

1370 DATA 3,0,0,21,1,164,73,255 
+255,0,0 

1380 DATA 255,127,63,63,255,255 
+127,31,255,255,255,255,255,255 
„255,255 

1390 DATA 239,239,239,239,239,2 




































47,247,247,60,255,255,255,255,2 





55,255,255 





1780 DATA REM ELEFANTE 





1790 DATA 0,0,0,8,28,25,51,51,0 





,0,0,126,255,193,253,253,0,0,0, 








0,0,255,255 















































































1800 БАТА 255,0,0,0,0,0,248,252 
‚254 

1810 DATA 102,111,111,111,125,5 
7,26,0,253,251,251,251,231,31,1 
5,15,255,255 

1820 DATA 255,255,255,255,255,2 
55,254,255,255,255,255,255,255, 
255 

1830 DATA 0,0,128,64,32,16,12,0 
.15,15,15,14,14,14,14,31,255,24 
0,224,224 

1840 DATA 224,224,224,224,255,6 
3,59,59,57,57,121,248 

1850 DATA 0,0,128,192,224,224,1 
28,0 

1860 REM ARVORE 1 

1870 DATA 0,0,0,0,1,1,3,7,0,0,0 
+0,224,240,248,248,15,63,63,63, 
31,15,3,3 

1880 DATA 252,254,254,254,254,2 
54,252,252 

1890 DATA 3,3,3,3,3,1,0,0,248,2 
48,248,248,248,248,240,96,96,96 
196,96,96,96 

1900 DATA 96,96 

1910 REM ARVORE 2 

1920 DATA 0,3,15,31,127,127,63, 
1,7,15,255,255,255,255,255,255, 
15,63,255,255 

1930 DATA 255,255,255,255,0,128 
.248,248,248,248,240,224 

1940 DATA 255,227,96,48,24,25,1 
3,15,252,240,96,96,192,192,128, 
128,7,7,7,7,7 

1950 DATA 7,7,7,7,7,7,15,15,15, 
31,63 





10 CLEAR 1000:CLS 
20 DIM C(59) ,E(17) , T1(1), T2(7) , 
F1(7),F2(7) 

30 PMODE 3,1:PCLS 

40 W$-"L6UL6D":W$-W$4W$4WS*W$ 
50 DRAW"BM1,4C4RUR2UR2DR2DR4DR8 
UR4UR2UR2UR2UR4DR2DR2DR4D2R6DR2 
DR4DR4UR4UR4UR4UR4UR4URAUR4UR10 
DRÓ6DR4DR2DR2DR2D15"*W$*W9*"L6UL 
G6DL4BUIl4DRllFRFR7FR3FR9FGL7GL21 
HL2D3FR21FR3F" 

60 PAINT(50,10),4 

70 DRAW"BM98,5ClL8GLGLGD5BFD2RF 
R3FBM32,2GFREHLBM1,8C2FRERFBR4U 
BM*4,2;RBR3RBM*3,1;RBM*3,1;RBR3 
RBLS8BDLBLSNEBL6NEBL4EBLSE" 

80 GET (0,0)-(112,20),C,G 

230 PCLS 

240 DRAW"BM4,0C2DG2DG2D3R2DE2UE 
2UE43FRFR11F3RFRFR3DBLB8NU3D4F2D 
GH2UHL3DSLURU3HL6DSL2BUÓL3D6NL2 
U6LH2LNGUHL2" 

250 PAINT(20,7),2 

260 DRAW"BM12,3C3R2D4G2BM8,4R” 
270 GET(0,0)-(37,17),E,G 

280 PCLS 4 

290 DRAW"BM7,19C1H3U5H5UEGR2F3D 
Е20263030202" :РАІМТ(7,7),1 

300 DRAW"BM20,5E2R2E2RFR4E2F2R2 
E2R5FRFDG3LGLGLGL5HL5H2L4" : PAIN 
T(34,5),1 

310 GET(0,0)-(13,19),F1,G:GET(2 
0,0)-(49,9),F2,G 















































320 PCLS:DRAW"BMO,0C4D20BE20F3D 
FD15G2NL2R8HL4EU13E4U2" 

330 GET(0,0)- (1,20) , T1,G:GET (20 
,0)-(31,22),T2.G 

340 PCLS3:SCREEN 1,0 

350 CIRCLE(255,191),160,1,.6:PA 
INT(230,180),1 

360 CIRCLE(0,191),140,2,.35,.75 
,1:PAINT(10,180),1,2 

380 PUT(206,100)-(243,117),E,PS 
ET 

390 FOR K-1 TO 10: READ X,Y:PUT 
(X, Y) - (X*13, Y*19) , F1, AND: PUT (X 
6,Y*20) - (X*7,Y*40) , T], OR: NEXT 
400 FOR K-1 TO 10:READ X,Y:PUT( 
X,Y) - (X*29, Y*9) ,F2, AND: PUT (X*8, 
Y*9) - (X19, Y*31) , T2, 0l EXT 

410 COLOR 2:LINE (138,187)-(255 
.187),РЗЕТ:РАІМТ(255,191),2:РАІ 
NT(255,191),3,1 

420 PUT(143,166)-(255,186),C,PS 
ET 

450 DATA 16,110,24,113,34,108,4 
8,110,56,108,190,80,198,82,212, 
84,210,79,240,70 

460 DATA 2,120,18,122,28,116,46 
,118,60,124,160,90,174,95,190,9 
0,214,86,226,90 

470 GOTO 470 


Executando estes programas, vere- 
mos o tipo de figura que podemos criar 
usando UDG. Náo se preocupe se o al- 
to da tela parece vazio no momento, 
pois o cenário ainda náo está completo. 

A água sob o crocodilo é uma boa de- 
monstração da versatilidade dos blocos 
gráficos: ela é composta pela repetição 
de um só bloco. (Isto não vale para o 
TRS-Color, onde a matriz do crocodilo 
inclui a água.) 

O cenário não é formado apenas por 
UDG: empregamos também comandos 
gráficos para desenhar as colinas. Em- 
bora com freqiência seja melhor usar 
blocos gráficos em vez de comandos grá- 
ficos, podemos obter ótimos resultados 
combinando as duas técnicas. O próxi- 
mo artigo completará o desenho; por- 
tanto, grave o programa em fita. 


COMO FUNCIONA 


Se você não entendeu como o progra- 
ma define e guarda os blocos, consulte 
o último artigo desta série. 

O programa pode ser dividido em 
duas partes: uma que define os blocos 
e outra que os coloca na tela. 

O Spectrum utiliza o comando PO- 
KE para colocar os valores das linhas 
DATA na tela;o MSX, por sua vez, usa 
VPOKE. No programa do TRS-Color 
náo há linhas DATA: desenhamos as fi- 
guras com DRAW e, em seguida, guar- 
damos os padrões em matrizes com GET. 

Criados os blocos, o programa prosse- 
gue colocando-os nos locais adequados. 





O Spectrum usa uma série de coman- 
dos PRINT AT para desenhar cada seg- 
mento de animal ou árvore. Ele também 
emprega comandos locais de cor para 
colorir as figuras. 

Um comando local de cor é aquele 
que se aplica somente à linha onde ocor- 
re. Em geral, fazemos com que o pano 
de fundo — PAPER — seja 8, que é 
transparente. Isso evita que os blocos 
impressos na tela o danifiquem. 


M PANO DE FUNDO MULTICOLORIDO 


O pano de fundo é definido pelas li- 
nhas 410 a 440. A primeira delas esta- 
belece a cor, e as duas seguintes produ- 
zem o céu azul-claro e o chào verde. Pa- 
ra conseguir as diferentes cores de fun- 
do, imprimem-se espacos com as cores 
escolhidas, por meio de dois laços 
FOR...NEXT. 

Como existem várias árvores no ce- 
nário, elas são desenhadas com sub- 
rotinas (linhas 810 e 820). As variáveis 
х еу correspondem às coordenadas de 
comandos PRINT AT. Podemos facil- 
mente acrescentar novas árvores ao de- 
senho, colocando mais coordenadas (ve- 
ja, no artigo da página 501, como esco- 
lher as coordenadas adequadas) e co- 
mandos GOSUB nessas duas linhas. 


UC танысы. 


O programa do MSX usa o coman- 
do VPOKE para colocar os blocos na te- 
la gráfica. Comandos gráficos do BA- 
SIC também são empregados para de- 
senhar o fundo da figura. 

Inicialmente, a linha 5 protege o to- 
po da memória para que as linhas 10 a 
30 coloquem ali os padrões dos blocos. 
A linha 30 também seleciona as cores da 
tela; a 110 seleciona a tela. As linhas 120 
a 140 desenham as duas colinas que apa- 
recem no fundo. 

Em seguida, usando VPOKE, os pa- 
drões são colocados na tela gráfica. A 
posição que o bloco deve ocupar na te- 
la — A —, a posição do bloco no ban- 
co de blocos — B — e a cor do bloco 
— C — são obtidos com READ nas li- 
nhas DATA que começam em 3000. 

Já que existem dois tipos de árvore, 
elas são desenhadas por dois laços 
FOR...NEXT. Precisamos, no entanto, 
de um grande número delas. Para fazê- 
las, usamos uma série de valores que se 
somam às posições em que cada árvore 
é desenhada. Esses valores são lidos nas 
linhas DATA 3115 e 3135, mudando a 


UG AN TR 


posição de cada árvore sempre que o la- 
ço é executado. 

As cores não foram colocadas no 
banco, e sim nas linhas DATA a partir 
de 3000, juntamente com as posições 
dos blocos. Isso foi possível porque, em 
nosso exemplo, cada bloco tinha apenas 
duas cores. Quando o colorido dos blo- 
cos for mais complicado, convém usar 
o banco. 





O programa do TRS-Color começa 
reservando espaço para os cordões que 
usa e DIMensionando as matrizes que 
guardam os blocos gráficos. Com exce- 
ção das árvores, temos um bloco gráfi- 
co para cada figura, já que os blocos po- 
dem ter qualquer tamanho. As árvores 
requerem dois blocos cada, pois têm 
uma metade vermelha e outra verde. 


0S ANIMAIS 


O programa prossegue desenhando 
um animal de cada vez e guardando ca- 
da um deles na matriz apropriada, com 
o comando GET. A linha 80 guarda o 
crocodilo, a linha 270 o elefante, a li- 
nha 310 cuida das copas das árvores е 
a linha 330 dos troncos. 

А segunda parte do programa colo- 
ca cada parte do desenho em seu lugar. 
As primeiras linhas limpam e selecionam 
a tela apropriada, desenhando também 
as colinas que fazem parte do cenário. 
As cores das colinas são determinadas 
pelo comando PAINT. 

Os dois grupos de árvores, cada um 
em uma colina, são desenhados pelo la- 
ço FOR...NEXT das linhas 390 e 400, 
usando as linhas DATA 450 e 460 para 
determinar a posição. 

As linhas 380 e 420 colocam o elefan- 
te e o crocodilo na tela, respectivamen- 
te. A última linha ativa do programa (se 
ignorarmos as linhas DATA) é a 470. 
Ela impede que o programa termine, 
permitindo a visualização da tela que, 
de outra forma, seria apagada. Use 
<BREAK> para parar o programa. 


UMA MANADA DE ELEFANTES 


Podemos substituir o elefante por 
uma manada. O método é o mesmo uti- 
lizado para as árvores: um laço 
NEXT ou vários comandos 





Já vimos como usar blocos gráficos 
para escrever na tela de alta resolução. 


Agora vamos examinar como carre- 
gar bytes na área reservada ao banco de 
blocos — segunda página de vídeo — 
por meio do monitor. 

O monitor permite que coloquemos 
valores diretamente na memória do mi- 
cro, Estes números serão, em nosso ca- 
so, os bytes correspondentes aos blocos 
gráficos necessários para o cenário. 

Depois de colocar todos estes bytes 
na memória, carregue e execute o gera- 
dor de blocos, para poder ver, editar e 
entender como foram criadas as figuras. 
No próximo artigo apresentaremos o 
programa BASIC que desenha a flores- 
ta usando o banco de blocos que esta- 
mos criando hoje. 

Para carregar o banco de blocos, ati- 
ve o monitor com: 


CALL - 151 


ou LM no TK-2000, 

Agora, copie a listagem. Para alterar 
o conteúdo de uma posição de memó- 
ria, digite o endereço pretendido, segui- 
do de dois pontos e dos valores deseja- 
dos. Em nosso exemplo, modificamos 
oito posições de cada vez. Lembre-se de 
que todos os números precisam estar na 
forma hexadecimal. No TK-2000, de- 
vem-se usar outros endereços. Em vez 
de começar no endereço 4000, em hexa, 
use A000, também em hexa. 

Note que nem todas as posições da 
área do banco precisam ser modificadas, 
havendo várias lacunas na listagem. 


4008: 00 00 50 54 54 54 44 44 
4010: 00 00 00 02 ОА 2А 2А 08 
4018: 00 40 40 50 14 55 55 55 
4020: 02 ОА ОА 2А 28 2А 2А 2А 
4028: 00 00 00 00 00 05 15 55 
4030: 00 00 00 00 00 00 28 2A 
4038: 00 00 00 40 50 54 55 55 
4040: 00 20 2А 2А 2А 2А 2А 2А 
4048: 54 55 55 55 55 55 05 51 
4050: 2А 2А 2А 2А 2А 00 2А 2А 
4058: 55 55 55 55 55 55 55 55 
4060: 00 00 ОА 2А 2А 2А 2А 2А 
4068: 00 00 00 01 15 55 55 55 
4070: 00 00 00 00 00 02 ОА 2А 
4078: со ро ра ра са са са во 
4080: АА ВА 82 80 80 80 80 80 
4088: 80 80 80 80 CO CO DO DO 
4090: AA AA AA AA 8A BA 82 82 
4098: 81 61 81 81 80 80 80 80 
40A8: DO CO 80 80 80 80 80 80 
40B0: 8A 82 80 80 80 80 80 80 
40C8: CO CO 90 90 84 84 81 81 
40F0: 00 00 20 28 28 28 2A 2А 
40F8: 40 54 55 55 55 55 55 55 
4100: 2А 2А 2А 2А 2А 2А 2А 2А 
4108: 55 55 55 55 55 55 55 55 
4110: 2А 2А 2А 2А 2А 2А 2А 2А 
4118: 55 55 55 55 55 55 55 55 
4120: 2A 2A 2A 2A 2A 2A 2A 2A 
4128: 01 15 55 55 55 55 55 55 
4130: 00 00 02 ОА ОА OA 2А 2А 
4148: 10 14 54 54 54 00 00 00 


4150: 
4158: 
4160: 
4168: 


4170: 
4178: 
4180: 
4188: 
4190: 
4198: 
4140: 
41А8: 
41В0: 
41C8: 
41D0: 
4108: 
41Е0: 
41F8: 
4200: 
4230: 
4238: 
4240: 
4248: 
4250: 
4258: 
4260: 
4268: 
4270: 
4280: 
4288: 
4290: 
4298: 
42A0: 
42A8: 
42B0: 
4288: 
42C0: 
42С8: 
4200: 
4208: 
42Е0: 
42Е8: 
4280: 
4308: 
4310: 
4318: 
4320: 
4338: 
4340: 
4370: 
4378: 
4380: 
4388: 
4390: 
4398: 
43A0: 
43A8: 
43B0: 
4448: 
4450: 
4470: 
4478: 
44D0: 
4500: 
4508: 
4510: 
4518: 
4520: 
4528: 
4530: 
4590: 
4598: 


р5 


45В0: АА АА АА АА АА А8 АВ А8 
45B8: DO D4 D4 D4 DO Cl C1 DI 
45С0: А8 АА АА ВА АА АА А8 AB 
45С8: 85 95 95 95 95 91 95 95 
4610: АА АА АА АА АА АА АА АА 
4640: 50 50 54 54 54 FD 7F 5D 
4648: ЗА ЗА 2А 22 00 00 20 2А 
4650: 55 45 45 45 45 14 14 50 
4658: 2А 2А бА 7Е бА 2А 2А 2А 
4660: 55 55 05 01 01 01 05 55 
4668: 2Е ЗЕ 2А 20 00 00 20 бА 
4670: FD 5D 55 05 50 55 5D 57 
4678: (00 02 00 2A 2A 2E 2E 2E 
4680: 00 00 00 55 7F 5D 5D 5D 
4688: 00 00 00 02 2A 3A 3A 3A 
4690: 00 00 50 14 15 55 55 55 
4698: 20 2А 2А 2А 2А 3E OE OF 
46А0: 01 05 05 05 04 04 04 00 
4608: D5 D5 D4 D4 D4 D5 D5 D5 
46E0: 80 AA AA AA AA AA AA AA 
46E8: 80 D5 D5 D5 D5 D5 D5 D5 
46F0: A8 AA AA AA AA AA AA AA 
46F8: D5 D5 D5 D5 D5 D5 D5 D5 
4700: AA 82 AA AA 82 80 80 80 
4708: 95 95 D5 D5 D4 D4 94 80 
4710: 80 A8 80 80 88 88 АВ АА 
4718: 80 81 81 81 81 81 81 81 
4750: АА АА АА АА АА АА АА АА 
4780: 54 50 00 00 00 00 00 00 
4788: ЗА ОА 00 00 00 00 00 00 
4790: 50 40 40 00 00 00 00 00 
4798: 68 бА 62 2А ОА 2А 28 00 
47А0: БЕ 57 55 05 55 00 55 55 
47A8: 2B 2B 2B 2F 2A 00 2A 2A 
47B0: 57 57 57 15 11 04 05 01 
47В8: 3F 2B 02 00 00 00 00 00 
47C0: 55 55 00 00 00 00 00 00 
47C8: 7E 2A 00 00 00 00 00 00 
47D0: 55 55 55 54 50 40 40 00 
4708: 0В 03 2А 03 02 02 0A 2A 
47Е0: 00 10 05 10 00 00 00 00 
4810: 80 80 80 А0 А0 А0 А0 АО 
4818: D5 D5 D5 D5 D5 D5 D5 D5 
4820: AA AA AA AA AA AA AA AA 
4828: D5 D5 D5 D5 D5 D5 D5 D5 
4830: АА АА АА АА АА АА АА АА 
4838: D5 D5 D5 D5 DS DS DS DS 
4840: 82 ВА ВА ВА ВА ВА 82 82 
4848: С0 С0 CO DO DO DO 94 95 
4850: АА ВА ВА 82 82 80 80 80 
4888: 00 00 00 00 CO CO CO DO 
4890: АА АА АА АА АА АА АА АА 
4898: 00 00 00 00 81 81 81 85 
4948: 80 80 80 80 CO DO DO D4 
4950: А0 АО АО А8 АА АА АА АА 
4958: 95 95 95 95 95 85 85 81 
4960: АА АА АА АА АА АА АА АА 
4968: В1 81 81 81 81 81 81 81 
4978: ра ро ро ро ро ро ро ро 
4980: 82 82 В2 А2 А2 АА АА АА 
4988: 05 95 95 85 85 81 81 80 

Para gravar o banco na fita use: 

4000.5000 W 

No TK-2000 use: 


A000.B000 W "nome" 


Isto deve ser digitado ainda dentro do 
monitor. Quem tiver unidade de disque- 
te pode utilizar o gerador para gravar o 
banco. 





Você quer proteger seus programas 
contra a “pirataria” ou a mera 


curiosidade? Veja aqui as técnicas 


SEUS RI utilizadas pelos profissionais na 
montagem de travas e armadilhas. 








O QUE SE PODE FAZER PARA 
PROTEGER PROGRAMAS BASIC 
PROGRAMAS AUTOCARREGÁVEIS: 

O QUE SÃO E O QUE FAZEM 


INTERDEPENDENTES 

COMO DESATIVAR 

OS COMANDOS SAVE E LIST 
PEQUENAS ARMADILHAS 





PROGRAMAS 


Nunca é demais dar a um programa 
um toque profissional, sobretudo depois 
de um grande esforço para deixá-lo “re- 
dondinho”. Nesse sentido, você pode 
fazer duas coisas: melhorar a apresen- 
tação do programa e providenciar-lhe 
uma proteção razoável, de modo que 
suas técnicas especiais fiquem, ao me- 
nos, obscurecidas para o público. 

Algum cuidado no acabamento é es- 
sencial se você pensa em comercializar 
seu programa — especialmente se pre- 
tende negociá-lo com uma software- 
house. Os recursos que você deve utili- 
zar para dar-lhe uma melhor apresenta- 
ção foram discutidos anteriormente; as- 
sim, focalizaremos aqui as técnicas dis- 
poníveis para garantir alguma proteção 
ao seu trabalho. 

A proteção de um programa BASIC 
depende de armadilhas colocadas den- 
tro do próprio programa. Os escritos em 
código de máquina podem receber um 
tratamento bem mais sofisticado. 

Não existem restrições de nenhum ti- 
po quanto ao emprego de armadilhas 
para evitar as cópias “piratas” ou a lis- 
tagem de um programa por curiosos. 
Quantas delas serão colocadas no pro- 
grama é questão para você decidir. 

De qualquer maneira, convém sem- 
pre se lembrar de que não se conhecem 
métodos absolutamente seguros de evi- 
tar que um programa seja copiado. Mui- 
tas pessoas encaram os programas pro- 
tegidos como um desafio e não desistem 
até que ele seja vencido. Outras se em- 
penharão em listar o programa para 
examiná-lo, adaptá-lo às suas necessida- 
des ou, simplesmente, aprender. 


Ainda que você tenha muita imaginação 
e domine as técnicas necessárias para 
montar as mais fantásticas armadilhas, 
seu programa nunca estará totalerente 
protegido dos olhares curiosos. 

Mas, combinando determinados recursos — 
alguns mais simples, outros nem tanto —, 
vocé pode dificultar tanto o trabalho 

do “pirata” que ele se sentirá 

tentado a abandonar sua tarefa. 


PARA O SEU COMPUTADOR 


LEO 


Um dos métodos para proteger pro- 
gramas consiste em introduzir neles vá- 
rias armadilhas simples. Elas náo impe- 
dem que alguém com conhecimento da 
máquina abra o programa, mas tornam 
a tarefa bem mais trabalhosa. Infeliz- 
mente, esse método dificulta também a 
elaboração do programa. Além disso, 
ele complica a depuração de erros, já 
que as armadilhas podem estar ativas 
durante a execução do programa, 

As travas mais simples são as que in- 
troduzem no programa mudanças que 
tornam impossível o uso dos comandos 
SAVE, LIST e outros. Como elas só se 
ativam após a execução do programa, 
não criam os problemas de depuração 
mencionados acima. 


ITOCARREGAMENTO 


Pode-se obter uma protegáo bem me- 
lhor fazendo com que o programa seja 
executado automaticamente depois de 
carregado, No processo normal de car- 
regar um programa (LOAD), os coman- 
dos são digitados no modo direto. Mas 
eles podem ser chamados por um pro- 
grama à parte, denominado programa 
de autocarregamento (bootstrap). Es- 
te e escrito em BASIC ou código de má- 
quina, dependendo das tarefas específi- 
cas que deve executar. Na sua forma 
mais simples, pode ser algo como: 


10 LOAD "NOME PROXIMO PROGRAMA" 


A execução desse pequeno programa 
carregaria para a memória do micro o 
programa cujo nome fosse especificado. 
Obviamente, o uso de uma linha como 
esta é bem específico. Mas esse tipo de 
programa pode ser empregado para fa- 
zer muito mais, sendo bastante útil pa- 
ra programação suplementar — como 
montar páginas-títulos, gráficos etc. 

Estas incluem poderosas armas de 
proteção de um programa BASIC, que 
alteram determinados comandos do sis- 
tema. No nosso caso, o programa de 
auto-carregamento funciona como um 
inicializador do sistema que permite que 
seu programa seja carregado e executado. 





Vários tipos de programas comerciais 
empregam bootstraps, muitas vezes 
gravados na forma de programas patro- 
cinados, onde cada parte é carregada em 
sequência. Lembre-se de que, normal- 
mente, um programa BASIC apaga o 
anterior ao ser carregado. Assim, se vo- 
cê utilizar essa técnica, carregue antes os 
módulos em linguagem de máquina e, 
depois, o BASIC. 

Com programas patrocinados, a pro- 
teção pode ser determinada por um cer- 
to grau de interdependência entre um ar- 
quivo (parte do programa) e outro. Nes- 
te caso, um arquivo checa um valor de 
memória determinado por outro. Pode- 
se ainda acrescentar um programa que 
cheque um arquivo de dados especial co- 
locado após o programa principal. Em 
ambas as alternativas, a falta de qual- 
quer um dos módulos provoca um erro 
e impede que o programa funcione. 

Os bootstraps oferecem mais uma 
vantagem: com sua utilização, o tempo 
de carregamento dos programas na me- 
mória diminui, porque o código de má- 
quina e os dados podem ser colocados 
diretamente na memória. Esse progra- 
ma dispensa, assim, o uso de declara- 
ções DATA do BASIC, que só funcio- 
na após o programa começar a ser exe- 
cutado. 


UTO-EXECUCA( 


A utilização de um programa de 
autocarregamento não é muito simples 
no TRS-Color (usando-se o cassete). 
Esse computador não dispensaria cha- 
madas especiais do sistema, o que não 
é possível com o BASIC. No Spectrum, 
porém, para executar um programa a 
partir de outro basta usar o comando 
apropriado em algum lugar do progra- 
ma de autocarregamento. 


990 LOAD "NOME DO PROXIMO PROGR 
AMA” 













Grave (SAVE) este segundo progra- 
ma usando SAVE “NOME DO PRO- 
XIMO PROGRAMA" LINE 1 — ou o 
número de linha que represente o início 
do programa. Escolhendo um número 
de linha maior, você poderá incluir avi- 
sos ou dados para serem lidos (PEEK) 
e checados em linhas REM anteriores à 
linha inicial de execução. 


hq 


No MSX também é muito simples 
executar um programa a partir de ou- 





tro: basta usar o comando LOAD com 
a opção R. Mas, para que tudo dê cer- 
to, O programa a ser executado deve es- 
tar gravado no formato ASCII, isto é, 
com a instrução SAVE. Na sua forma 
mais simples, o programa seria: 


100 LOAD "NOME DO PROGRAMA” ,R 


[é] 


As técnicas que seguem valem apenas 
para micros com disquete. 

Veremos, primeiro, como montar um 
programa de execução automática. O 
método mais simples consiste em intro- 
duzir no programa, que é automatica- 
mente carregado e executado ao se ligar 
o computador, uma linha do tipo 
PRINT CHR$(4); “RUN PROGRA- 
MA”. Mas a utilização de um arquivo- 
texto é mais elegante, e exige apenas que 
o programa com que o disquete foi ini- 
cializado contenha esta linha: 


10 PRINT CHR$(4);"EXEC AUTORUN" 


AUTORUN é um arquivo-texto que 
será executado como se as instruções es- 
tivessem sendo digitadas a partir do te- 
clado. Para criá-lo, digite e execute este 
programa: 


10 DS = CHRS (4) 
20 PRINT D$;"OPEN AUTORUN" 





30 PRINT D: WRITE AUTORUN" 
40 PRINT "NOMON C,I,O0" 
50 PRINT "RUN BP35" 


60 PRINT D$;"CLOSE" 


Com esse arquivo, qualquer tentati- 
va de interromper o programa será in- 
terpretada como um erro. E isso será 
aproveitado por uma rotina de trata- 
mento de erros no programa principal. 

Digite este programa e salve-o, por 
exemplo, com o nome de BP35: 


10 HOME 
20 PRINT "ALO Fi; 
30 сото 20 


Em seguida, digite “EXEC AUTO- 
RUN”. O programa será executado pe- 
los comandos do arquivo AUTORUN. 
Se inicializou o disquete como sugeri- 
mos, seu programa BP35 terá execução 
automática toda vez que o computador 
for ligado com esse disquete no drive 1. 


0 USO DE VARIAVEIS DO SISTEMA 


A auto-execução não basta para afas- 
tar os curiosos. É necessário utilizar ou- 
tros recursos para evitar que os progra- 
mas sejam interrompidos, listados ou al- 
terados. Um desses recursos consiste em 


alterar o modo como o sistema reage 
quando se faz uma chamada específica 
— por exemplo, a sub-rotina de listagem 
(LIST). 

Cada computador tem um sistema 
operacional e um interpretador BASIC. 
A maior parte da informação é guarda- 
da na memória apenas para leitura — 
ROM —, mas parte dela é transferida 
para a memória de acesso aleatório — 
RAM —, quando se liga o computador. 
Esta informação pode ser modificada 
para alterar o funcionamento do siste- 
ma, permitindo que se incorporem aos 
programas métodos sofisticados de 
proteção. 

Como estaremos interferindo na pró- 
pria forma de trabalho do computador, 
precisaremos ter em mãos uma listagem 
completa das variáveis e rotinas do sis- 
tema, e um bom mapa de memória. Ve- 
ja o seu manual de referência. 

A transferência de parte da informa- 
ção do sistema da ROM para a RAM, 
possibilita a alteração do valor de algu- 
mas variáveis. Estando na RAM, esta 
informação torna-se vulnerável a qual- 
quer modificação que se queira fazer. 

Um tipo especial de variável do sis- 
tema é o apontador da RAM. Este con- 
siste, em geral, de dois endereços con- 
secutivos que guardam o endereço de 
uma sub-rotina específica. Se alterarmos 
tal endereço, o sistema será redireciona- 
do sempre que esta sub-rotina for cha- 
mada. Os melhores apontadores para a 
proteção de programas são os que se re- 
ferem aos comandos LIST, SAVE, IN- 
TERRUPT e RESET. Os últimos co- 
mandos fogem ao escopo deste artigo. 


TUDO DE CASOS 


É muito difícil dar total proteção aos 
programas, especialmente se se quer evi- 
tar um maior envolvimento com códi- 
go de máquina. Os métodos para cada 
máquina diferem muito, já que os sis- 
temas operacionais também são bastan- 
te diferentes. Mas vale a pena analisar 
algumas possibilidades. 


Uma das maneiras mais simples de 
marcar um programa consiste em colo- 
car uma mensagem que não possa ser re- 
tirada. Para reforçar a proteção, con- 
vém acrescentar uma rotina que verifi- 
que a presença da marca. 

Inicialmente, encontre o endereço da 
área reservada para programas em BA- 
SIC. Esse endereço (variável de sistema 
PROG) é armazenado nas posições 
23635 e 23636 e pode ser determinado 








pela instrução: PRINT PEEK 23635 + 
256 * PEEK 23636. Conhecendo o va- 
lor de PROG, você pode colocar qual- 
quer número em PROG + 1, alterando 
o número da primeira linha do 
programa. 

O segredo é deixar a linha com o nú- 
mero 0, já que não é possível apagar a 
linha 0. Suponhamos que a primeira li- 
nha do programa seja: 


10 REM (C) NOVA CULTURAL 1986 


Digite este comando: 


РОКЕ(РЕЕК 23635 + 256 * PEEK 
25636) + 1,0 


Pronto! A linha 10 virou linha 0. 

O mesmo pode ser feito pelo progra- 
ma de autocarregamento. Mas, 
tratando-se de um programa auto- 
executável, a maneira óbvia de 
interrompê-lo é teclando <BREAK>, 
que coloca uma mensagem na parte 
de baixo da tela. Suponhamos, po- 
rém, que esta não aceite a mensagem. 
Na lista das variáveis de sistema, vê-se 
que DFSZ (no endereço 23659) armaze- 
na o número de linhas da parte inferior 
da tela (geralmente 2). Alterando este 
valor para 0, o computador detectará 
um erro assim que a mensagem tentar 
aparecer na tela. 

Como não se pode entrar tais instru- 
ções no modo direto, digite: 


10 POKE 23659,0 
20 PRINT AT 5,5; 
30 GOTO 20 


Execute o programa. Se pressionar 
<BREAK>, provocará um erro. 

Quando usar este método, lembre-se 
de que, se seu programa contiver situa- 
ções que produzem mensagens como 
INPUT? ou seroll?, o erro será inevitá- 
vel. Assim, para entrada de dados, use 
INKEYS. 

O “pirata” pode evitar que um pro- 
grama se auto-execute, carregando-o 
com MERGE. Mas será impossível fazê- 
lo se o programa for gravado em códi- 
go. As variáveis do sistema, o progra- 
ma e a memória livre devem ser grava- 
dos acima do buffer da impressora. 

A gravação começa com CODE 
23552, que é o início da área das variá- 
veis do sistema. O número de bytes é 
N-23552, onde N é qualquer número 
maior que STKEND (o endereço do iní- 
cio do espaço livre). Obtém-se este en- 
dereço com PEEK 23653 + 256*РЕЕК 
23654. 

Coloque estas linhas no início do seu 
programa: 

1 SAVE "NOMEPROG" CODE 23552, 

N-23552 
2 POKE 23659,0 


RND 


AL O 





Agora, iguale N ao enderego descri- 
to acima e digite GOTO 1. O programa 
será gravado. O comando LOAD “'NO- 
MEPROG” CODE fará com que o pro- 
grama seja executado. 


Vimos como proceder para que um 
programa inicial carregue e execute o 
programa principal. Mas isso não é sufi- 
ciente, Um simples « CTRL» «STOP» 
permite que se interrompa o programa 
para que ele seja listado. 

No MSX, pode-se evitar uma inter- 
rupção desse tipo com facilidade. A 
idéia é direcionar o programa para uma 
sub-rotina especial toda vez que se ten- 
tar uma interrupção com 
<CTRL><STOP>. Para isso, 
utilizam-se as instruções STOP ON, que 
fazem com que o BASIC verifique a to- 
do instante se uma interrupção foi ten- 
tada, e ON STOP GOSUB XXXXX, 
que desvia o programa para uma deter- 
minada linha em caso positivo. Digite 
o seguinte: 

10 ON STOP GOSUB 1000 

20 STOP ON 

30 CLS 

40 LOCATE 10,12:PRINTRND(1):GOT 

0 40 

1000 P=P+1 

1010 CLS:LOCATE 10,10:PRINT"Não 
seja curioso!” :BEEP:FOR 5-1 TO 
1000:NEXT 

1020 IF P=3 THEN NEW: END 

1030 CLS:RETURN 

Não se esqueça de gravar o progra- 
ma antes de executá-lo. Depois, pare-o 
se puder! 


Você já sabe como proceder para que 
seu programa seja automaticamente exe- 
cutado; veja agora como impedir que o 
interrompam, ou seja, como impossibi- 
litar sua listagem. Para isso, fazemos 
com que toda tentativa de interrupção 
— por meio do < CTRL > <C> ou do 
<CTRL> <RESET> — seja interpre- 
tada como um erro, desviando a execu- 
ção para uma rotina especial. Para que 
o micro interprete o <CTRL> <RE- 
SET > como um erro (o « CTRL» «C» 
é normalmente interpretado como tal), adi- 
cione as linhas seguintes ao programa do 
arquivo AUTORUN. 

45 PRINT "POKE 40286,35" 





46 PRINT "POKE 40287,216" 


Elimine o AUTORUN já existente e 
execute o programa. O novo arquivo 
contém os dois POKE que mudam o 
comportamento do computador em re- 
lacáo ao « RESET». Mas, para que 
possamos tirar proveito dessa mudança, 
uma rotina de erros deve ser inserida no 
programa principal: 


5 ONERR GOTO 1000 
100 p =P + 1 


1010 IF P= 3 THEN PR# 6 
1020 PRINT CHR$ (7);: RESUME 
NEXT 


Grave o programa alterado. Desligue 
o computador e ligue-o novamente. 
Tente parar o programa... 

Pode ocorrer, porém, que o curioso 
se lembre de olhar para o diretório do 
disco e carregar o seu programa direta- 
mente, sem executá-lo; assim, poderá 
listá-lo. Para confundi-lo, inclua no no- 
me do programa, no momento de gra- 
var (SAVE), alguns caracteres de con- 
trole, que ficarão invisíveis. Para fazer 
isto, basta digitar junto do nome do pro- 
grama um ou mais <CTRL> <letra>, 
onde a letra pode ser A, B etc. Evite o 
СеоХ. 
















































Os micros da linha ZX-81 possuem bons 
recursos de edição. Com o comando 
EDIT e as teclas de movimentação do 
cursor, você pode alterar ou duplicar 
rapidamente uma linha de programa. 


Devido à sua natureza ““conversacio- 
nal”, todos os interpretadores da lingua- 
gem BASIC incluem alguns recursos de 
edição de programas, ou seja, técnicas 
de entrada e alteração das linhas que o 
compõem. 

Como vimos em artigos anteriores 
sobre edição de programas em outras li- 
nhas de microcomputadores, o primei- 
ro interpretador BASIC, desenvolvido 
na década de 60 na Universidade de 
Dartmouth, nos EUA, fixou os recur- 
sos mais elementares de edição: nume- 
ração, inserção, apagamento e listagem 
de linhas. Estes recursos, adotados pos- 
teriormente em todos os dialetos BASIC 
que surgiram, não davam ao programa- 
dor a possibilidade de alterar caracteres. 
Assim, para corrigir um único caracte- 
re errado, ele teria que digitar toda a li- 
nha novamente. 

Para poupá-lo desse trabalho, 
desenvolveram-se comandos como o 
EDIT, presentes nos micros da linha 
Sinclair, TRS-80 e TRS-Color. O co- 
mando EDIT dos micros da linha ZX-81 
opera em uma linha de cada vez. 


DIGITAÇÃO DE PROGRAMAS 


No ZX-81, cada linha é digitada de 
uma vez, precedida de um número. 

A parte inferior da tela do ZX-81 
destina-se à digitação de linhas. Ao ser 
ligado, o computador exibe um cursor 
de texto — um retângulo em vídeo in- 
verso — contendo a letra K. Esta é a 
chamada linha de edição da tela. À me- 
dida que você vai digitando a linha, por 
meio do teclado, este cursor vai se des- 
locando à frente dos caracteres. Durante 
o deslocamento, ele pode mudar de ti- 
po ewe para tipo L, tipo G, tipo F 
etc.). 

Quando se pressiona a tecla <EN- 
TER» ou <RETURN>, a linha é 








completada e inserida no ponto certo do 
programa. Enquanto isso não ocorre, 
pode-se modificar a linha à vontade. 

Três teclas de controle são utilizadas 
para se proceder às modificações: as te- 
clas com as flechas para a esquerda e pa- 
ra a direita (+ e >), que devem ser acio- 
nadas simultaneamente com a tecla 
<SHIFT>, e a tecla de apagamento 
(chamada de DELETE ou RUBOUT, 
conforme a marca do computador, 
e que, no ZX-81, corresponde à 
pressão simultânea das teclas 9 e 
<SHIFT>). 

Ao ser acionada, a tecla de apaga- 
mento pode eliminar um caractere ou 
uma palavra-chave do BASIC de uma 
vez. O restante da linha se desloca para 
a esquerda, de modo a preencher os cla- 
ros deixados. 

O ZX-81 dispõe do modo de inserção 
automático, ou seja, se digitarmos ca- 
racteres quando o cursor estiver no meio 
de uma linha, estes serão inseridos, por 
intermédio do deslocamento do restan- 
te da linha para a direita. Para sobre- 
por caracteres (escrever sobre caracteres 
já existentes), é necessário primeiro 
apagá-los. 


O COMANDO EDIT 


Uma vez pressionada a tecla < EN- 
TER>, a linha digitada passa a fazer 
parte do programa. Se, depois disso, vo- 
cê digitar apenas o seu número, e pres- 
sionar <ENTER> de novo, ela será 
apagada. Por outro lado, se você digi- 
tar seu número, seguido de novos co- 
mandos ou instruções, estes substituirão 
a linha existente no programa. 

Um recurso de edição que faz falta 
no ZX-81 é o comando DELETE (ou, 
ainda, DEL, em alguns computadores), 
que apaga grupos de linhas de uma vez 
só. Os usuários desse micro precisam 
sempre digitar os números de cada uma 
das linhas a serem apagadas, um a um, 
seguidos de <ENTER>. 

Para modificar uma linha já existen- 
te, sem precisar redigitá-la inteiramen- 
te, pode-se recorrer ao comando EDIT. 
Para isso é necessário entender o con- 
ceito de cursor de linhas. 





COMO EDITAR LINHAS 
DE UM PROGRAMA BASIC 

OS MOVIMENTOS DO CURSOR 

O COMANDO EDIT 
CONSOLIDE AS MODIFICAÇÕES 











Se você olhar para uma listagem de 
programa na tela, perceberá que existe 
sempre um retângulo em vídeo inverso, 
contendo o sinal de maior (>) em seu 
interior, e que aponta para uma das li- 
nhas na tela. Esse retângulo é o cursor 
de linhas. Para deslocá-lo, basta pres- 
sionar uma ou mais vezes uma das te- 
clas com a flecha para cima ou para bai- 
xo (t ou 1). 

Agora, se vocë pressionar simulta- 
neamente as teclas <SHIFT > e 1, a li- 
nha apontada pelo cursor de linhas apa- 
recerá na linha de edição. 

Você poderá usar, então, todos os 
procedimentos de edição: movimenta- 
ção do cursor de texto, apagamento, in- 
serção etc. Tudo funciona da mesma 
maneira, até que você pressione a tecla 
<ENTER>. Ao fazê-lo, a linha modi- 
ficada irá substituir a que foi chamada 
anteriormente pelo EDIT. 


UPLICAÇÃO DE LINHAS 


A duplicação de linhas é um dos re- 
cursos mais interessantes do ZX-81. O 
número da linha pode ser editado nor- 
malmente. Assim, se apenas ele for mo- 
dificado, a linha com o número origi- 
nal mantém-se no programa, e a mes- 
ma linha, com nova numeração, é inse- 
rida no ponto correto. 

Por outro lado, se, além do número 
da linha, também o seu conteúdo for 
modificado, uma linha diferente será 
automaticamente gerada. 

Portanto, para que uma linha possa 
ser editada pelo comando EDIT, ela pre- 
cisa estar listada na tela (use o coman- 
do LIST número, para isto). Desloque 
o cursor de linha até ela, e pressione o 
comando EDIT. 

Para agilizar o processo de edição de 
várias linhas de um programa extenso, 
você pode utilizar um pequeno truque. 
Em vez de pressionar repetidas vezes as 
teclas de controle do cursor de linhas, 
até chegar à linha que você deseja, di 
te o comando LIST, seguido do núme- 
ro dessa linha. Isto a colocará no alto 
da tela, com o cursor de linhas automa- 
ticamente apontado para ela. Basta, en- 
tão, pressionar o comando EDIT. 















SÍMBOLOS 






Os micros da linha MSX dispõem de 
caracteres gráficos que podem ser 

entrados diretamente pelo teclado ou 
usados dentro de um programa. Veja 
como explorar este recurso especial. 


Os microcomputadores da linha 
MSX são extremamente versáteis do 
ponto de vista da programação gráfica. 
Em artigos anteriores, vimos como as te- 
clas gráficas (SCREEN) podem ser pro- 
gramadas, em média e alta resolução, 
por meio de instruções poderosas como 
LINE, CIRCLE, PAINT, PSET etc. 

О МХХ apresenta, ainda, um recur- 
so gráfico adicional que é pouco explo- 
rado. São os caracteres gráficos, dispo- 
niveis para o programador por meio de 
dois procedimentos: entrada direta pe- 
lo teclado e inserção através das funções 
do BASIC CHR$ e STRINGS. 

O que sáo caracteres gráficos? Como 
você já sabe, os caracteres que aparecem 
no vídeo têm códigos numéricos intei- 
ros, entre O e 255; cada caractere cor- 
responde, portanto, a um byte da me- 
mória do vídeo. Parte dessa codificação 
está convencionada internacionalmente 
pelo chamado código ASCII, que vai de 
32 a 126. Os códigos de 0 а 31 são nor- 
malmente utilizados para funções de 
controle do vídeo, e dependem do tipo 
de computador. O mesmo acontece com 
os códigos de 127 a 255. Nesta faixa, ca- 
da fabricante usou os códigos de uma 
maneira, em geral para acomodar carac- 
teres em outros idiomas que não o in- 
glês (é o caso do MSX, existente no Bra- 
sil) ou para especificar caracteres gráfi- 
cos. Estes tanto podem ser tipos espe- 
ciais, para a imagem de um rosto sor- 
rindo ou uma nota musical, como blo- 
cos gráficos formando linhas, ângulos 
e cantos. 


GRÁFICOS DA ROM 


Tais caracteres são também chama- 
dos de gráficos da ROM, pois já vêm 
pré-programados. No MSX, os caracte- 
res especiais ocupam duas faixas da ta- 
bela de caracteres: 





GRÁFICOS NO MSX 







- a faixa de l a 31 
- a faixa de 144 a 254 


Nestas faixas, os caracteres gráficos 
propriamente ditos encontram-se disper- 
sos em vários pontos da tabela, entre- 
meados com caracteres de outros idio- 
mas, com o alfabeto grego, símbolos 
matemáticos etc. 

Os caracteres gráficos que mais nos 
interessaráo neste artigo sáo os blocos 
empregados na formatação de tabelas, 
de formulários de entrada ou na com- 
posição de quaisquer outros desenhos 
formados por linhas retas. A utilização 
de caracteres gráficos, nesses casos, tem 
a vantagem de não complicar a progra- 
mação, misturando tela gráfica com tex- 
to, o que nos permite recorrer a coman- 
dos mais simples, como o LOCATE, o 
PRINT, o INPUT etc. 


ENTRADA PELO TEC 


Assim como os caracteres convencio- 
nais do ASCII (demarcados sobre as te- 
clas do microcomputador), os caracte- 
res especiais e gráficos podem ser entra- 
dos pelo teclado. Para isso, pressiona- 
se simultaneamente uma ou mais de 
trés teclas de funcào — «GRAPH», 
« CODE» ou «SHIFT » —, com ou- 
tra tecla normal do teclado. Com isso, 
0 caractere desejado aparece diretamen- 
te na tela (por exemplo, dentro de uma 
cadeia alfanumérica). 

Com o programa abaixo, vocé verá 
como entrar caracteres pelo teclado. Ele 
desenha uma tabela simples na tela, 
usando blocos gráficos, e depois coloca 
os nomes digitados pelo usuário nas li- 
nhas da tabela. 

200 CLS 

210 PRINT" x 
220 PRINT” |No. | Nome 

230 PRINT” p= 
240 FOR I=1 TO 5 
250 PRINT” 

260 PRINT” H Е 
270 МЕХТ І 
280 PRINT” . 
290 PRINT” | 
300 FOR I-1 TO 6 

310 LOCATE 0,21:PRINT STRINGS (3 
0,32) 


3 
320 LOCATE 0,21:LINE INPUT "NOM 

















SÍMBOLOS GRÁFICOS 
ENTRADA PELO TECLADO 
AS FUNÇÕES 

CHR$ E STRING$ 





E TABELA DE REFERÊNCIA 





E: ";N$ 

330 LOCATE 1,(1*2)*1:PRINT USIN 

G "Wil: 

340 LOCATE 7,(1*2)*1:PRINT 

$(N$,10); 

350 NEXT I 

360 LOCATE 0,21:PRINT "FIM 
":END 


LEFT 


Os traços são teclados na seguinte se- 
qüéncia: 


Linha 210: <GRAPH> R 
(4 vezes) 


(11 vezes) 


<SHIFT><GRAPH> 
<GRAPH> F 
<GRAPH> - 
<GRAPH> G 
<GRAPH> - 
<GRAPH> H 


Linha 220: 
Linha 230: 
(4 vezes) 


(11 vezes) 
Linha 250: 


Linha 260; 
Linha 280: 


como a linha 220 
como a linha 230 
como a linha 220 


Linha 290: 
(4 vezes) 


(11 vezes) 


Há duas desvantagens nesta manei- 
ra de entrar caracteres gráficos. Primei- 
ro, as teclas não têm qualquer marca- 
ção que auxilie o usuário a achar o grá- 
fico correto; assim, é preciso consultar 
o manual, o que torna o processo bas- 
tante trabalhoso. Em segundo lugar, o 
programa não pode ser listado em uma 
impressora não gráfica, ou que não se- 
ja própria para o MSX. 


CAR 





ERES GRÁFICOS NO PROGRAMA 


Para especificar caracteres gráficos 
dentro de um programa, sem precisar 
digitá-los diretamente, podemos usar as 
funções CHR$ e STRING$: com o nú- 
mero de código do caractere desejado, 
elas permitem que os caracteres nor- 
mais, especiais e gráficos com códigos 
na faixa de 32 a 254 sejam impressos na 
tela a partir de um programa. Por exem- 




















CARACTERES GRÁFICOS DO MSX 











































































































Código Teclas Caractere Código Teclas Caractere 
1 GRAPH ' e 192 GRAPH U Шш 
2 SHIFT GRAPH’ 0 193 SHIFT GRAPHD PF 
3 SHIFT GRAPH” Ф 194 GRAPH 1 ы 
4 SHIFT GRAPHC 4 195 SHIFT GRAPHO O 
5 GRAPH ` + 196 GRAPH A E 
6 GRAPH С ^ 197 ЅНІҒТ СВАРНІ IB 
8 SHIFT GRAPH9Y Ш 198 GRAPH J D 
9 GRAPH 0 ° 199 GRAPH D m 
10 SHIFT GRAPHO E 200 GRAPH L m 
11 GRAPH M ғ 201 sHFTGRAPHL L] 
12 SHIFT GRAPHM 2 202 SHIFT GRAPHJ [N 
13 GRAPH ' 2 203 5нєт бвАРНО Ё 
14 SHIFT GRAPH’ Л 204 GRAPH Q N 
15 GRAPH Z ° 205 GRAPH E m 
16 SHIFT GRAPH G 13 + 206 SHIFT GRAPHE (4) 
17 GRAPH B + 207 GRAPH W bl 
18 GRAPH T + 208 SHIFT GRAPH w [4 
19 GRAPH H 4 209 SHIFT GRAPHS E 
20 GRAPH F F 210 GRAPH S [7] 
21 GRAPH G * 211 SHIFT GRAPHN E 

- 22 SHIFT GRAPH 5 1 212 SHIFT GRAPHF (g 
23 GRAPH - = 213 SHIFT GRAPHV (9 
24 GRAPH R r 214 SHIFT GRAPHH А) 
25 GRAPH Y 2 215 SHIFTGRAPHP Ë 
26 GRAPH V ù 219 GRAPH P и 
27 GRAPH N ә 220 GRAPH O ш 
28 GRAPH X x 221 GRAPH K г 
29 GRAPH / I 222 SHIFT GRAPHK 18 
30 GRAPH * x 223 SHIFT GRAPHU M 
31 SHIFT GRAPH- + 248 SHIFT GRAPHZ O 
169 SHIFT GRAPHR f^ 249 SHIFTGRAPHC — * 
170 SHIFT GRAPH Y 7! 250 SHIFT GRAPHX  * 
188 SHIFT GRAPHC © 254 SHIFT GRAPHA [* 























O repertório de caracteres gráficos 
do MSX é muito variado: inclui desde tipos 
especiais, como uma nota musical 

ou um rosto sorrindo, até blocos gráficos 
compondo linhas, ângulos e cantos. 

Para entrá-los pelo teclado, oriente-se 
pelo quadro de referência ao lado. Como 
você pode observar, será sempre necessário 
pressionar, simultaneamente, uma ou mais 
teclas de função e uma tecla normal. 








| 
! 
| 
f 
| 





ЕЛАС са ды 


— 








plo, para imprimir na tela a letra grega 
beta, digite: 


PRINT CHR$(225) 


Ou, então, para traçar uma linha re- 
ta de dupla espessura na tela, use: 


PRINT STRING$ (32,197) 


A função STRING$ (n,c) retorna 
uma cadeia de n caracteres com código 
c. Já os caracteres gráficos que se en- 
contram na faixa de 1 a 31 não podem 
ser impressos da mesma maneira, pois 
estes códigos têm funções de controle 
do vídeo. Para usá-los com a função 
CHRS, é necessário “avisar” o com- 
putador que o código será usado co- 
mo gráfico. Para isso, são emprega- 
dos dois bytes: CHR$(1), seguido de 
CHRS$(n + 64), onde n é o código do ca- 
ractere gráfico na tabela. Por exemplo, 
PRINT CHR$(1);CHR$(75) mostrará 





na tela o símbolo masculino. 

Esse método funciona também para 
a faixa de códigos gráficos que vai até 
191. O programa abaixo mostra na tela 
uma tabela de correspondência: 


10 KEY OFF:CLS:I=0 

20 FOR N=1 TO 6 

30 I-I*1:IF 1>191 THEN GOSUB 10 
0: END 

40 PRINT USING "444 ";I; 

50 PRINT CHRS(1)*CHR$(I*64);" " 


60 NEXT N 

70 PRINT:PRINT 

80 L-L*1:IF LX10 THEN 20 

90 GOSUB 100:L-0:GOTO 20 

100 LOCATE 0,22 

110 PRINT "Pressione qualquer t 
ecla p/continuar" 

120 IF INKEY$-"" THEN 120 

130 CLS:RETURN 


Se vocé substituir trés linhas — 10, 
30 e 50 —, o programa servirá também 





para mostrar os códigos gráficos de 128 
a 254. 


10 KEY OFF:CLS:1=127 

30 I=1+1:IF 1>254 THEN GOSUB 
100:END 

50 PRINT CHR$(I);" "; 


Caso pretenda utilizar um caractere 
gráfico da faixa de 1 a 31 com freqüén- 
cia num programa, armazene-o em uma 
variável alfanumérica, como mostra o 
exemplo abaixo. Os quatro símbolos dos 
naipes do baralho são armazenados em 
N$ (e seus nomes em E$): 


10 CLS 

20 FOR I=1 TO 4 

30 READ ES(I) 

40 N$(I)=CHR$ (1) +CHRS (1+66) 

50 PRINT N$(I),ES(I) 

60 NEXT I 

70 DATA Copas,Ouros,Paus,Espada 








ШЕШШ рордод 202 |(( 
EFEITOS SONOR! Os recursos sonoros do Spectrum são 
OS limitados, se considerarmos apenas 


o comando SOUND. Porém, com código 
de máquina, poderemos produzir vários 
sons, de sirene a tiros de laser. 


geral, o endereçamento da me- 
mória é uma função do microprocessa- 
dor. Na maioria dos computadores 
domésticos, quando queremos usar um 
aparelho externo — como uma impres- 
sora, um televisor ou mesmo o teclado 
do computador — temos que fazê-lo por 
meio de uma posição de memória que 
está ligada a uma porta de saída. Porém, 
com micros que usam o Z-80, como o 
Spectrum, por exemplo, pode-se ter 
acesso direto às portas, tanto em BA- 
SIC, com os comandos IN e OUT, co- 
mo em código de máquina, com in eout. 


ANS 


Uma porta é um canal de comunica- 
ção entre o microprocessador e o mun- 
do externo. Este inclui o teclado e tudo 
o que é periférico ao microprocessador, 
à RAM e à ROM. 

Já tivemos oportunidade de ver co- 
mo in é usado para dar acesso ao tecla- 
do. Os comandos OUT e out funcionam 
de modo semelhante, só que, em vez de 
receber dados, enviam-nos aos periféri- 
cos. Ambos têm acesso bem mais ver- 
sátil ao alto-falante do que o comando 
BASIC SOUND e podem ser usados, 
também, para controlar a moldura da 
tela. Entretanto, como o OUT é exces- 
sivamente lento, consideraremos apenas 
o comando out. 

Para gerar sons com out precisamos 
da velocidade da linguagem de máqui- 
na. Eles são obtidos por meio do movi- 
mento do cone do alto-falante para fora 
e para dentro. Movimentando-o uma 
vez, produzimos um clique, do tipo que 
se ouve ao ligar um aparelho de som. O 
truque está em repetir o movimento 
muitas vezes, e rapidamente. 

Teremos, assim, uma sucessão de cli- 
ques, que provocam um efeito similar 
a um zumbido. Quanto mais veloz for 
o movimento de vaivém do cone, mais 
agudo será o som resultante. 

A rotina Assembler apresentada a se- 
guir produz um som cuja tonalidade vai 
aumentando. Digite CLEAR 64599 e de- 
pois as linhas: 


10 REM org 64600 
20 REM ld a, (23624) 
30 REM rrca 





Jo 
8 
























40 ВЕМ ггса 

50 REM rrca 

60 REM 1d b,0 

70 REM loop push bc 
80 REM xor 16 

90 REM out 254,a 
100 REM pause nop 
110 REM nop 

120 REM djnz pause 
130 REM pop bc 

140 REM djnz loop 
150 REM ret 


A porta 254, que controla o alto- 
falante, controla também a moldura da 
tela. Para que um comando out nào mo- 
difique a moldura ao produzir um som, 
utiliza-se uma rotina em código destina- 
da a evitar o problema. 

Inicialmente, coloca-se no acumula- 
dor o valor da variável do sistema situa- 

















= A PORTA 254 W MODIFICAÇÃO DA MOLDURA 
Ш INSTRUÇÕES SHIFTEROTATE BE A ESCOLHA DA COR 
п O USO DO ALTO-FALANTE Mi ACERTO DO TEMPO 
п LAÇOS DE PAUSA W SINTONIA FINA 
а ACERTE O TOM Bi COMO DOBRAR À FREQUÊNCIA 





do na posição 23624 da memória. As 
cores do Spectrum têm códigos que vão 
de 0a 7. Normalmente, os bits que con- 
trolam a cor sáo os bits trés, quatro e 
cinco. Contudo, quando estamos con- 
trolando a moldura via porta 254, os 
bits zero, um e dois encarregam-se da 
modificação das cores. 

Assim, para se ter a certeza de que 
a cor da moldura não será modificada 
pelo efeito sonoro, os bits três, quatro 
e cinco devem ser destocados três posi- 
ções para a dir (para o lugar dos bits 
zero, um e dois). 


` SHIFTEROTATE 


O deslocamento dos bits pode ser 
executado por vários comandos. Utili- 
zamos aqui rrca (rotate right with carry, 
on the acumulator, expressão em inglês 
que significa rotação para a direita com 
“vai um” no acumulador). Essa instru- 
ção movimenta todos os bits que estão 
no acumulador uma posição para a di- 
reita. É chamada de rotação porque co- 
loca o conteúdo do bit zero no bit sete, 
fazendo-o ''dar a volta'', por assim di- 
zer, Um comando SHIFT — desloca- 





mento — moveria todo o conteúdo do 
acumulador um bit para a direita, mas 
preencheria o bit de reserva com zero. 
Seu emprego é mais adequado a opera- 
ções aritméticas: um SHIFT para a es- 
querda multiplica um número por dois, 
enquanto um SHIFT para a direita o di- 
vide por dois. 

Aqui, porém, utilizamos uma rotação 
porque queremos deslocar apenas três 
dos bits. O conteúdo dos demais não nos 
interessa, O comando rrea ainda copia 
o conteúdo do bit zero no bit carry — 
“vai um”. Mais uma vez, não importa 
o valor do carry. 

Para deslocar os bits de cor da mol- 
dura três posições para a direita, 
emprega-se rrea três vezes, o que equi- 
vale a dividir a cor da moldura por oi- 
to. Mas quando a cor — normalmente 
um número entre 0 е 7 — se encontrava 
nos bits três, quatro e cinco, estava mul- 
tiplicada por oito, 

Agora, quando usarmos o comando 
out, ele especificará a mesma cor de 
moldura que havia antes, e nenhuma 
mudança ocorrerá. 


ACERTE OS CONTADORES 


O registro B funciona como um con- 
tador duplo. Para começar, colocare- 
mos O nele, e este valor será guardado 
na pilha por push be. O registro B não 
pode ser guardado sozinho na pilha, já 
que os comandos de push e pop agem 
apenas em pares de registros. Precisa- 
mos, assim, guardar B juntamente com 
C. Como não usaremos o registro C, is- 
so não afetará o programa. 


COMO PRODUZIR SONS 


O bit quatro da porta 254 controla o 
alto-falante. Alternando o valor desse 
bit, movimenta-se o cone do alto-falan- 
te, produzindo som. 

Alterna-se o bit quatro por meio da 
operação lógica “ʻou exclusivo”. Faze- 
mos um “ou exclusivo” entre o valor do 
acumulador e dezesseis. Assim, se o bit 
quatro estiver ligado, valendo 1, ele se- 
rá desligado, passando a valer 0 — ou 
vice-versa. 





O out 254,a envia o conteúdo do acu- 
mulador via porta 254. Em muitos As- 
semblers comerciais os comandos out e 
im precisam de colchetes envolvendo o 
número da porta. 


ACERTE 0 ТІ 


A instrução nop, com o código hex 
0 0, significa “sem operação” — no 
operation. Ela não faz absolutamente 
nada, mas, como leva um certo tempo 
para ser executada — aproximadamen- 
te um microssegundo, ou seja, um mi- 
lionésimo de segundo —, atrasa o mi- 
croprocessador na realização do laço. 
Por essa razão, é usada duas vezes nes- 
te programa. A velocidade com que o 
microprocessador executa o laço contro- 
la a fregiiência de vibração do cone do 
alto-falante e, consequentemente, a to- 
nalidade do som produzido. 

Como você pode observar, os nop 
não são executados apenas duas vezes. 
A instrução djnz (decrementa e salta se 
não for zero) promove várias repetições 
da pausa. 

A instrução djnz opera com base no 
valor do registro B. Assim, na primeira 
execução do laço, ela decrementa o va- 
lor de B, que passa de 0 para 255. Em 
seguida, o laco é executado mais 255 ve- 


Quantas portas existem? 

Teoricamente, existem 64K portas 
— este é o maior nümero que pode ser 
enderecado por um par de registros de 
oito bits. Na prática, porém, utilizam-se 
apenas umas poucas portas. Quando 
seu Spectrum está na configuração ori- 
ginal, somente a porta 254 é usada. 

O comando in permite empregar di- 
ferentes parâmetros para dirigir a por- 
ta para as várias regiões do teclado. 
Neste artigo, recorremos a bits distin- 
tos, da mesma porta, para controlar pe- 
riféricos diversos. 

Se seu Spectrum for conectado a 
periféricos não usuais, talvez você te- 
nha a possibilidade de aproveitar outras 
portas. Conhecendo razoavelmente 
eletrônica, poderá, por exemplo, ligar 
seu micro a um sistema de aquecimen- 
to ou a um sintetizador, utilizando por- 
tas diferentes. 
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zes, até que B valha O novamente, 
Uma vez concluído o laço, o valor no 
topo da pilha é recuperado com pop e 
colocado no par BC. Com a recupera- 
ção do valor original de B, djnz o de- 
crementa e o microprocessador entra 
mais uma vez no laço. Esse processo le- 
va o valor de BC de volta à pilha. As- 
sim, o contador que fica na pilha é 
decrementado cada vez que o micropro- 
cessador executa o laço, e o valor ini- 
cial de B, que determina o número de 
execuções, torna-se menor. À medida 
que o número de execuções da pausa di- 
minui, a freqüência do som aumenta. 


MOLDURA COM SETE CORES 


Para especificar a cor da moldura uti- 
lizando o comando BASIC BORDER, 
atribuímos a ela um valor qualquer en- 
tre 0 e 7. Toda a moldura fica, entáo, 
com a cor correspondente. 

A rotina seguinte usa código de má- 
quina para criar uma moldura com sete 
cores. Poderíamos trabalhar com oito 
cores, mas não faria sentido ter na mol- 
dura uma tonalidade idêntica à da tela 
principal. 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


org 64600 
redo halt 
xor a 

loop out 254,a 
ld b,205 
pause ld e,2 
inner dec e 
jr nz, inner 
REM djnz pause 
REM ld d,a 

REM 1d a,$7F 
REM in a,254 
REM rra 

REM rts nc 

REM 1d a,d 

REM inc à 

REM cp 7 

REM jr nz,loop 
REM jr redo 


COMO SINCRONIZAR A TEL, 


A instrução halt aguarda a ocorrên- 
cia de uma interrupção para, depois, 
continuar o programa. No Spectrum, a 
interrupção ocorre a cada varredura da 
tela. Assim, halt inicia a rotina quando 
a varredura começa no alto da tela, sin- 
cronizando a posição da moldura com 
a borda superior da tela de TV. 

A instrução xor a executa um ‘‘ou ex- 
clusivo” entre o acumulador e ele mes- 
mo, o que constitui uma forma rápida 
de zerar o acumulador. O 0 é enviado 
pela porta 254, Como zero, em lingua- 
gem de máquina e em BASIC, corres- 





ponde a preto, a porção superior da tela 
adquire esta cor. 


STE A PAUSA 


Nesta rotina o tempo é essencial, O 
comprimento da pausa determina a lar- 
gura das bandas coloridas da moldura. 
Controla-se a pausa por meio de dois la- 
ços: o interno, que acerta o tempo gros- 
seiramente; e o externo, que o sintoniza 
de modo mais refinado. 

O laço interno é executado com base 


no registro E, que recebe o valor 2 atra- 
vés de 1d e,2, sendo decrementado por 
dec e. A instrução jrnz, inner realiza um 
salto relativo em direção ao rótulo in- 
ner, se o resultado não for zero. Assim, 
a cada execução do laço externo, o laço 
interno é executado duas vezes. 

O laço externo repete-se 205 vezes 
com o registro B. 1d b,205 coloca este 
valor no registro B, assim como o djnz 
que o decrementa, saltando enquanto o 
resultado não for zero. Nenhuma instru- 
ção deste tipo opera com o registro E; 
por causa disso, a subtração e o salto 
precisam ser feitos em duas instruções 
separadas. 

Se alterarmos tais valores, veremos 
que o valor colocado em E modifica 
bastante a largura das bandas, enquan- 
to o valor colocado no registro B tem 
um efeito bem menor. 


A OCORRÉNCIA DE UM BREAK 


Certamente, em algum momento, de- 
sejaremos sair desse lago. Para fazé-lo 
sem desligar seu micro, programe uma 
rotina de saída. 

A que apresentamos aqui verifica se 
a tecla <BREAK> foi pressionada, 
por meio da instrução in. 

Inicialmente, porém, 1d d,a coloca o 
valor do acumulador no registro D. Por 
um instante o acumulador será usado 
para outras coisas, е о registro D ficará 
desocupado, podendo servir de registro 
temporário. 

Em seguida, o acumulador é carrega- 
do com o valor hexadecimal 7F. Esse 
número especifica o canto inferior es- 
querdo do teclado. A instrução in a,254 
recebe o padrão de bits correspondente 
ao estado atual dessa parte do teclado, 
colocando-o no acumulador. 

O bit zero representa o estado da te- 
cla <BREAK>. Se esta não estiver sen- 
do pressionada, ele valerá 1; se estiver, 
seu valor será igual a 0. 

Para verificar isso, execute uma ro- 
tação, jogando o bit zero — que fica no 
extremo direito do byte — para o carry 
bit e checando, depois, o sinalizador 
carry. A instrução rra promove a rota- 
ção e rts nc retorna ao BASIC quando 
não há um *''vai um" — carry igual a 
zero ou “not carry”. Assim, quando 
pressionar <BREAK > e o bit zero pas- 
sar a valer zero, rts provocará o fim da 
rotina; caso contrário, esta continuará 
funcionando. 

Lembre-se de que um retorno condi- 
cional tem o mnemônico rts apenas em 
nosso Assembler. Outros Assemblers 
utilizam a forma ret. 








COMPLETE O CÍRCI 


Agora que temos uma saída da roti- 
na, o valor do acumulador é recupera- 
do por 1d a,d, já que estava tempora- 
riamente em D. 

A é incrementado para especificar a 
cor seguinte. A instrução emp 7 compa- 
ra o resultado com 7. Este é o número 
correspondente ao branco, cor da tela 
principal. Se o número no acumulador 
não é sete, jrnz,loop volta para enviar 
a cor da próxima banda. Quando este 
laço tiver contado de 0 а 7, о micropro- 
cessador vai à instrução jr redo, que re- 
torna ao início do programa, à espera 
de uma nova varredura da tela. 

Você pode estar estranhando o fato 
de não produzir sons por acidente ao 
mudar a cor da moldura. A rotina não 
afeta o bit que controla o alto-falante, 
O maior número que enviamos pela por- 
ta 254 foi 7, quando precisaríamos de, 
no mínimo, 16 para movimentar o alto- 
falante. 


EFEITOS SONOROS 





Veremos agora como criar um efeito 
sonoro mais complexo, com o coman- 
do out. A rotina apresentada a seguir 
produz um som de disparo laser, usan- 
do a combinação de um som cuja fre- 
quência é crescente com um som de 
freqúéncia decrescente. 

10 REM org 64600 
20 REM ld a, (23624) 
30 REM rrca 

40 REM rrca 

50 REM rrca 

60 REM ld b,0 

70 REM loop push bc 
80 REM xor $10 

90 REM out 254,a 
REM push af 

REM xor a 

REM sub b 

REM ld b,a 

REM pop af 

REM pausea nop 
REM djnz pausea 
REM xor $10 

REM out 254,a 
REM pop bc 

REM push bc 
REM pauseb nop 
REM djnz pauseb 
REM pop bc 

240 REM djnz loop 
250 REM ret 

As quatro primeiras instruções são 
exatamente iguais às do outro progra- 
ma de som. Têm a função de preservar 
a moldura. 

As duas seguintes — que estabelecem 
os valores iniciais de dois contadores, 


200 
210 
220 
230 


um no registro B e outro colocado na 
pilha a partir do registro B — também 
são iguais. O mesmo ocorre com as ou- 
tras duas, que usam “ou exclusivo” en- 
tre os bits quatro e dezesseis e mandam 
o resultado pela porta 254. Desta vez, 
porém, xor é seguido de $10 — 16, em 
hex. Isto produz o som. 

O push guarda o conteúdo do acu- 
mulador na pilha, junto com o registro 
F. Os registros só podem ser guardados 
em pares. A instrução xor a limpa o acu- 
mulador e sub b subtrai B de 0 — con- 
teúdo do acumulador. Na prática, 
porém, inverte-se o conteúdo de B. 
Quando B é 255, obtemos 1 como resul- 
tado da subtração; quando B é 1, obte- 
mos como resultado 255. 

O 1d b,a coloca o resultado da sub- 
tração de volta em B. O acumulador que 
estava na pilha é novamente recupera- 
do, retornando ao acumulador. 

Temos, então, um laço de pausa 
cuja duração depende do conteúdo de B 
— lembre-se de que djnz decrementa o 
registro B e verifica se o resultado é ze- 
ro. O valor do bit quatro é invertido e 
enviado ao alto-falante. 

O pop recupera da pilha o valor ini- 
cial de B. Como este valor será utiliza- 
do mais adiante, é guardado novamente 
na pilha, depois de ter sido copiado em 
B. Agora ele se encontra, portanto, na 
pilha e em B. 

A próxima pausa depende desse va- 
lor inicial de B, que mais uma vez é re- 
cuperado da pilha. O mesmo ocorre 
sempre que se executa uma instrução 
djnz, para restaurar o valor de B. Quan- 
do o processador sai de um laço djnz, 
o valor de B tem que ser zero. 

O valor inicial de B é, então, dimi- 
nuído. Não sendo zero, o processador 
retorna ao início do laço e executa-o no- 
vamente, com um valor menor que o de 
B. Na passagem 256, quando B se tor- 
na 0, o processador passa à instrução ret 
e retorna ao BASIC. 

Você verá que o laço pausea é execu- 
tado 256 vezes na primeira passagem, 
uma vez na segunda e uma vez mais a 
cada nova passagem. O laço pauseb, por 
outro lado, é feito 256 vezes na primei- 
ra passagem e uma vez a menos a cada 
nova volta. 


ICAO DE SONS NATURAIS 


Os sons que os computadores produ- 
zem parecem artificiais porque sào mui- 
to puros. Instrumentos musicais e outros 
aparelhos que produzem sons tendem a 
ser bastante irregulares na maneira de 
produzi-los. Mas é justamente esta carac- 
terística de acaso que lhes assegura efei- 








FAÇA MÚSICA NO SPECTRUM 

O código out permite a produção de 
música em seu micro. Mas esteja pre- 
parado: não é fácil executar os ajustes 
necessários para obter a frequência 
correta. 

O uso de uma rotina com dois parâ- 
metros — relacionados à freqüéncia e 
à duração — simplifica bastante a ta- 
refa. E esta rotina existe na ROM. Cha- 
mada de rotina BEEP, começa no en- 
dereço 03f8. Existe ainda uma rotina 
adicional chamada BEEPER, que utiliza 
o valor em HL, para controlar a frequên- 
cia, e o valor em DE, para controlar a 
duração. 

O valor que se deve usar em HL é 
dado por 437500/f-301 125, onde f é 
a frequência da nota. Multiplicando a 
frequência pela duração desejada, 
obtém-se o valor a ser colocado em DE. 








Com este método, não é preciso obser- 
var o limite usual de 10 segundos para 
a duração da nota. 

Se você chamar a rotina BEEP dire- 
tamente, deverá colocar na pilha os 
mesmos valores de duração e frequên- 
cia que são empregados num coman- 
do SOUND comum. 





tos tão agradáveis. Um instrumento não 
toca apenas o som fundamental, mas 
também os harmônicos. 

Existe uma maneira de introduzir um 
elemento de acaso nos sons produzidos 
pelo Spectrum. A RAM, entre 16384 e 
32767, fica em circuitos integrados que 
são geralmente interrompidos por um 
dispositivo que cuida da tela de TV e 
executa ainda outras tarefas. 

Normalmente, essas interrupções são 
quase imperceptíveis, de tão curtas — 
em geral duram uns poucos microsse- 
gundos. Mas a relação entre os sons e 
o tempo é tão estreita que o ouvido po- 
de captar variações mínimas. Assim, co- 
locando o programa gerador de sons 
nessa área da memória, eles soarão bem 
mais naturais — e terão uma duração 
um pouco maior. 

No nosso caso, a experiência não po- 
derá ser feita, pois nosso Assembler ocu- 
pa essa área da memória. Contudo, se 
não estiver usando uma impressora, ten- 
te montar o programa em seu buffer, ca- 
so ele caiba ali. O buffer vai de 23296 
a 23532 — assim, use 23296 como ori- 
gem. Não é preciso proteger esse espa- 
ço, pois o buffer está a salvo de ser 
apagado pelo BASIC. 


ЇЇ НЕЕ ЕЕ 
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SUA LIGAÇÃO 
COM O MUNDO 


CONEXÃO COM O MUNDO 
COMPRAS EM CASA 
TELETEXTO E VIDEOTEXTO 

ш LIGAÇÃO EM REDE 
п TIPOS DE MODEM 











Se você deseja explorar plenamente o 
potencial de seu micro, faça-o 
comunicar-se com outros computadores, 
utilizando o modem como elo 

de ligação entre ele e o mundo. 


Dos computadores pode-se dizer que, 
como homens, nenhum deles é uma 
ilha... Pois até mesmo os mais modes- 
tos dentre eles podem ser conectados ao 
sistema telefônico e, em consequência, 
a alguns dos mais poderosos “cérebros 
eletrônicos” e bancos de dados da Ter- 
ra. Ligado desse modo, um micro nos 
proporciona acesso a quantidades ines- 
gotáveis de informação. 

Um computador, um dispositivo de 
ligação chamado modem, um telefone 
e um software muito simples: eis tudo 
o que é preciso para realizar esse mila- 
gre da informática. 

A comunicação entre computadores 
se dá de três modos básicos: por meio 
de linhas telefônicas ou de ondas de rá- 
dio (ou ambos, em alguns casos); atra- 
vés da co-participação no mesmo siste- 
ma de armazenamento de informação 
(que, na prática, significa co-participa- 
ção na mesma unidade de disco); ou 
com a ajuda de um simples cabo que co- 
necte dois aparelhos — neste caso, ca- 
da um deles pode compartilhar o pro- 
cessador e a memória do outro. 








Ô, ALI 
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Dessas opções, a primeira é sem dú- 
vida a mais excitante, pois representa 
um passo à frente para quem é entusias- 
ta dos computadores pessoais. 

Atualmente, já é possível obter, a 
preços razoáveis, equipamento e softwa- 
re que farão com que o seu aparelho se- 
ja capaz de conversar com outro em 
qualquer lugar do globo, usando as mes- 
mas linhas empregadas pelos sistemas de 
telecomunicações. 

O sistema telefônico proporciona 
acesso a uma imensa faixa de facilida- 
des, como o intercâmbio de software e 
a ampliação dos serviços de notícias e 
informações, que hoje custam muito ca- 








ro, quando realizados pelos meios con- 
vencionais (tele-trabalho). 

Com um computador e um modem, 
vocé pode consultar listas de compras, 
examinar ilustracóes de produtos para 
venda, comparar precos, pagar contas 
instantaneamente, verificar de modo au- 
tomático como andam as suas finanças, 
e fazer quase tudo o que quiser, sem sair 
de casa. 

Para trabalhar juntos, uma secretá- 
ria e seu chefe, por exemplo, não preci- 
sam estar na mesma sala, no mesmo edi- 
fício ou na mesma cidade. Basta para is- 
so que usem formas de comunicação por 
computador. 

Assim, tendo esboçado uma carta no 
micro, o chefe pode enviar todo o ras- 
ho, com erros ortográficos e de gra- 
mática, à sua secretária, que o corrigirá, 
o formatará de modo a torná-lo apre- 
sentável e o enviará. 


BOLETINS 


Diversos sistemas telemétricos, como 
o videotexto e o Cirandão, permitem 





que o usuário estabeleça a sua própria 
“caixa postal’, Assim, se ele quiser en- 
trar em contato com outro usuário, po- 
de ““escrever'” uma carta no processa- 
dor de textos do micro, e guardá-la na 
“caixa postal” do destinatário. Este úl- 
timo, por sua vez, poderá copiá-la em 
seu microcomputador, a fim de lê-la 
mais tarde. Certamente, tanto quem en- 
via como quem recebe a carta deve ter 
um computador ligado à rede. Um Cor- 
reio Eletrônico desse tipo constitui uma 
poderosa ferramenta, e representa um 
grande progresso em relação aos bo- 
letins. 


Muitas das aplicações mais interes- 
santes para a comunicação entre com- 
putadores envolvem pequenos aparelhos 
com acesso a um grande “'cérebro ele- 
trônico”. Entretanto, outras combina- 
ções são possíveis. 

Uma vida solitária? Talvez, mas não 
necessariamente. Também é possível 
contatar outras pessoas com os mesmos 

















interessses em computadores. Em alguns 
casos, independentemente do lugar do 
mundo em que estejam essas pessoas, O 
custo do contato com elas pode ser tão 
pequeno quanto uma simples ligação te- 
lefônica local. Você pode chamar aqui- 
lo que é conhecido por boletim (bulle- 
tin boards, em inglês, comumente tra- 
duzido para “quadro de avisos") para 
ler mensagens enviadas por outras pes- 
soas e também deixar suas próprias 
mensagens. Existem boletins programa- 
dos para vários propósitos. 

Se você decidisse abandonar o con- 
forto de seu lar e aventurar-se a sair pelo 
mundo afora, poderia deixar registrado 
quase tudo no computador — despesas 
com táxis e hotéis, dias de férias, entra- 
das para teatro, passagens de avião, e 
muito mais. 

Mesmo que surjam problemas nas li- 
gações de computadores (causados so- 
bretudo por falhas no estabelecimento 
de padrões comuns), quase sempre se dá 
um jeito; muitos desses trabalhos pio- 
neiros são realizados por amadores e es- 
tudantes entusiasmados e seus professo- 
res em universidades e outros estabele- 
cimentos de ensino superior. 

O crescimento do interesse em comu- 
nicações entre computadores e as indi- 
cações de que esta será a área de explo- 
ração que mais se desenvolverá no fu- 
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turo refletem-se claramente no fato de 
que mais e mais boletins computadori- 
zados estão sendo criados em todo o 
mundo (inclusive no Brasil). 

Embora possam ser feitos pelo pró- 
prio usuário, os boletins são, em sua 
maioria, montados por empresas, geral- 
mente especializadas no ramo da eletrô- 
nica, Alguns desses “boletins empresa- 
riais”” reservam um espaço para os usuá- 
rios comuns, enquanto outros ocupam 
a área do quadro apenas para publicar 
seus serviços e benefícios. Ultimamen- 
te, porém, o setor de maior crescimen- 
to tem sido o dos boletins criados por 
amadores e universitários. 


COMPRAS EM CASA 


Ainda há quem imagine que essa apli- 
cação da comunicação entre computa- 
dores pertence ao domínio da ficção 
científica, e que será necessário esperar 
muitos anos, até que seja possível reali- 
zar, por exemplo, compras por intermé- 





«Quanto 
dijero ainda 





rece que tenho 
ы suficiente 
no banco, .de que 
vou ао Cinema... 
tenho que ar 
porque o ônibus 





dio de um terminal de vídeo em casa. 
Entretanto, tudo isso já é possível atual- 
mente. Nos países mais desenvolvidos, 
muitas pessoas utilizam esse sistema, e 
estão tão familiarizadas com ele, que as 
telecompras já fazem parte de sua roti- 
na diária. No Brasil, o sistema videotex- 
to oferece essa possibilidade em várias 
capitais. 

Nos lugares em que isso já acontece, 
você pode usar o seu computador para 
ter acesso instantâneo a informações so- 
bre produtos, ofertas especiais e preços 
em um grande número de lojas. Ou po- 
de pedir serviços e pagá-los com a sim- 
ples digitação de algumas teclas. O “'tra- 
balho” é feito por um computador cen- 
tral. Ele contém toda a informação e 
também faz a transferência eletrônica de 
dinheiro da conta do cliente no banco 
para a conta da loja. 


TELETEXTO E VIDEOTEXTO 


Igualmente crescente é o número de 
serviços de teletexto e videotexto, aos 
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quais é possível conectar até mesmo pe- 
quenos micros domésticos. O serviço de 
teletexto — que ainda não existe no Bra- 
sil — é o que sai mais barato para o 
usuário, pois não é interativo. Desenvol- 
vido na Inglaterra, esse serviço segue 
dois padrões adotados em vários países: 
o ORACLE (executado pelas compa- 
nhias de televisão independentes) e o 
CEEFAX (executado pela BBC). Com 
o teletexto, o usuário utiliza um televi- 
sor adaptado para receber em casa mi- 
lhares de páginas de informação (textos 
e figuras, por exemplo), que são mos- 
tradas no vídeo. Não é necessário o te- 
lefone, pois as páginas são enviadas por 
radiodifusão, no intervalo entre uma te- 
la e outra da programação normal de 
тү. 


Enviar e carregar programas são duas 
funções de grande interesse em comu- 
nicação de computadores; elas podem 
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ser desempenhadas tanto no videotexto 


































quanto no teletexto. Programas podem 
ser transmitidos também por TV ou por 
rádio. Porém, os programas do teletex- 
to tém uma vantagem: eles podem ser 
carregados diretamente no micro, en- 
quanto os programas obtidos por meio 
do rádio precisam ser primeiramente 
gravados em fita para, só entáo, serem 
carregados pelo modo normal. 

A única desvantagem do teletexto é 
que, como ele usa sinais de radiodifu- 
são, a comunicação se dá apenas em um 
sentido. Já o videotexto (que emprega 
uma linha telefônica para estabelecer co- 
municação) é bidirecional. Isto signifi- 
ca que a sua máquina pode “'conversar”” 
com o computador central do videotex- 
to. Na realidade, a rede de videotexto 
pode incluir vários computadores regio- 
nais interligados, todos oferecendo ba- 
sicamente o mesmo serviço. Essa mul- 
tiplicidade de computadores ajuda a 
manter baixo o preço do sistema para 
o usuário, que já paga taxas altas só pa- 
ra usar o telefone. Quanto mais perto 
o computador estiver do assinante, mais 
barata será a ligação. 

Outro serviço público de telecomuni: 
cação entre computadores, bem mais 
ferenciado e sofisticado que o videotexto 
€ o teletexto, é constituído pelas redes 
de microcomputadores, como por exem- 
plo o sistema Cirandão, da empresa es- 
tatal Embratel. Esse sistema proporcio- 
na aos proprietários de micros a possi- 











bilidade de conversarem entre si, empre- 
gando uma rede de correio eletrônico 
(“саіхав postais”). Além disso, ele ofe- 
rece também muitos outros serviços de 
“boletim computadorizado”, teleconfe- 
rência, consulta a bancos de dados, e re- 
cepção e transmissão de programas de 
computador. 

Uma desvantagem de sistemas com 
muitos usuários e que utilizam a rede te- 
lefônica normal, como o Cirandão, é a 
sua baixa velocidade de transmissão, Is- 
so acontece porque as redes telefônicas 
brasileiras não suportam um ritmo mui- 
to intenso de transmissão, sem degrada- 
ção do sinal. Por isso, usuários profis- 
sionais (bancos, por exemplo) são obri- 
gados a recorrer a redes especiais de 
transmissão em alta velocidade, como é 
o caso de outro serviço da Embratel, o 
Transdata. 

O Transdata permite enviar e receber 
informações em uma faixa maior de ve- 
locidade, o que significa também que 
computadores de diferentes tamanhos e 
velocidades podem compartilhar os ser- 
viços. Estes, porém, são muito mais ca- 
ros do que os cobrados pelo Cirandão 
e pelo videotexto. 

O acesso a bancos de dados e redes 
de computadores situados em outros 
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computador! 











países é possível por intermédio do ser- 
viço Interdata da Embratel. 





RREIO ELET! 


Uma rede pode interligar um compu- 
tador principal, microcomputadores e 
qualquer espécie de periféricos. O jor- 
nal norte-americano New York Times, 
por exemplo, usa os três tipos de com- 
putador em um dos mais sofisticados 
sistemas de produção de informações. 
Em sistemas dessa envergadura, muitas 
pessoas que trabalham em escritório po- 
dem usar o seu próprio terminal ligado 
a um minicomputador, enquanto outro 
terminal no escritório se comunica com 
um computador principal. 

Desse modo, o trabalho do dia-a-dia, 
no caso de uma redação de jornal, po- 
de ser preenchido por um simples mini- 
computador, enquanto o computador 
central é reservado para o uso da admi- 
nistração da empresa e para os bancos 
de dados principais. 

Por outro lado, os jornalistas que es- 
tiverem trabalhando fora da redação po- 
dem valer-se de um microcomputador 
com um modem para ter acesso aos ban- 
cos de dados, visando obter informações 
para suas reportagens. Estas podem ser 
igualmente enviadas à redação por meio 
de um computador e um modem. 

Em muitos países, é comum o fato de 
jornalistas (**cobrindo'', por exemplo, 
uma partida de futebol ou uma corrida 
de Fórmula-1) utilizarem diretamente 
um teclado e um vídeo, em lugar de uma 
máquina de escrever. Ao serem aperta- 
das algumas teclas, o resumo e o resul- 
tado do jogo sáo instantaneamente en- 
viados ao computador da redação. 

Como os fabricantes de computado- 
res ainda não se ajustaram à necessida- 
de de estabelecer padrões comuns inter- 
nacionais, a comunicação entre compu- 
tadores não é, por enquanto, tão fluida 
como se poderia desejar. Entretanto, os 
problemas que concorrem para isso es- 
tão sendo solucionados e, aos poucos, 
os computadores vão se tornando com- 
patíveis entre si. Isso tem acontecido 
principalmente no caso da comunicação 
entre computadores por intermédio de 
linhas telefônicas. 


SEGURANCA 


O fato de computadores diferentes 
poderem se comunicar uns com os ou- 
tros através de linhas telefónicas agra- 
da muitos possuidores de micros, mas 
assusta universidades e grandes empre- 
sas, bancos e agéncias do governo. O 





problema é que tais instituições também 
utilizam esse tipo de comunicação. Isto 
as torna vulneráveis pois, apesar das me- 
didas de segurança adotadas pelas au- 
toridades para garantir a confidenciali- 
dade das informações armazenadas e 
transmitidas, seus computadores são, 
vez por outra, “invadidos” por usuários 
não autorizados. 

Esse é o tema do filme Jogos de 
Guerra, que foi objeto de muita contro- 
vérsia, especialmente nos Estados Uni- 
dos, onde a fraude em sistemas telemé- 
tricos tem causado prejuízos de milhões 
de dólares. 

Os crimes eletrônicos são favorecidos 
pela relativa facilidade com que se pro- 
cessa a comunicação entre computado- 
res. Em vez da violência física, os cri- 
minosos utilizam, nesse caso, métodos 
bem mais sutis e sofisticados. Um dos 
maiores problemas com que se defron- 
tam as instituições fraudadas tem sido, 
aliás, saber se estão realmente sendo 
roubadas. Como muitos serviços são fei- 
tos por meio de linhas telefônicas, a in- 
vestigação do crime eletrônico vai se tor- 
nando cada vez mais difícil, particular- 
mente quando o próprio criminoso po- 
de efetuar a mudança dos registros re- 
lativos ao crime. 


OUTROS MEIOS DE COMUNICAÇ 


Os telefones não são o único meio de 
comunicação entre computadores. On- 
das de rádio também podem ser usadas, 
desde que haja dois computadores co- 
nectados a equipamentos capazes de 
transmiti-las e recebê-las. 

As fibras ópticas são atualmente o 
meio pelo qual a comunicação entre 
computadores se processa de modo mais 
rápido. Nesse caso, a informação é co- 


dificada em impulsos de luz e transmi-. 


tida por meio de finos fios de vidro. Es- 
sa nova tecnologia parece ser mais efi- 
ciente do que qualquer outro método co- 
nhecido: ela faz com que a informação 
viaje à velocidade da luz. As comunica- 
ções por fibra óptica já passaram da fase 
experimental, e estão sendo usadas em 
diversos países, inclusive no Brasil. 
Os raios infravermelhos também vêm 
sendo testados como meio de comuni- 
cação entre micros numa mesma sala. 
A vantagem principal é que se elimina 
o ““cipoal”” de fios que acompanha toda 
grande instalação de computadores. 


TORRE DE BAB 


Não importa o meio de comunicação 
sempre existirá problema de escolhido: 


compatibilidade. Isso acontece porque 
um micro só pode se comunicar com ou- 
tro micro (ou com outro dispositivo pe- 
riférico) por intermédio da interface cor- 
reta. Sem a interligação correta de ca- 
bos e soquetes e um código que as duas 
máquinas entendam, a comunicação 
torna-se impossível. 

A linha telefônica é usada para car- 
regar informações de um computador 
para o outro através de longas distân- 
cias. Entretanto, ela aceita apenas sinais 
seriais. 

Isso não significa que os computado- 
res com interfaces paralelas não sejam 
capazes de enviar sinais pela linha tele- 
fônica. Existem circuitos eletrônicos e 
programas disponíveis que tornaram 
possível essa emissão. Tais dispositivos, 
porém, podem sair mais caros do que o 
próprio computador. 

Um dos problemas com o uso de te- 
lefone para comunicação entre compu- 
tadores é que estes carregam informa- 
ções em impulsos ou pulsos elétricos dis- 
cretos e separados. Mas os telefones 
atuais são projetados para transmitir a 
voz humana — que é um sinal analógi- 
co, contínuo e variável. Assim, o dado 
de um computador precisa ser conver- 
tido em um sinal similar. 


DEMS 


O equipamento usado para conver- 
ter os dados do computador em sinais 
que possam ser transmitidos através das 
linhas telefônicas, e vice-versa, é o mo- 
dem. A palavra é uma abreviação de 
MOdulador/DEModulador, que é a des- 
crigáo da fungáo do modem. 

Existem dois tipos de modem, o aco- 
plador acústico e o modem de conexáo 
direta. Ambos variam de formas e ta- 
manhos, mas estão geralmente contidos 
em uma caixa. O acoplador acústico tem 
duas alças de borracha para acomodar 
o bocal do aparelho telefônico. 

O acoplador acústico é conectado ao 
micro e transforma seus sinais em tons 
que podem ser enviados pela linha tele- 
fónica. Ele também converte tons de en- 
trada vindos de outro computador em 
informações digitais que o computador 
receptor pode entender. 

Já o modem de conexão direta codi- 
fica (ou modula) o dado do computa- 
dor diretamente em sinais elétricos e de- 
codifica (ou demodula) a informação de 
entrada em bits seriais entendidos pelo 
computador. Esses modems podem 
transmitir informações a velocidades 
maiores que os acopladores acústicos e 
são menos propensos a erros. 
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2 COMO ABRIR CANAIS 
M — USE TABELAS DE REFERENCIA 
COMO MODIFICAR APONTADORES 


Incluído nos programas de animacáo 
gráfica para os micros 

das linhas Spectrum e TRS-Color que 
apresentamos aqui, o gerador 
gráfico descomplicará a sua vida. 











Em artigo anterior da seção Código 
de Máquina, instruímos os usuários do 
TK-90X e do TRS-Color a inserirem da- 
dos para a montagem de um quadricu- 
lado que poderia ser usado na criação 
de caracteres gráficos (UDG). Nesse ar- 
tigo, apresentamos um pequeno progra- 
ma em linguagem de máquina no qual 
foram inseridos alguns números cujo 
significado — afirmávamos — não pre- 
cisava ser compreendido naquele 
momento. 

Mas agora, com os conhecimentos 
que você já adquiriu a respeito da lin- 
guagem de máquina, é possível abordar 
o que significam esses números. Para fa- 
cilitar sua compreensão, decodificamos 
os números que estavam em Assembler, 
transformando-os em mnemônicos. 

Os usuários do MSX, do Apple e do 
TK-2000 não precisam se preocupar com 
isso, pois os programas para esses mi- 
cros empregam sprites e figuras móv 
para criar os caracteres gráficos, náo 
exigindo assim rotinas em código de 
máquina. 














defb 22 defb 155 
defb 0 defb 22 
org 65200 defb 0 defb 0 
3r start defb 144 defb 0 
mode defb 1 defb 145 defb 156 
data defb 22 defb 146 defb 157 
defb 0 defb 22 defb 158 
defb 0 defb 0 defb 22 
defb 32 defb 0 defb 0 
defb 32 defb 147 defb 0 
defb 32 defb 148 defb 159 
defb 22 defb 149 defb 160 
defb 0 defb 22 defb 161 
defb 0 defb 0 start ld a, (mode) 
defb 32 defb 0 cp 1 
defb 32 defb 150 ld bc,18 
defb 32 defb 151 3r z,print 
defb 22 defb 152 jr c,reset 
defb 0 defb 22 sla c 
defb 0 defb 0 jr print 
defb 32 defb 0 reset ld c,0 
defb 32 defb 153 print ld ix,data 


defb 32 defb 154 add ix,bc 








ld a, (23689) 


ld b,a 

ld a,24 
sub b 

ld (ix+1),a 
inc a 

14 (іх%7),а 
іпс а 


ld (ix*13),a 
ld a,(23688) 
ld b,a 

ld a,33 

sub b 

ld (1x+2),a 
1d (ix+8),a 
ld (1x+14),a 
push ix 

ld a,2 

call 81601 
pop de 

ld bc,18 
call $203C 
ret 


A primeira instrução faz com que o 
processador passe para o início do pro- 
grama propriamente dito, saltando so- 
bre a longa lista de dados que a segue. 
Evidentemente, poderíamos chamar o 
programa na primeira instrução que 
aparece após a lista de dados; mas, co- 
mo veremos a seguir, é mais fácil 
chamá-lo pelo endereço de origem. 

O primeiro byte de dados, situado lo- 
go depois do rótulo mode, diz ao pro- 
grama que quadro deve ser usado. O 
BASIC dá um РОКЕ 0, 1 ou 2 nessa po- 
sição. O UDG 0 é um quadro vazio que 
serve para limpar a tela; e os quadros 
1 е 2 são caracteres UDG (por exem- 
plo, tanques de guerra, cada um apon- 
tando para uma direção). Se nenhum 
número for especificado, a rotina assu- 
mirá o valor 1 para o quadro. 





os S DO UDG 





Depois do rótulo DATA, aparecem 
os detalhes de três quadriculados. O 
Spectrum desenha seus UDG na forma 
de cadeias, mas primeiro tem que ser in- 
formado sobre em que lugar colocá-los. 
As instruções para isso também estão 
contidas na cadeia de dados: 22 é o có- 
digo para o AT em BASIC e os dois ze- 
ros são bytes vazios que a rotina uti 
zará mais tarde para definir a posição 
de impressão. 

As três séries de três números 32 for- 
mam o quadro vazio de 9 x 9. O núme- 
ro 32 é o código ASCII para o caracte- 
re de espaço. Cada série de três forma 
uma linha do quadro e deve ser preci 
dida pelo seu próprio AT e pela posição 
de impressão. Esse é o quadro 0. 

O quadro. 1 é feito dos UDG de 144 





B a 152. Nos dados, eles vêm em grupos 
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de três com um AT e dois bytes livres 
para a posição de print. O quadro 2 é 
feito dos UDG de 153 a 161. 


O ld a, (mode) carrega o número in- 
serido, via POKE, no byte mode do acu- 
mulador, e cp 1 o compara com 1. 

O par de registradores BC é então 
carregado com 18. Na realidade, o nú- 
mero 18 vai para o registrador C, en- 
quanto o B fica vazio. O que interessa 
durante a rotina principal é o valor do 
registrador C; mas o registrador vazio 
B será usado mais tarde, quando cha- 
marmos rotinas da ROM. 

Se o número do mode carregado no 
acumulador for 1, cp 1 ajustará para es- 
se número o indicador de zero. Entáo, 
jrz, print saltará para a rotina de nome 
print. Lá, o registrador IX é carregado 
com.o endereço do primeiro byte de da- 
dos do UDG e somado com o conteúdo 
do par BC, 18. 

Cada quadro contém dezoito bytes de 
dados: nove para caracteres UDG, três 
para os AT e seis para posições de im- 
pressão. Isso faz o registrador IX pas- 
sar sobre o quadro O e ir para o começo 
do quadro 1. Se o número do mode for 
0, ер 1 ligará o indicador de carry. Em 
seguida, jr c,reset saltará para o rótulo 
reset e carregará C com 0, A instrução 
add ix,bc somará entào IX ao endere- 
ço do rótulo data, deixando IX apon- 
tando para o começo do quadro vazio. 

Se o número do mode não for O nem 
1, deverá ser 2. Nesse caso, o processa- 
vai para a instrução sla c. Esta sig- 
“rotação aritmética para a esquer- 
da” e age sobre o registrador C. Ela mo- 
ve todos os bits uma casa á esquerda, 
multiplicando por 2 o conteúdo do re- 
gistrador. 

Assim, ela duplica o 18 (que vai pa- 
ra 36) e salta para o rótulo print. Quan- 
do BC for somado ao apontador IX, es- 
te último será transferido 36 bytes as 
ma na lista de dados, parando na posi- 
ção do começo do quadro 2. 


AS POSIÇÕES DE IMPRESSÃO 


A variável de sistema em 23 689 con- 
tém a posição de impressão vertical. 
Ora, a posição de impressão especifica- 
da pelo BASIC é a do topo do quadro. 
Essa variável conta de 1 a 24 de baixo 
para cima da tela, e não ao contrário, 
como em BASIC. Portanto, ela deve ser 
transferida para o registrador B; depois, 
24 é carregado em A e o valor de B é 
subtraído dele. 














O apontador IX contém o endereço 
do primeiro byte do quadro que a roti- 
na irá desenhar. Então Id (ix + 1),a car- 
rega a posição vertical de impressão do 
topo do quadro no próximo byte da lis- 
ta de dados (o primeiro O que estiver 
vazio). 

A é então incrementado para forne- 
cer a posição vertical de impressão da 
próxima linha de caracteres UDG do 
quadro. Isso é carregado no oitavo byte 
da lista por ld (ix + 7),a. Depois, A é in- 
crementado novamente para a terceira 


































































































































































linha e isso é carregado no décimo quar- 
to byte. 

Essa operação carregou as posições 
verticais de impressão nos bytes vazios 
logo após o código do AT, 22. 

As posições horizontais de impressão 
provenientes da variável de sistema 
23 688 são então carregadas no acumu- 
lador. Mais uma vez, essa operação é 
feita detrás para a frente, se comparada 
ao que acontece no BASIC. Portanto, 
a posição horizontal é carregada em B; 
A é carregado com 33 e B é subtraído 
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de A para fornecer corretamente a po- 
sigáo de impressáo. 

Como cada linha comega na mesma 
posigáo horizontal, isso significa que o 
mesmo valor de A pode ser carregado 
em outros espaços vazios na lista de da- 
dos. As instruções adequadas para fa- 
zer isso são ld (ix+2),a, Id (ix+8),a e 
ld (ix + 14),a. 

O apontador IX é então “empurra- 
do” para a pilha, protegido contra uma 
eventual alteração causada pela rotina 
da memória ROM que está prestes a ser 



































































chamada. A é carregado com 2, e a ro- 
tina de abertura do canal em 1 601 é 
chamada. O 2 no acumulador define o 
canal a ser usado quando o processador 
vai para uma sub-rotina. O canal 1 é a 
linha de edição na parte inferior da te- 
la; o canal 2 é a tela principal; é o 3 a 
impressora. 

O apontador IX que foi guardado na 
pilha é então recuperado no par DE. De- 
pois, BC é carregado com 18, e a rotina 
de impressão de cadeia em 2 032 é cha- 
mada. Essa rotina imprime BC caracte- 
res, começando em DE. Portanto, ela 
prime os dezoitos caracteres que com- 
põem o quadro, a começar do endereço 
base que está no apontador IX. 

“Feito isto, ret retorna o processador 
para o BASIC. 


ORG 32000 
LDX 32700 
LDA 43 

STA FCNT 
STA SCNT 
LDA 48 

STA TCNT 
LDA 32250 
BEQ JUMP 
LDU 432300 
DECA 

LDB 472 
MUL 

LEAU D,U 
LDA ,U+ 
STA ,Х 
LEAX 32,X 
DEC TCNT 
BNE LOOP 
LDA 48 

STA TCNT 
LEAX -255,X 
DEC FCNT 
BNE LOOP 
LDA 43 

STA FCNT 
LEAX 253,X 
DEC SCNT 
BNE LOOP 
RTS 

CLRB 

STB ,x 
LEAX 32,X 
DEC TCNT 
BNE STLP 
LDA 48 

STA TCNT 
LEAX -255,X 
DEC FCNT 
BNE STLP 
LDA 43 

STA FCNT 
LEAX 253,X 
DEC SCNT 
BNE STLP 
RTS 
RMB 1 
RMB 1 
RMB 1 





Loop 


JUMP 
STLP 


FCNT 
SCNT 








O endereço de tela correspondente ao 
canto superior esquerdo do quadricula- 
do é armazenado nas posições de memó- 
ria 32 700 e 32701 pelo programa BA- 
SIC; LDX carrega esse apontador de 
dois bytes no registradorde X dezesseis 
bits. O número 3 é carregado no acu- 
mulador e armazenado nos dois conta- 
dores de nomes FCNT e SCNT. O qua- 
driculado contém 3 x 3 caracteres. 

Esses contadores aparecem na lista de 
dados no fim do programa. Aqui, o es- 
paço que o contador vai ocupar é reser- 
vado por RMB (reserva byte de memó- 
ria). O número 1 que vem a seguir sig- 
nifica que somente um byte de memó- 
ria deve ser reservado. Assim, RMB 50 
reservaria 50 bytes de memória. 

O terceiro contador, TCNT, é ajus- 
tado para 8. Depois, o conteúdo de 
32 250 é carregado em A. O número do 
UDG é armazenado em 32 250; se esse 
número for zero, BEQ JUMP desviará 
o programa para uma rotina que limpa 
a tela naquela área. Caso contrário, o 
processador continuará trabalhando 
com o UDG propriamente dito. 


IMPRIMA BLOCOS GRÁFICOS 


O lugar da memória onde os UDG fi- 
cam guardados começa na posição 
32 300; esse número é armazenado em 
U para facilitar os cálculos que definem 
onde se inicia o UDG. O primeiro ca- 
ractere começa no princípio dessa área; 
portanto, seu equivalente é 0. Note que, 
no acumulador, o número de caractere 
pedido é decrementado. 

LDB 472 carrega o registrador B 
com 72, e MULtiplica os conteúdos de 
A e B, guardando o resultado em D. Os 
acumuladores A e B sáo registradores de 
oito bits; D é um registrador de dezes- 
seis bits; por isso, ele nào é sobrecarre- 
gado com o resultado. Existem 72 bytes 
em cada gráfico. Cada caractere contém 
oito b € há nove caracteres para ca- 
da quadriculado (9 x 8 — 72). Essa ope- 
ração calcula o fator necessário para se 
achar o endereço inicial do UDG apro- 
priado. 

A instrução LEAU D,U carrega U 
com o valor de D mais U. Em outras pa- 
lavras, ela vai contando ao longo da lista 
até que seja apontado o começo do ca- 
ractere pedido. 

LDA ,U + carrega o acumulador 
com o conteúdo daquela posição de me- 
mória; depois, incrementa o registrador 
U e prepara-se para trabalhar com o 
próximo. STA ,X armazena o byte do 
caractere obtido da lista de gráficos na 

į posição de memória apontada por X. 
Lembremos que o registrador X contém 
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a posigáo do canto superior esquerdo do 
bloco na tela gráfica. 

LEAX 32,X soma 32 ao registrador 
X; isso move o apontador para a próxi- 
ma linha (há 32 posições em cada linha). 
O contador TCNT é então decrementa- 
do; se ele não for igual a zero, a instru- 
ção BNE retornará ao endereço loop pa- 
ra trabalhar com o próximo byte do ca- 
ractere 

O valor inicial de TCNT é 8; por is- 
so, loop deve ser executado oito vezes 


Precisamos de oito bytes, dispostos uns 
sobre os outros, para formar um carac- 
tere. Podemos chamar TCNT de conta- 
dor de bytes de um caractere. 


ADICIONE OUTRO CARACTERE 


LDA #8 e STA TCNT retornam o 
valor 8 para o contador TCNT, que já 
está pronto para trabalhar com o pró- 
ximo caractere. 





Em seguida, a instrução LEAX -255,X 
move o apontador X para o início do ca- 
ractere à direita. 

Devemos lembrar ainda que o regis- 
trador X contém o apontador de tela, 
e foi oito vezes incrementado de 32 pa- 
ra imprimir totalmente o caractere (32 
x 8= 256). 

O contador FTNT é decrementado de 
modo a percorrer toda a matriz forma- 
da por nove caracteres (ou seja, três de 
cada lado). Quando o resultado do de- 
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crementado for diferente de O (zero), o 
processador voltará para loop e traba- 
lhará com o primeiro byte do caractere 
seguinte. 

Se o resultado for 0 (zero), o proces- 
sador continuará pelo programa, 


COMO PERCORRER O QUADRICUI 


O contador FTNT é então reajusta- 
do para 3 e o apontador X, adiantado 


253 posições. Lembre que, anterior- 
mente, ele havia sido adiantado 32 po- 
sições, o que fez com que o apontador 
fosse para a posição de tela diretamen- 
te abaixo do caractere que acabara de 
ser impresso. Em seguida, ele foi atra- 
sado em 255, o que o deixou na posição 
de tela imediatamente à direita do topo 
do último caractere. 

Se desenharmos um pequeno quadri- 
culado mostrando ps caracteres e obser- 
varmos as posições relativas das loca- 
ções de tela, veremos que o registrador 
X foi adiantado em 32 posi: . El 
aponta agora a posição de tela direta- 
mente abaixo do último caractere im- 
presso e está duas locações à direita do 
lugar em que deveria estar o primeiro 
byte do primeiro caractere na segunda 
fileira. 

Portanto, devemos subtrair 2 do 
apontador X, a fim de movê-lo para a 
posição correta. 

Mas, como o programa já havia sub- 
traído 255, basta somar 253 que iremos 
para o lugar certo. 

O contador SCNT é decrementado; 
ele conta as três linhas de caracteres que 
formam o gráfico inteiro. Quando o re- 
sultado do decremento for diferente de 
0 (zero), o BNE levará o processador de 
volta para trabalhar com a linha se- 
guinte. 

Todavia, se o resultado for O (zero), 
isso significa que o gráfico foi impresso 
totalmente; nesse caso, RTS levará o 
processador de volta para o programa 
BASIC. 

Siga atentamente as instruções, que 
o processo acabará se tornando claro e 
compreensível. 


LIMPE A TEI 


Quando o número do bloco a ser im- 
presso na tela for igual a zero, a rotina 
simplesmente limpará a área da tela que 
está sendo acessada. O modo pelo qual 
se limpa a tela é praticamente o mesmo 


pelo qual se imprime n A diferença 
entre eles é que a rotina não precisa con- 
sultar a lista de caracteres, mas somen- 
te imprimir o código 0, ou seja, nada. 

CLRB ajusta o registrador B para 0. 
O 0 é então armazenado nas posições de 
tela apontadas pelo registrador X. Se 
você quiser se movimentar pelo quadri- 
culado, deve atualizar repetidamente o 
registrador X, da mesma maneira que 
na rotina de impressão; só que, desta 
vez, o O em B é armazenado em cada po- 
sição. Uma vez mais, o RTS retornará 
o processador ao BASIC para rodar o 
resto do programa. 





CONJUNTOS DE 
BLOCOS GRÁFICOS (3) 


Nos artigos anteriores, aprendemos 
a criar um grande número de blocos grá- 
ficos e começamos a trabalhar com gru- 
pos de caracteres para fazer um cenário 
de floresta. 

O programa que faz o desenho no úl- 
timo artigo está dividido em partes (com 
exceção do Apple e do TK-2000, para 
os quais publicamos apenas o banco de 
blocos a ser digitado por intermédio do 
monitor). Cada seção cuida de um seg- 
mento (ou figura) do desenho — croco- 
dilo, elefante, árvores, e assim por dian- 
te. A seção deste artigo acrescenta uma 
cobra e um macaco, além de concluir o 
fundo do quadro. Tanto no caso do Ap- 
ple como no do TK-2000, apresentamos 
o programa completo. 

Carregue agora a primeira parte do 
programa para poder digitar a continua- 
ção, Os usuários do Apple e do TK-2000 
devem antes carregar o banco de blocos 
gravado no artigo anterior por intermé- 
dio do monitor. 


140 POKE 23676,254 
150 FOR n-USR "a" 
: READ a: POKE n,a: 
160 POKE 23676,253 
170 FOR n=USR "a” 
: READ a: POKE n,a: 
190 POKE 23676,252 
200 FOR n=USR "а" ТО USR 
: READ a: POKE n,a: NEXT 
210 POKE 23676,251 

220 FOR n-USR "a" TO USR 
: READ a: POKE n,a: NEXT 
230 POKE 23676,250 
240 FOR n*USR "a" 
: READ a: POKE n,a: 
510 INK 1 

520 POKE 23676,254 
530 LET z=144: FOR n=2 TO 7: 
FOR m=16 TO 18: PRINT AT m,n; 
CHR$ z: LET z=z+1: NEXT m: 
NEXT n 

540 POKE 23676,253 

550 LET z=144: FOR n=8 TO 12: 
FOR m=17 TO 18: PRINT AT m,n; 
CHR$ 2: LET z-z*1: NEXT m: 
NEXT n 

610 INK O 

620 POKE 23676,252 

630 PRINT AT 0,30;CHAS 144;AT 
1,24;CHR$ 145;CHR$ 146;AT 1,28 
;CHR$ 147;CHR$ 148 


TO USR " 
NEXT 


TO USR 
NEXT 


TO USR " 
NEXT 


640 PRINT AT 2,23;CHR$ 149; 
CHR$ 150;CHR$ 151;CHR$ 32;CHR$ 
152;CHR$ 153 

650 PRINT AT 3,23;CHRS 154; 
CHR$ 155;CHR$ 32;CHR$ 32;CHR$ 
156;CHR$ 157;CHR$ 158 

660 PRINT AT 4,24;CHRS 159; 
CHR$ 160;CHR$ 32;CHR$ 161;CHRS 
162;CHR$ 163;CHR$ 164 

670 POKE 23676,251 

680 PRINT AT 5,24;: FOR n-144 
TO 151: PRINT CHR$ n;: NEXT n 
690 PRINT AT 6,24; 152; 
CHR$ 153;CHR$ 15 153; 
CHR$ 153;CHR$ 15 155; 
CHR$ 156 

700 PRINT AT 7,23;CHR$ 157; 
CHR$ 158;CHR$ 159;CHRS$ 32;CHR$ 
32;CHR$ 160;CHRS$ 161;CHR$ 162; 
AT 8,22;CHR$ 163;CHR$ 164; 

710 POKE 23676,250 

720 PRINT CHR$ 144;CHR$ 145; 
CHR$ 32;CHR$ 32;CHR$ 146;CHR$ 
147;AT 9,24;CHR$ 148;CHR$ 149; 
AT 10,24;CHR$ 150 

855 INK 6 

860 FOR n=0 TO 2*PI STEP .05: 
PLOT 70,150: DRAW SIN n*12, 
COS n*12: NEXT n 

870 FOR n-0 TO 2*PI STEP PI/4: 
PLOT 70,150: DRAW COS n*20,SIN 
n*20: NEXT n 

970 INK O 


n 


10 FOR 1=0 TO 983 

150 CIRCLE (50,30),25,11:PAINT 
(50,30) ,11 

160 DRAW "BM50, 30C1INU30NE60NR8 
ANF60NDB4NG60NL84NH30” 

200 FOR I=1 TO 131 

3090 DATA 641,18,210,673,19,210 
+705,20,210,642,21,210 

3100 DATA 674,22,210,706,23,210 
.643,24,210,675,25,210 

3110 DATA 707,26,210,644,27,210 
,676,28,210,708,29,210 

3115 REM APAGAR - 

3120 DATA 645,30,210,677,31,210 
,709,32,210,646,33,210 

3130 DATA 678,34,210,710,35,210 
+679,36,210 

3135 REM APAGAR 

3140 DATA 711,37,210,680,38,210 
+712,39,210,681,40,210 

3150 DATA 713,41,210,682,42,210 
,714,43,210,683,44,210,715,45,2 
10 

3160 БАТА 23,46,148,49,47,148,5 


Não se trata de mais uma fábula de 
Esopo ou de La Fontaine: aqui, o 
macaco e a cobra se reúnem na floresta 
para nos ensinar os segredos 

do trabalho com blocos gráficos. 


0,48,148,53,49,148 

3170 DATA 54,50,148,80,51,148, 
1,52,148,82,53,148 

3180 DATA 84,54,148,85,55,148,1 
12,56,148,113,57,148 

3190 DATA 116,58,148,117,59,148 
,118,60,148,145,61,148 

3200 DATA 146,62,148,148,63,148 
,149,64,148,150,65,148 

3210 DATA 151,66,148,177,67,148 
.178,68,148,179,69,148 

3220 DATA 180,70,148,181,71,148 
,182,72,148,183,73,148 

3230 DATA 184,74,148,209,75,148 
,210,76,148,211,76,148 

3240 DATA 212,76,148,213,76,148 
,214,77,148,215,78,148,216,79,1 
48 

3250 DATA 240,80,148,241,81,148 
,242,82,148,245,83,148 

3260 DATA 246,84,148,247,85,148 
,271,86,148,272,87,148 

3270 DATA 273,88,148,274,89,148 
+277,90,148,278,91,148,305,92,1 / 
48,306,93,148,337,94,148 

3280 DATA 500,95,226,501,96,226 
,502,97,226,503,98,226 

3290 DATA 532,99,226,533,100,22 d 
6,534,101,226,535,102,226 

3300 DATA 536,103,226,565,104,2 
26,566,105,226,567,106,226,568, 
107,226 
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ШЕ LINHAS DATA QUE COMPLETAM 
O CENÁRIO DA FLORESTA 


m UM MACACO E UMA COBRA 


= O PROGRAMA COMPLETO NO 
APPLE E NO TK-2000 


WI COMO COMPLETAR O FUNDO 
Ш SUGESTÕES PARA ANIMAÇÃO 
E COMO GUARDAR O BANCO 
E DE BLOCOS 
Ш OSOLEMALTA RESOLUCÃO 





3310 DATA -32,-4,36,75,80,147 
3320 DATA 342,108,36,343,109,36 
+374,110,36,375,111,36 

3330 DATA 406,112,36,407,113,36 
,439,114,96,471,114,96 

3340 DATA -44,-20,-15,60,84,96, 
157,163 

3350 DATA 327,115,36,328,116,36 
+329,117,36,330,118,36 

3360 DATA 360,119,96,361,120,96 
+392,121,96,424,121,96 

3370 DATA 456,122,96 


1400 REM COBRA 
1410 DATA 0,0,0,0,0,0,3,14,31,3 
1,63,67,65,254,254,225,71,63,0, 
0,0,0,0,0,0 

1420 DATA 0,0,0,0,255,12,28,28, 
28,254,143,1,0,4,248,208,224 
1430 DATA 0,0,0,0,0,0,0,0,0,0,0 
,128,240,56 

1440 DATA 52,99,225,225,225,96, 
47,31,14,6,2,1,0,0,0,0,0,0,0,0, 
3,5,63,127 

1450 DATA 255,225,240,248,252,2 
55,255,126,60,28,124,247,247,11 
5,31,1,0,0,0,0 

1460 DATA 255,191,159,143,199,1 
94,127,64,128,128,64,63 

1470 DATA 48,112,248,249,253,25 
5,189,255,0,0,0,0,192,252,190,6 
3,63,24,240 

1480 DATA 9,5,7,5,249,67,243,25 
1,255,252,238,239,255 

1490 DATA 192,224,208,223,224,1 
29,193,227,243,247,255,248,240, 
224,192 

1500 DATA 0,0,0,0,255,129,195,1 
99,199 

1510 DATA 239,239,255,0,0,0,0,0 
,0,0,0,128,248,31,140,158,191,1 
91,255,0,0,0,0 

1520 DATA 0,0,0,1,15,62,206,30, 
61,121,243,247,247,63,15,3,0 
1530 DATA 30,127,191,95,93,61,2 
50,240,194,252,194,192,192,224, 
224,240 

1540 REM MACACO 

1550 DATA 1,2,4,8,16,32,64,128, 
0,0,0,3,31,63,127,252,0,0,0,224 
.248,252,252 

1560 DATA 62,3,15,15,15,15,14,1 
4,12 

1570 DATA 3,142,240,192,128,0,0 
,0,1,1,3,3,3,3,3,3,248,240,224, 
224,192 

1580 DATA 192,192,192,30,14,110 
+76,56,0,0,0,0,0,0,0,0,0,0 














1590 DATA 1,28,28,56,56,112,112 
‚224,224 

1600 DATA 3,3,1,1,1,0,0,0,192,2 
24,224,240,248,248,252,126,3,7, 
15,31,63,62 

1610 DATA 126,252,192,192,128,0 
,0,0,3,7,0,0,0,0,0,0,128,223 
1620 DATA 127,63,31,31,15,7,7,3 
,0,128,128,192,192,192,224,240, 
252,126,126,127 

1630 DATA 63,63,31,31,15,15,7,3 
,3,131,131,131 

1640 DATA 255,255,231,231,255,2 
52,172,183,128,192,224,224,224, 
224,224,224 

1650 DATA 1,1,0,0,0,1,3,7,248,2 
55,255,255,255,255,255,255,0 
1660 DATA 255,255,255,255,255,2 
55,255 

1670 DATA 15,255,255,255,255,25 
5,255,255,199,255,255,255,255,2 
55,255,255 

1680 DATA 223,239,255,255,252,1 
28,0,128,224,240,248,248,240,96 
,0,0,0,0,200 

1690 DATA 232,248,248,120,112 
1700 DATA 7,15,15,31,31,31,63,6 
3,255,255,255,255,255,255,255,2 
55,192,224,224 

1710 DATA 224,224,224,192,192,0 
,0,1,1,3,7,14,60,240,224,192,12 
8,128,0,0,0 

1720 DATA 0,0,0,0,0,3,15,31,63, 
63,63,63,126,254,252,240,191,19 
1,63,63,63 

1730 DATA 63,63,63,15,7,7,7,7,7 
,7,7,192,131,135,159,191,255,25 
4,252 

1740 DATA 252,248,240,224,192,1 
28,0,0,0,1,3,7,6,6,4,0,127,254, 
240,224 

1750 DATA 64,64,0,0,192,0,0,0,0 
,1,1,3,63,31,63,127,254,252,248 
‚240 

1760 DATA 7,3,0,0,0,0,0,0,240,1 
92,0,0,0,0,0,0,7,7,15,31,31,31, 
23,23,224 

1770 DATA 192,128,0,0,0,0,0,7,6 
.4,0,0,0,0,0 


20 DIM C(59),M(156),8(48) ,E(17) 
,T1 (1) ,72(7) ,F1(7) ,F2(7) 

90 PCLS 3 

100 DRAW "BM62,1C2DG6LG2LGLUHLG 
LD6GDGDGDG7DG2DRD3RD2FDFDL12H2L 
ULU3HUH4UH2ULUSEUE4R3F 3D2GLHURB 
D2R2E2U3HUHLHL4GL2G4DGD7FD2FDFD 
F2D" 

110 DRAW "F2DFD2G3DGDGD2GD5G2L2 
GLG2LGLG2D3EUER2ND2R2R2ER2ERERE 
UEUEUERD9FG4DG2DG2D2ND2R2D5E2U5 
E8U9E3R17F3D6FR3EREREZRESUE3UE3 
UE" 

120 DRAW "U2NU2LH2LD3FDGDGDG4LG 
LGLG2LG2HU2EUEU4H3E2R4ERFRFEURU 
H2U6H3L4GH2L2G2DF2D4G2L2H2U2HUH 
UHUEUEUE 2UEUEUEUEU2EUEREUL4D5L3 
D6L2D3L2D3" 

130 DRAW "BM24,16U3NL6DL8D2L2D2 
L2D9BM70,43D4G8BM3,64E3BM+10,10 












D3” 

140 PAINT (50,50),2 

150 DRAW "BM56,34C1RDBF3DBL7DF2 
BE2BU2” 

160 GET(0,0)-(76,80),M,G 

170 PCLS 

180 DRAW "BM13,11C4G3L8H2U2EUE2 
ERERERBFR2F3RE3RERERI 1FR3F2RF4R 
12FR3FRAERER2ERERER3FD4GBU3GDG2 
LGFNR3GD2FDFL4" 

190 DRAW "H2LHLHLHLIBG4LGLIGHL3 
HLH9LHL2HL2G3DFR3BM23,6D3FDF5RF 
2R9ER2ER7BM52, 8LGL3G2L11H2UE2R7 
F4" 

200 PAINT (60,10),3,4:PAINT (13 
.5),3,4 

210 DRAW "BM83,8ClDBL4BG5H3G4H5 
G5H4G5H3G4H4G3HBE4F2E2F2E2F2EZF 
4BM7,13LH3E6F4E4FDFD2F9R2FR15E” 
220 GET(0,0)-(88,21),8,G 

370 CIRCLE(50,30),25 PAINT (5 
M50 , 30C2NU30NE60 








NR84NF60ND84NG60NL84NH30^ 
430 PUT (10,166)-(98,187),S,PSE 


T 
440 PUT (140,0)-(216,80),M, PSET 


Essas adições encaixam direitinho 
nos programas do artigo anterior — ex- 
ceto no MSX, em que várias linhas de- 
vem ser substituídas e duas delas apa- 
gadas. O que fizemos foi criar mais blo- 
cos gráficos. Novamente as linhas DA- 
TA de 1400 a 1 770 são comuns ao 
Spectrum e ao MSX. O programa do 
Spectrum começa com novas linhas que 
colocarão na memória os dados adicio- 
nais, usando o comando POKE. 

A listagem do MSX teve o compri- 
mento do laço da linha 10 mudado; a 
fim de que os novos dados fossem co- 
locados na parte alta da memória. As li- 
nhas 150 e 160 desenham o s laço 
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enu 
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da linha 200 também teve seu compri- 
mento modificado para que as posições 
e cores dos novos blocos pudessem ser 
lidas. Essas novas posições e cores se еп- 
contram nas linhas DATA a partir de 
3 090. Observe que parte das linhas do 
antigo programa teve que ser apagada, 
pois as posições dos blocos no banco fo- 
ram modificadas. 

O TRS-Color usa DRAW para dese- 
nhar os novos personagens e GET para 
armazenar os padrões em matrizes. 

Cada programa coloca os blocos nas 
posições adequadas no cenário. 


СЯ 


O primeiro passo consiste em carre- 
gar o banco de blocos fornecido, por 


meio do monitor, Se você gravou o seu, 
entre o monitor com: 


CALL -151 
posicione a fita e digite: 


4000.5000 L 


Ou recorra ao gerador de blocos, se 
o seu Apple usa disquete. Eis o progra- 
ma completo: 


10 НОЙ :Е = 16384:Т = 8192 

20 HCOLOR= 1: FOR I = 0 ТО 176 

: HPLOT 1,159 - 4 * SQR (176 - 
1): NEXT 

30 FOR I = 120 TO 279: HPLOT I 

130 - 6 * SQR (I - 120) * (I 

- 200) * (I > 200) / 10: NEXT 

40 HCOLOR= 5: FORI = 0 TO 7 8 

ТЕР .05:Ғ е ( INT ( RND (1) * 1 

0) = 5) 

50 HPLOT 50 + (30 + 20 * F) * 
COS (1),50 + (26 + 20 * F) * 

SIN (1) TO 50 + (30 + 20 * F) * 
COS (I * 3.14),50 + (26 + 20 

ж ү) * SIN (I + 3.14): NEXT 1 

60 READ NF: FÓR M * 1 TO NF: R 

EAD L,NL 

70 FOR J = 1 TO NL: READ BI,C, 

NB: FOR K = 1 TO NB 

80 Ya h4+3-1]:X o CHR- 1: 

N=BI+K-1 

90 FOR I = 0 TO 7 

100 POKE T * (Y - 8 * (Y > 7) 

- 8 * (Y > 15)) * 128 + 40 * (Y 
> 7) * 40 * (Y > 15) + X + 102 

4 * I, PEEK (E * N * 8 * I) 

110 NEXT I,K,J,M 

120 END 

150 POKE T * (Y - 8 * (Y > 7) 

> 8 (У > 15)) * 128 + 40 * (Y 
> 7) + 40 * (Y > 15) + X + 102 

4 * I, PEEK (E * N * 8 * I) 

1000 DATA 7,17,3,1,25,14,4 

1,25,14,81,25,14 

1010 DATA 17,3,160,4,7,200,4, 

13,240,4,13 

1040 DATA 3,7,30 ,30,9,70, 

30,9,110,30,9,154,34,1,194,34,1 

.234,34,1,273,33,3 

1050 DATA 5,7,30,32,7,70,3 

2,7,110,32,7,154,36,1,194,36,1, 

234,36,1,273,35,3 

1060 DATA 5,7,30,28,9,70,2 

8,9,110,28,9,154,32,1,194,32,1, 

234,32,1,273,31,3 

1070 DATA 7,7,30,30,9,70, 

30,9,110,30,9,154,34,1,194,34,1 

.234,34,1,273,33,3 

1080 DATA 0,10,25,25,1,5 

8,18,7,97,17,7,137,17,7,178,18, 


в 
1090 DATA 219,19,9,258, 
18,9,297,17,9,15,17,8,57,19,1 


[d] 


No TK-2000 entramos no monitor 
por meio de LM (e o banco de blocos 
deve ser carregado em outra posição): 


A000.B0000 L "nome" 





A floresta no TRS-Color. 


Na linha 10, o valor de T deve ser 
mudado para 40 960. Os usuários desse 
micro também podem mudar as cores 
nas linhas 20 a 40. Para modificar as co- 
res dos animais é preciso alterar de uma 
unidade a coluna na qual é impressa a 
figura. (Azul e verde sairão invertidos 
по ТК-2000.) 


c NE RN 


A linha 10 liga a tela gráfica e arma- 
zena em E e T os endereços iniciais das 
duas páginas de vídeo. 

As linhas 20 e 30 desenham as coli- 
nas, e as linhas 40 e 50, o sol. Como não 
há comandos específicos para traçar 
elipses no Apple, tivemos que lançar 
mão de fórmulas matemáticas. 

As linhas 60 a 120 usam quatro la- 
gos FOR ... NEXT para colocar os blo- 
cos em posigáo correta na tela. Os da- 
dos necessários para tanto estáo nas li- 
nhas DATA de 1 000 em diante. 

O método posto em prática é o se- 
guinte: inicialmente, a linha 60 usa 
READ para descobrir o número de fi- 
guras (NF) que seráo desenhadas. O la- 
ço FOR ... NEXT que se inicia nessa li- 
nha cuida para que o processo de dese- 
nhar uma figura seja repetido NF vezes. 
A cada figura desenhada, são obtidos a 
seguir, também com READ, a linha (L, 
entre 0 e 39) em que vai ser colocado o 
canto superior esquerdo da figura e o 
número de linhas da figura (NL). 

O primeiro FOR ... NEXT da linha 
70 cuida de desenhar NL linhas. O pro- 
grama tem que saber qual o número do 
bloco inicial de cada linha da figura no 
banco de memória (BI), em que coluna 
da tela ela começa (C) e quantos blocos 
ela tem (NB). O segundo FOR ... NEXT 
da linha 70 cuida de desenhar NB 
blocos. 












































A linha 80 se dedica a calcular a po- 
sição exata da tela (X,Y) e o número do 
bloco no banco (N), para que o laço en- 
tre as linhas 90 e 110 possa desenhar um 
novo bloco. 

Esse tipo de organização das linhas 
DATA só é possível devido à disposição 
dos blocos no banco — carregue o ge- 
rador e observe o banco. As linhas 1 000 
a 1 080 contêm os dados do crocodilo, 
da cobra, das quatro árvores e do 
macaco. 

A linha 1 010, por exemplo, encerra 
os dados da cobra. Ela nos informa que 
esta deve ser desenhada com seu canto 
superior esquerdo na linha 17 e tem três 
linhas de blocos. O primeiro bloco da 
primeira linha ocupa a posição 160 no 
banco e será colocado na coluna 4. Es- 
sa primeira linha tem sete blocos. Com 
um programa assim você poderá fazer 
seus próprios cenários. 


ES i 


Ao ser executado o programa, a tela 
se enche de blocos gráficos e o cenário 
parece completo. Uma cobra, um ma- 
caco e um sol radiante foram acrescen- 
tados pelas novas linhas. (Menos no Ap- 
ple, em que todas as linhas são novas.) 
Poderíamos ter incorporado mais ele- 
fantes, árvores ou crocodilos à cena, 
mas, seja como for, dispomos agora de 
todo um conjunto de novos blocos pa- 
ra usar em nossos desenhos. 


0 SOL EM ALTA RESOLUCAO 


Note que, além dos blocos, foram 
usados comandos gráficos (nào há ne- 





nhum motivo para nào se fazer a com- 
binação das duas técnicas, já que isso dá 
excelentes resultados). 

O Spectrum e o Apple constroem seu 
sol desenhando vários raios bem próxi- 
mos, enquanto o MSX e o TRS-Color 
usam o comando PAINT. 

Podemos ainda alterar o desenho em- 
pregando outros comandos gráficos, de- 
senhando mais colinas ou traçando re- 
tas que façam o chão parecer irregular 
ou rachado. 

Já comentamos a necessidade de usar 
matemática tanto no Apple como no 
TK-2000 devido à falta de recursos grá- 
ficos do BASIC. 

Quando se trabalha com blocos grá- 
ficos, as variações possíveis são quase 
infinitas. Com eles, pode-se não só mo- 
dificar o número de árvores, cobras e 
macacos, como também formar novas 
figuras. Um exemplo óbvio em nosso 
caso seria mudar a cor da copa das ár- 
vores (para branco ou cinza) e desenhar 
nuvens ou arbustos. 

Devemos, contudo, prestar atenção 
nas cores. Se quisermos, por exemplo, 
usar as copas como arbustos, teremos 
que colocá-las no topo das colinas já que 
ambas são verdes. No caso do MSX, po- 
demos mudar o tom de verde; no Ap- 
ple não haverá problemas, já que a co- 
lina não foi pintada. 


ANIMAÇÃO 


As vantagens de construir as figuras 
com blocos gráficos não terminam aí: 
podemos também convertê-las em figu- 
ras móveis, fazendo certas modificações. 
Para animar os bichos, poderíamos de- 
finir um ou dois blocos extras — cons- 
truindo um novo corpo para o elefante, 
por exemplo, ou uma cauda em posição 
diferente para a cobra, ou mesmo dan- 





do ao macaco uma banana para comer. 

No MSX, podemos usar sprites para 
animar as figuras. Já no Apple e no 
TK-2000 encontraremos algumas difi- 
culdades, pois os blocos gráficos são um 
tanto lentos. A alternativa é lançar mão 
do comando DRAW, com a ressalva de 
que, com sua utilização, é muito difícil 
preservar ao mesmo tempo a forma e a 
cor de uma figura. As linhas DATA ne- 
cessárias para um DRAW são comple- 
tamente diferentes das linhas que os blo- 
cos gráficos empregam. 


JUNTE BLOCOS PARA FORMAR FIGURAS 


Se quiser empregar blocos gráficos 
para animar os desenhos, as figuras des- 
tas páginas lhe mostrarão como os vá- 
rios caracteres compõem a cobra e o ma- 
caco (o artigo anterior mostra um dese- 
nho semelhante para o crocodilo). Es- 
ses desenhos não correspondem às figu- 
ras do Apple, mas podem ser usados pa- 
ra criar elementos móveis (DRAW); pa- 
ra isso, é preciso apelar para o editor de 
figuras desse micro. 

Enquanto o crocodilo, a cobra e o 
macaco parecem ter seu uso restrito aos 
desenhos de selvas e zoológicos, as ár- 
vores, nuvens e arbustos podem apare- 
cer em outros desenhos. 





Os programas considerados até aqui 
empregam um grande número de blocos 
gráficos a título de ilustração, e para 
fornecer blocos potencialmente úteis em 
outros desenhos. 

Todavia, é possível fazer desenhos 
muito interessantes usando uma quan- 
tidade bem menor de blocos. O truque 
para isso consiste em utilizar diversas ve- 








demos, por exemplo, desenhar uma ma- 
nada inteira de elefantes, ou colocar um 
muro em nosso cenário, preenchendo 
uma grande extensão da tela com ape- 
nas dois tipos de blocos gráficos. 

Entretanto, como a produção de blo- 
cos não apresenta problemas, a grande 
vantagem em utilizar poucos blocos es- 
tá em economizar tempo (no trabalho 
de criação e digitação) e espaço de me- 
mória (que as longas linhas DATA dei- 
xam de ocupar. O Spectrum, em parti- 
cular, gasta muita memória para guar- 
dar essas linhas DATA). 

Ao empregarmos linhas DATA para 
armazenar os padrões dos blocos, esta- 
remos ocupando o dobro do espaço ne- 
cessário, já que esses padrões serão 
transferidos para uma outra área da me- 
mória assim que rodarmos o programa. 
Em compensagáo, podemos economizar 
memória, se gravarmos os bancos de 
blocos diretamente em fita cassete, apa- 
gando a seguir as linhas DATA. 


Para gravar os padrões do banco de 
blocos, use: 


SAVE "nome” CODE x,y 


onde x é o endereço inicial do segmento 
de memória que queremos gravar, e y 
é o seu comprimento. 

Devemos, portanto, saber o endere- 
ço inicial do banco de blocos, tanto pa- 
ra colocar nele os valores das linhas DA- 
TA, como para mudar o apontador de 
caracteres UDG. 

O comprimento do bloco é de fácil 
dedução: normalmente, ele é o número 
de blocos multiplicado por 8. O progra- 
ma visto linhas atrás usa oito bancos pa- 
ra guardar todos os blocos necessários 
ao desenho da selva. Cada um desses 
bancos começa 256 bytes acima do ban- 
co anterior (ao contrário do número mí- 
nimo de 168 bytes), a fim de permitir 
que o apontador seja modificado com 
apenas um POKE, em vez de dois. Isso 
também significa que, se quisermos gra- 
var essa porção de memória, devemos 
informar que ela tem 256 x 8 bytes d- 
comprimento. 

Grave os blocos da floresta com: 


SAVE "floresta” CODE 63448,2048 
Para carregar os blocos de volta, 

digite: 

LOAD "" CODE 


Para colocá-los em outro lugar da 
memória, escreva o novo endereço 
inicial após CODE. 


zes os mesmos blocos. Desse modo, po-- 


nu 


O MSX grava o banco de blocos em- 
pregando o seguinte comando: 


BSAVE "CAS:nome” x,y 


onde x é o endereço inicial e y, o com- 
primento da parte da memória que que- 
remos gravar. 

No caso do programa acima, use: 


BSAVE "CAS:SELVA" &HD100,&H1000 


Isso grava apenas o padrão dos blo- 
cos. Lembramos que ficam faltando os 
bytes de cor. (Os blocos não serão visí- 
veis pelo gerador.) 

Para carregar os bytes da fita, use: 


BLOAD "CA8:"” 


[é] 


Para gravar os blocos guardados na 
página 2 de vídeo, devemos entrar no 
monitor com: 


CALL - 151 





Posicione a fita e digite: 


4000.5000 W 


Para carregar o banco, ainda no mo- 
do monitor: 


4000.5000 R 


[d] 


No TK-2000 o processo se assemelha 
ao usado no Apple, só que devemos en- 
trar no monitor com LM, e digitar: 
A000.B000 W "floresta" 


A000.B000 R "" 


(para gravar e ler a fita, respecti- 
vamente). 





Esse computador usa comandos 
DRAW em vez de linhas DATA, de for- 
ma que nào há vantagem em gravar os 
blocos. 

































































































































































55 


UM EDITOR 


O processador de textos é uma das 
mais úteis aplicações para qualquer 
computador pessoal. Em certos casos, 
quando se quer melhorar os resultados, 
pode-se comprar um programa sofisti- 
cado em linguagem de máquina. Pro- 
gramas como esse, porém, são caros e 
o uso do editor nem sempre é simples. 

A parte do programa coberta por es- 
te artigo constitui um padrão para um 
editor de textos simples, que está estru- 
turado de forma a ser útil até mesmo 
àqueles que nunca viram um programa 
desse tipo, Com ele é possível criar me- 
morandos, cartas ou quaisquer outros 
textos a serem enviados para a impres- 
sora. O texto pode ser gravado em dis- 
co ou em fita e carregado para uma pos- 
terior utilização. 

Devido ao tamanho do programa 
completo — pelo menos 7,5k — a lista- 
gem foi dividida em trés unidades, que 
não funcionarão adequadamente até 
que a última parte seja digitada. Ape- 
sar disso, será possível criar arquivos de 
texto no fim da segunda parte. A tercei- 
ra parte é formada pela rotina para a im- 
pressora, que possibilita o envio de da- 
dos para impressão. Ordenação e roti- 
na de busca estarão disponíveis. 

Vejamos como o programa funciona, 
antes que sua primeira parte seja digi- 
tada, Ele está destinado a várias aplica- 
ções domésticas; mas, como em qual- 
quer outro programa desse tipo, seus 
menus e telas de apresentação podem ser 
modificados ao bel-prazer do usuário. 
Todavia, se você resolver modificá-lo, 
tome cuidado para não alterar a nume- 
ração das linhas, de maneira que o com- 
putador possa acessá-las conveniente- 
mente, sobretudo se houver novos mó- 
dulos a serem adicionados. 


AS 


Ao ser executada, a versáo completa 
do programa apresentará imediatamente 
algumas opções para entrada e saída de 
dados. Isso prepara o sistema para o uso 
de cassete ou acionador de discos. No 
caso do Spectrum, quem possuir um Mi- 
crodrive pode adaptar o programa pa- 
ra utilizá-lo de acordo com as indicações 
oferecidas. 
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DE TEXTOS (1) 


Datilografe textos sem gastar dinheiro 
com programas sofisticados e 

sem quebrar a cabeça com processadores 
complicados de palavras, 

executando o programa deste artigo. 





Se for de seu interesse, você pode dar ' 
entrada por um meio e saída por outro 
e mudar mais tarde. 

O menu principal é mostrado e as se- 
guintes opções são apresentadas: 


[C] ARREGAR 

[G] RAVAR 

[M] UDAR E/S 

[E] DITAR 

[L] IMPAR MEMÓRIA 
[I] MPRIMIR 

IS] AIR 


CARREGAR 


Se vocé quer continuar a trabalhar 
em um texto já existente, pressione € 
para iniciar a rotina que carrega o texto 
na memória. Qualquer outro aí presen- 
te será apagado. Portanto, uma mensa- 
gem “Confirme (S/N)” será inserida 
antes de se dar prosseguimento à roti- 
na. Tecle S para continuar ( ou N para 
interromper). Um nome de arquivo se- 
rá entào solicitado: ele é necessário pa- 
ra que se possa continuar. Em seguida, 
o referido arquivo é carregado na me- 
mória e pode ser trabalhado. 


A rotina de gravação é usada para 
criar arquivos sequenciais para armaze- 
namento dos textos. Quando essa opção 
for selecionada, teclando-se G — e des- 
de que haja alguma coisa na memória 
— , será solicitado um nome para o ar- 
quivo. O Sinclair Spectrum gravará, 
mesmo que não haja nada na memória. 
Uma entrada nula não será aceita. O sis- 
tema já '“sabe”” qual opgáo de E/S está 
sendo usada e continua a pedir infor- 
mações de acordo com as necessidades 
do cassete ou do acionador de discos. 
No final, pressione «RETURN» ou 
<ENTER> para efetuar a gravação. 

Os usuários de disquete devem tomar 
bastante cuidado ao escolherem o nome 
do arquivo. Se o título de um arquivo 
já existente for usado, este será apaga- 
do, ficando no disco apenas o arquivo 
mais novo. Rotinas adicionais de grava- 


ção podem ser incorporadas a fim de 
proteger arquivos, trocar nomes etc. 


ENTRADA/SAÍDA (E/S) 


Se você quiser mudar os parâmetros 
iniciais de entrada e saída (em inglês, 
abreviados por I/O de input/output), 
pode fazé-lo a qualquer momento, te- 
clando M. Digite sua opção. Isso confi- 
gura automaticamente o programa com 
as novas necessidades. 

O programa do Sinclair Spectrum 
funciona com fita ou Microdrive. As 
mudanças necessárias para o Microdri- 
ve aparecem após a listagem principal. 
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п ANALISE O MENU W PARÂMETROS DE ENTRADA 
п COMO CARREGAR E GRAVAR ESAÍDA 
= NOMES DE ARQUIVOS Ш TRABALHE COM O TEXTO 
и O TRABALHO DE EDIÇÃO W COMO LIMPAR A MEMÓRIA 
п COMO AJUSTAR CORES W PROGRAMA EDITOR DE TEXTOS 








ж? 


"m ж 





Pressionar a tecla E leva você a um 
menu secundário que mostra: 


ІТІ ОРО 

[F] IM 

[P] RÓXIMA LINHA 

[C] OR (nào para o Apple e o TRS-Color) 
[M] ENU 


As duas primeiras opções o levam ao 
início (TOPO) ou ao fim (FIM) do tex- 
to que está na memória. A terceira op- 
ção conduz para a última linha com que 
se estava trabalhando. A última o faz re- 


М 


tornar ao menu principal. 
A opção COR permite ajustar as co- 
res de frente, fundo e bordas, de acor- 
do com a sua preferência. 

Cada uma das três opções iniciais co- 
loca o programa no modo de entrada. 
A tela mostra linhas demarcando o iní- 
cio e o fim do texto (pode aparecer ape- 
nas uma, se já houver algum texto ar- 
mazenado na memória). Na parte mais 
baixa da tela há uma “área de trabalho" 
e um indicador de “memória livre” (não 
disponível no micro Spectrum) que per- 
mite saber quantos caracteres disponí- 
veis ainda se tem. 

O texto é digitado na parte inferior 
da tela (área de trabalho). Os comandos 





ENTER ou RETURN o transferem pa- 
ra a memória e para a área de texto. O 
mesmo acontece quando duas linhas da 
tela são completadas. 

Várias rotinas de edição estão embu- 
tidas no programa. Elas (e as teclas que 
as controlam) variam um pouco de má- 
quina para máquina e serão discutidas 
em maior detalhe no momento oportu- 
по. Toda a edição é feita na área de tra- 
balho, Os controles de edição permitem 
que se movimente pela linha de texto na 
área de trabalho para inserção ou dele- 
ção (supressão) de caracteres, antes que 
o texto seja transferido para a memó- 
ria. O texto que já estiver na memória 
— aquele que é mostrado no painel su- 
perior (área de texto) — deverá ser co- 
piado, uma linha de cada vez, para a 
área de trabalho, antes de ser editado. 

Novas linhas podem ser inseridas em 
qualquer ponto do texto. Isso se conse- 
gue pressionando a tecla apropriada pa- 
ra o modo “editor” (veja instruções de- 
talhadas) e posicionando-se o marcador 
abaixo do ponto onde se quer inserir a 
nova linha. 

Da mesma forma, o texto pode ser re- 
movido, uma linha de cada vez, selecio- 
nando-se o modo editor e posicionan- 
do-se o marcador abaixo da linha a ser 
apagada antes de se pressionar a tecla 
para deleção (supressão). 

Teclas de controle permitem passear 
pelo texto, para a frente ou para trás, 
dez linhas de cada vez (o Spectrum é 
uma exceção). Assim, o texto pode ser 
visualizado antes da impressão ou de 
realizar alguma alteração. 

Pode-se voltar ao menu do modo de 
edição pressionando-se a tecla de **es- 
cape" designada. É possível também 
voltar do modo de edição para o menu 
principal sempre que seja necessário al- 
terar algum parâmetro do sistema. 


DEAD ES 


A memória é limpa por intermédio de 
outra opção disponível a partir do me- 
nu principal. Mas esta só será oferecida 
depois que você responder sim à pergun- 
ta — “Confirma? (S/N)” — que se se- 
gue à teclagem de L. Note que essa op- 








ção não redefine as opções de entrada 
e saída nem os parâmetros da impres- 
sora. Se você quiser reiniciar tudo, pres- 
sione $ para retornar ao BASIC e, a se- 
guir, RUN. 


10 POKE 23659,3 

20 BORDER 7: PAPER 7: INK 9: 
СІЗ 

30 DIM 1(8): FOR N=1 TO 8: 
READ l(n): NEXT n 

40 LET Z$-"" 

100 LET ext-200: DIM t$(ext,32 

): LET 11232: LET pl-32 

105 LET s$-" 


110 LET tS(1)="ARQUIVO DO TOPO 
DO TEXTO”: LET t$(2)="- 


LET 





15(3)-з5 
120 LET t$(4)785$ 





LET t$(5)»"- 





=": LET t$(6)-"ARQUIVO DO FIM 
DO TEXTO" 
130 LET t=1: LET b=6: 


LET p=4 
140 CLS PRINT  INVERSE 1;AT 
0,8;" MENU PRINCIPAL " 

150 PRINT AT 4,8;"1- Carregar 
texto";AT 6,8;"2- Gravar texto 
";AT 8,8;"3- Trocar papel";AT 
10,8;"4- Editar" ;AT 12,8;"5- L 
impar texto";AT 14,8;"6- Impri 
mir texto";AT 16, 7- Alterar 
impressora";AT 18,8;"B- Saida” 
160 PRINT 41;TAB Selecione 
opcao (1-8)" 

170 LET aS=INKEYS: 
THEN GOTO 170 
180 1Е а$<”1” ОЙ а$>”8” THEN 










ТР agar" 


бото 170 

190 LET a=VAL a$: CLS 

200 GOSUB 1(a) 

210 GOTO 140 

500 CLS PRINT INVERSE 1;AT 


4,8;” MENU - EDITOR ” 

510 PRINT AT 8,6;"1- Topo do t 
exto";AT 10,6;"2- Fim do texto 
"¡AT 12,6; Proxima linha”; 
AT 14,6;"4- Sair do menu de ed 
ісао" 

520 PRINT АТ 18,7;"Selecione o 
pcao (1-4)" 

530 LET a$-INKEYS: 
THEN GOTO 530 
540 IF a$<"1” OR a$>"4” THEN 
бото 530 

550 LET a=VAL a$: CLS 

560 IF a=4 THEN RETURN 
570 IF a=1 THEN LET p=4 
580 IF a-2 THEN LET p=b-2 
590 GOSUB 1000: GOSUB 2000 
600 GOTO 500 





IF a$-"" 


900 PRINT AT 10,6;"Voce tem ce 


rteza?": PAUSE 0 

910 IF INKEY$="8” THEN RUN 
920 RETURN 

4000 RETURN 

6000 REM carregar 


6010 INPUT "Introduza o nome 
58 arquivo”, LINE n$: LOAD 
А (50 Ew oss 


15 APLICACOES 15 


6020 LET b-VAL t$(1): LET t$(1) 
="ARQUIVO DO TOPO DO TEXTO": RE 
TURN 

6200 REM gravar 

6210 LET t$(1)-STR$ b 

6220 INPUT "Introduza o nome do 
arquivo”, LINE n$: IF n$-"" OR 
LEN n$>10 THEN GOTO 6220 

6230 SAVE n$ DATA tS(): GOTO 60 


20 

6500 INPUT AT 0,0;"Introduza a 
largura do formula-rio (1-80)" 
+p1: IF pl<l OR p1>80 THEN GOT 
o 6500 

6510 INPUT AT 0,0;"Introduza o 
numero de caracterespor linha 
(1-";(р1);”)”;11: ТР 11<1 OR 11 
>р1 ТНЕМ СОТО 6510 

6520 LET 11=11+1: RETURN 

9000 DATA 6000,6200,3000,500,90 
0,4000,6500,9999 


10 CLS:POKE 150,1 

20 PMODE O:PCLEAR 1:CLEAR 15500 
30 DIM TX$(500) 

40 BL$*CHR$ (128 L=1:CP=1:M4=8 
0:TW=60:PL=66:T! 0:GP-10:LF$*8 
TRING$ (3,13) :GOSUB 5000 





y 




























50 TX$(0)=STRINGS (32,195) 
60 TXS(TL)=STRINGS (32,188) 
70 CLS:PRINT 69,BL$;"menu";BL$; 
"principal L$:PRINT 6104,"(C) 
ARREGAR":PRINT 6136," (G)RAVAR": 
PRINT 6168," (M)UDAR ENTRADA/SAI 
DA" 

B0 PRINT 6200,"(E)DITAR TEXTO" 
PRINT €232," (L) IMPAR MEMORIA":P 
ВІМТ 6264," (І)МРВІМІН":РВІМТ 62 
96," (A)LTERAR IMPRESSORA”: PRINT 
8328," (S) AIR"; 

90 B$-INKEYS:IF B$-"" THEN 90 
100 B=INSTR("CGMELIAS”,BS):IF B 
=0 THEN 90 

110 ON B GOSUB 4500,4000,5000,1 
000,160,3000,5500,130 

120 GOTO 50 

130 CLS:PRINT"VOCE TEM CERTEZA 
(S/N)?" 

140 R$=INKEYS:IF R$<>"S” AND R$ 
<>"N” THEN 140 

150 IF R$="S” THEN CLS:END ELSE 
RETURN 

160 CLS:PRINT68,BL$;"limpar"; 
8; BL$;"memori BL$:PRINT:P 
RINT"VOCE TEM CERTEZA? (S/N)" 
170 B$=INKEYS:IF BS<>"N" AND BS 
«»"8" THEN 170 

180 IF B$="N” THEN RETURN 


«ж. 





"n 








dica dui danda AS 


15 APLICAÇÕES 15 








190 FOR K=1 TO TL:TXS(K)= 
T:TL=1:CP=1:RETURN 


1000 CLS:PRINT 642,BL$"menu"BL$ 
"de"BL$"edicao"BL$S:PRINT 6104," 
ТОРО DO TEXTO":PRINT 6168,"fIM 
DO TEXTO":PRINT 8232,"pROXIMA L 
INHA":PRINT 6296,"mENU PRINCIPA 
L" 


1010 
10 
1020 B=INSTR("TFPM”,BS):1F B=0 
THEN 1010 
1030 ON B GOTO 1050,1060,1070,1 
080 
1050 
1060 
1070 
1000 
1080 RETURN 
1500 AS.” ” 
1510 P=0:PRINT €384,A3 
1520 CH=PEEK(1408+P) :TS=INKEYS: 
IF T$="" THEN CH=(CH+64) AND 12 
7:POKE 1408+P,CH:CH=(CH+64) AND 
127:POKE 1408+P,CH:GOTO 1520 
1530 IF LEN(AS)=65 OR T$=CHRS (1 
3) GOSUB 2000 
1540 IF T$=""" THEN SF=0:GOSUB 
2500:GOTO 1510 

50 IF P<LEN(AS)-1 AND T$=CHR$S 


BS=INKEYS:IF B$="" THEN 10 


CP=1:GOTO 1070 
CP-TL 
GOSUB 2090:GOSUB 1500:GOTO 


(10) THEN AS=LEFTS(AS,P)+MIDS (A 
$,P*2):GOTO 1600 ELSE IF T$=CHR 
$(10) THEN 1520 

1560 IF T$=CHR$(12) THEN RETURN 
1570 IF T$=CHR$(21) THEN P=- (LE 
N(A$)-1)*(P=0):GOTO 1600 

1580 IF T$<>CHR$(8) AND TS<>CHR 
$(9) AND ASC(T$)<32 THEN 1510 
1590 IF T$<>""” AND T$<>CHRS (8) 
AND TS<>CHRS$(9) THEN AS=LEFTS (A 
$,P)+TS+MIDS (AS, P+1) :P=P+1 

1600 PRINT @384,А$ 

1610 IF TS=CHR$(9) AND P<LEN(AS 
)-1 THEN P=P+1 

1620 IF T$-CHR$(8) AND P»0 THEN 
Р=р-1 

1630 СОТО 1520 

2000 X=1:IF LEN(A$)>33 THEN X=2 
2010 FOR K=TL+X TO CP+X STEP -1 
¿TXS (K) =TXS (K-X) : NEXT 

2020 IF LEN(AS)>33 THEN TX$(CP) 
=LEFTS(AS, 32) :TX$ (CP+1) =MIDS (AS 
,33,LEN(A$)-33) ELSE TX$(CP)=AS 
2030 FOR K=0 TO X-1 

2040 IF RIGHTS (TXS (CP+K),1)=" ” 
THEN TX$ (CP*K) "LEFT$ (TX$ (CP*K) 
,LEN(TX$(CP*K))-1):GOTO 2040 
2050 NEXT 

2060 A$-" ":P-0:PRINT 6384,A$ 
2070 PRINT 8416,"" 

2080 TL=TL+X:CP=CP+X 

2090 IF CP<5 THEN ST=0 ELSE ST= 
СР-5 

2100 PRINT €0,;:FOR K=ST TO ST+ 
9:PRINT TXS(K);:IF LEN(TXS(K))< 
32 THEN PRINT 

2110 IF K-CP-1 THEN PRINT "5" 
2120 NEXT:PRINT STRINGS (32,140) 
2130 PRINT 6480,BL$;"mem";BL$;" 
livre=";32*(501-TL) ;BL$;BL$;"cl 
ear*menu";BL$;:POKE 1534,32:POK 
E 1529,61:RETURN 





10 CLS:KEY FF 
20 COLOR 15,4, 
30 DIM TX$ (500 
95) 

40 TL=1:CP=1:MW=80:TW=60:PL=66: 
TH=60:GP=10:L1S=CHR$ (13) :LF$=ST 
RING$ (3,L1$) 

50 TX$(0) *STRING$ (39,95) :TX$ (TL. 
)*TX$ (0) 

60 CLS:LOCATE 7Z:PRINT"M E N U 
PRINCIPAL”:LOCATE 9,4: 
PRINT" [Clarregar":LOCATE 9,6:PR 
INT” [G]ravar” 

70 LOCATE 9,8:PRINT"[E]ditar te 
xto":LOCATE 9,10:PRINT"[L]impar 
memória":LOCATE 9,12:PRINT"[I] 
mprimir":LOCATE 9,14:PRINT"[A]l 
terar impressora":LOCATE 9,16:P 
RINT"[S]air" 

80 LOCATE 13,20:PRINT"Opcáo ?"; 
90 B$-INKEYS:IF B$-""THEN 90 
100 B-INSTR("CGELIAS",B$):IF B* 
0 THEN 90 

110 ON B GOSUB 4500,4000,1000,1 
70,3000,5500,130 

120 GOTO 50 

130 CLS:BL$-"Fim de programa":G 
OSUB 220 


:CLEAR 18000 
$=STRINGS (39,1 











140 LOCATE 12,10:PRINT"Confirme 
(S/N) "; 

150 RS=INKEYS:1F R$="" THEN 150 

160 IF R$="S" THEN CLS:END ELSE 
RETURN 

170 CLS:BL$-"Limpa a memória":G 

0808 220 

180 LOCATE 12,10:PRINT"Confirme 
(S/N) "; 

190 R$=INKEYS:IF R$="" THEN 190 

200 IF В9<>"8” THEN RETURN 

210 FOR K=1 TO TL:TXS(K)="":NEX 

T:TL=1;CP=1:RETURN 

220 PRINTBLS:PRINT VS:RETURN 

1000 CLS:BL$="Menu de edição” :G 

OSUB 220:LOCATE 9,8:PRINT"[T]op 

о do texto":LOCATE 9,10:PRINT"[ 

FJim do texto":LOCATE 9,12:PRIN 

T"[P]róxima linha":LOCATE 9,14: 

PRINT"[M]enu principal" 


1010 LOCATE 13,17:PRINT"Opção ? 


1020 
20 
1030 
THEN 
1040 
080 
1050 
1060 
1070 
GOTO 
1080 


BS=INKEYS:IF BS="" THEN 10 


B=INSTR ("TFPM”,B$):IF B=0 
1020 
ON B GOTO 1050,1060,1070,1 


CP=1:GOTO 1070 

CP=TL 

CLS:GOSUB 2080:GOSUB 1090: 
1000 

RETURN 

1090 A$-" " 

1100 P-0:LOCATE 0,16:PRINT A$;S 
PC(80) 

1110 LOCATE P+39*(P>38),16-(P>3 
8) : PRINTCHR$ (219) ; 

1120 TS=INKEYS:IF T$="" THEN 11 
20 

1130 IF LEN(AS)=79 OR T$=CHRS (1 
3) THEN GOSUB 2000 

1140 IF TS=CHRS(5) THEN SF=0:G0 
SUB 2500:GOTO 1100 

1150 IF P<LEN(AS)-1 AND TS=CHR$ 
(4) THEN AS=LEFTS(AS,P)+MIDS(AS 
,P*2):GOTO 1200 

1160 IF T$=CHR$(27) THEN RETURN 
1170 IF TS=CHRS(1) THEN P=0:GOT 
O 1200 ELSE IF T$=CHR$(19) THEN 
P=LEN(A$)-1:GOTO 1200 

1180 IF TS<>CHR$(28) AND TS<>CH 
R$(29) AND TS<CHR$(32) THEN 111 
0 


1190 IF T$<>"" AND TS$<>CHRS (28) 
AND T$<>CHRS(29) THEN AS=LEFTS 
(AS, P)+TS+MIDS (AS, P+1) :P=P+1 
1200 LOCATE 0,16:PRINTA$;SPC(80 
) 

1210 IF T$*CHR$(28) AND P<LEN(A 
$)-1 THEN P=P+1 

1220 IF TS$=CHR$(29) AND P>0 THE 
N P=P-1 

1230 GOTO 1110 

2000 X=1:IF LEN(A$)>40 THEN X=2 
2010 FOR K=TL+X TO CP+X STEP-1: 
TXS (K) =TXS (K-X) :NEXT 

2020 IF LEN(AS)>40 THEN TXS(CP) 
=LEFTS (AS, 39) :TXS (CP+1) =MIDS (AS 
,+40,LEN(AS)-40) ELSE TXS(CP)=AS 
2030 FOR K=0 TO X-1 

2040 IF RIGHTS (TXS(CP+K),1)=" ” 











579) 





THEN TXS (CP+K)=LEFTS (TX$ (CP*K) 
,LEN(TX$ (CP*K))-1):GOTO 2040 
2050 NEXT 

2060 A$-" ":P-0:LOCATE 0,16:PRI 
NTAS;SPC(80) 

2070 TL=TL+X:CP=CP+X 

2080 IF CP<9 THEN ST=0 ELSE ST= 
СР-9 

2090 LOCATE 0,0:FOR K= ST TO ST 
+9: PRINTTXS (K) ¡SPC (39-LEN(TXS (K 
0) 

2100 IF K=CP-1 THEN PRINTCHRS (1 
75) ;SPC(38) 

2110 МЕХТ:РВІМТУ5 

2120 LOCATE 0,23:PRINT"Mem livr 
e * ";39*(501-TL) ;" ";TAB(26); 
"<ESC>=Menu” ; : RETURN 


СЯ 


10 НОМЕ 

20 DIM TX$(500) 

30 TL = 1:CP = 1:MW = 80:TW = 6 
O:PL = 66:TH = 60:GP = 10:LFS = 


CHRS (13) + CHRS (13) + СНЕ 
s (13 
40 L1 = 6:81 = L1:L2 = 1:82 = L 
2:05 = CHRS (4) 
50 FOR 2 = 1 ТО 40:ТХ$(0) = ТХ 


8(0) % "-":А89 - А85 % "%": МЕХ 
T 


60 GOSUB 5000 


70 TXS(TL) - ТХ5(0) 

80 HOME : HTAB 8: PRINT "ME N 
у PRINCIPAL” 

90 VTAB 5: HTAB 10: PRINT "[C] 


arregar": PRINT : HTAB 10: PRIN 


T "[Gl]ravar": PRINT : HTAB 10: 
PRINT "[M]udar E/S" 
100 PRINT : HTAB 10: PRINT "[E 


]ditar texto": PRINT : HTAB 10: 
PRINT "[L]impar memoria": PRIN 
T : HTAB 10: PRINT "[I]mprimir" 


PRINT : HTAB 10: PRINT "[A]lt 
erar impressora": PRINT : HTAB 
10: PRINT "[S]air" 

110 PRINT : PRINT : PRINT TAB 
( 13) "Орсао =>"; 

120 GET B$: IF B$ = CHRS (13) 
THEN 120 


130 BB$ = "CGMELIAS":B = O: FOR 
Z = 1 TO 8: IF B$ = MIDS (BBS 
‚2,1) ТНЕМВ = 7 

140 NEXT IF B = O THEN 120 
150 ON B GOSUB 4500,4000,5000, 
1000,210,3000,5500,170 

160 GOTO 70 





170 HOME :BLS = "FIM DE PROGRA 
MA": GOSUB 250 

180 HTAB 12: VTAB 10: PRINT "C 
ONFIRME (S/N) GET R$ 

190 IF R$ < > "S" THEN RETUR 


N 

200 HOME : END 

210 HOME :BLS = "LIMPAR A MEMO 
RIA”: GOSUB 250 

220 HTAB 12: VTAB 10: PRINT "C 
ONFIRME (S/N)";: GET R$ 

230 IF R$ < » "S" THEN RETUR 


N 
240 FOR K = 1 TO TL:TX$(K) = ” 
"і NEXT :TL = 1:CP = l: RETURN 


250 INVERSE : PRINT BL$;: PRIN 
Т SPC( 40 - LEN (BLS)): NORMA 
L : RETURN 

1000 HOME : PRINT TAB( 12)"ME 


NU DE EDICAO” 
1010 VTAB 9: HTAB 10: PRINT "[ 
TlOPO DO TEXTO" 


1020 PRINT : PRINT TAB( 10)"[ 
FJIM DO TEXTO” 

1030 PRINT : PRINT TAB( 10)"[ 
PJROXIMA LINHA” 

1040 PRINT : PRINT TAB( 10)"[ 
MJENU PRINCIPAL” 

1050 PRINT : PRINT : PRINT TA 
B( 13)"Opcao =>"; 

1060 GET BS: IF BS = CHRS (13 


) THEN 1060 
1070 BBS = "TFPM":B = O: FOR Z 





= 1 TO 4: IF BS = MIDS (BBS,Z, 
1) THEN B = Z 

1080 NEXT IF B = 0 THEN 1060 
1090 ON B GOTO 1110,1120,1130, 
1140 

1110 CP = 1: GOTO 1130 

1120 CP = TL 

1130 HOME : GOSUB 2090: GOSUB 
1500: GOTO 1000 

1140 RETURN 

1500 AS =" " 

1510 P = 1: HTAB 1: VTAB 20: CA 





LL - 958: PRINT MIDS (AS,2); 
HTAB P: VTAB 20 + (P > 40 


1520 
): GET TS 
1530 IF LEN (AS) = 82 OR T$ = 


CHR$ (13) THEN GOSUB 2000 


1540 IF T$ = CHRS (5) THEN С 
OSUB 2500: GOTO 1510 

1550 ТЕ Т$ = CHRS (27) THEN 
RETURN 

1560 IF T$ = CHR$ (l) THEN P 
= 1: GOTO 1620 

1570 IF T$ = CHR$ (19) THEN P 
= LEN (AS) - 1: GOTO 1620 
1580 IF T$ = CHRS (4) AND (P 
€ LEN (AS) - 1) THEN AS = LEF 
TS (AS,P) + MIDS (AS,P + 2): G 
OTO 1620 

1590 IF T$ = CHR$ (4) THEN 15 
20 

1600 IF T$ < > CHRS (8) AND 
T$ < > CHRS (21) AND T$ < CH 


R$ (32) THEN 1520 

1610 IF T$ < > CHR$ (8) AND 
T$ < > CHR$ (21) THEN A$ = L 
EFT$ (A$,P) + T$ + MIDS (A$,P 
+ 1):рер + 1 

1620 НТАВ 1: УТАВ 20: САМ. - 
958: PRINT MID$ (A$,2); 

1630 IF TS = CHR$ (8) AND (P 
> 1) THEN P - P - 1 

1640 IF T$ = CHR$ (21) AND (P 
< LEN (AS) - 1) THEN P = P + 


1 

1650 GOTO 1520 

2000 X = 1:AS = MIDS (AS,2): I 
F LEN (AS) > 41 THEN X - 2 


2010 РОВ К = TL + X TO CP + X 
STEP - 1:TXS(K) = TXS(K - X): 
NEXT 

2020 IF LEN (A$) > 41 THEN TX 
S(CP) = LEFTS (AS,40) :TXS(CP + 
1) = MIDS (AS,41): GOTO 2040 











são as principais diferenças 
entre o editor de textos de INPUT 
os editores vendidos nas lojas especia- 
lizadas? 

A principal diferença consiste em 
que nosso editor é programado em BA- 
SIC, e os editores comerciais, em có- 
digo de máquina. Tais editores atuam 
sobre uma “janela de texto”, ou seja, 
permitem que se edite qualquer seg- 
mento de texto, acrescentando ou eli- 
minando palavras, frases e parágrafos, 
por meio de simples movimentos do 
cursor na tela. 

Em contraste com isso, nosso pro- 
grama edita linha por linha do texto, 
exigindo que as linhas sejam escritas 
na parte inferior da tela e transferidas 
para o campo superior. 

Esse modo de organizar o texto, jun- 
to com a lentidão inerente à linguagem 
BASIC, é a causa de outra diferença 
fundamental: o tempo de gravação e 
leitura dos textos em editores comer- 
ciais é muito menor. 

Outro atributo dos editores comer- 
ciais é a hifenação automática das pa- 
lavras. Somada ao alinhamento à direi- 
ta, essa característica dá ao texto im- 
presso um aspecto mais natural e pro- 
fissional, Não há nenhum motivo, con- 
tudo, para que uma função de hifena- 
ção não possa ser incluída em nosso 
editor. 











2030 TXS(CP) = AS: IF AS = " ” 
THEN 2070 
2040 FOR K = 0 TOX- 1 


2050 IF RIGHTS (TXS(CP + K),1 
) =" ” THEN TXS(CP + К) = LEF 
T$ (TXS(CP + K), LEN (TXS(CP + 


K)) - 1): GOTO 2050 

2060 NEXT 

2070 AS =" ":р = l: HTAB 1: V 
TAB 20: CALL - 958: PRINT MID 
8 (А5,2); 





2080 TL = TL + X:CP = CP + X 

2090 IF CP < 9 THEN ST = 0: GO 

TO 2110 

2100 ST = CP - 9 

2110 НТАВ 1: VTAB l: FOR K * S 

T TO ST * 13: PRINT TXS(K);: IF 
LEN (TX$(K)) < 40 THEN CALL 
- 868: PRINT 

2120 IF K = CP - 1 THEN CALL 
- 868: PRINT "5" 

2130 NEXT : PRINT AS PRINT 

"memoria livre-";40 * (501 - TL 

) 

2140 





RETURN 
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PROGRAMAÇÃO DE 


GRÁFICOS 








Neste primeiro artigo da série sobre 
desenho tipo wireframe , você 
aprenderá a elaborar grades e círculos. 
Mais tarde, verá como utilizá-los 

para estruturar imagens em 3-D. 


Desenhos tridimensionais em movi- 
mento, do tipo wireframe (ou gradea- 
do), têm se tornado imagens comuns em 
propagandas e, sem dúvida, impressio- 
nam muito. O efeito é uma das mais re- 
centes contribuições do computador às 
comunicações visuais. Se, como usuário 
de um micro pessoal, você quiser pro- 
duzir figuras como aquelas, certamente 
ficará desapontado ao verificar que é 
impossível obter o esplendor das ima- 
gens elaboradas por computadores, ar- 
tistas e técnicos fotográficos nos comer- 
ciais de televisão. 

Mas nem tudo está perdido: nesta sé- 
rie de artigos, você verá como extrair o 
máximo de seu computador, capacitan- 
do-o a produzir e movimentar imagens 
em 3-D de uma maneira que até en- 
genheiros-desenhistas invejariam. 

Como vimos em artigos anteriores, a 
possibilidade de endereçar pontos indi- 
viduais (pixels) na tela proporciona ao 
micro uma poderosa ferramenta de de- 
senho, O TK-90X, por exemplo, tem 
256 pixels na horizontal e 176 na verti- 
cal. Normalmente, desenhamos linhas 
retas ou pontos que, combinados com 
recursos de cor, são usados para produ- 
zir imagens de alta resolução. 

O método empregado para desenhar 
linhas em sistemas gráficos controlados 
por computador é, em geral, semelhan- 
te ao utilizado quando se trabalha com 
caneta e papel. Podemos mover o cur- 
sor pela tela fazendo com que ele deixe 
marcas ou náo, e mudar de cor é táo 
simples quanto trocar de caneta. 

A principal diferenga entre desenhar 
com o computador ou manualmente 
tá na rapidez da máquina e na perfei- 
ção com que ela traça linhas retas. Es- 
tas características tornam possível dese- 
nhar imagens em seus contornos ou 
mesmo wireframes tridimensionais. 

















O QUE É UM DESENHO 

TIPO WIREFRAME? 

OMO ORGANIZAR AS ROTINAS 
DESENHE UMA GRADE 
DESENHE UM CÍRCULO 





EM 3-D (1) 


























































0 0UE É, AFINAL, UM WIREFRAME? 


Wireframes são representações ima- 
ginárias formadas por grades de linh: 
sobre a superfície do objeto. Geralmen- 
te, neste tipo de desenho, as linhas de 
fundo do objeto também ficam aparen- 
tes, pois, para escondé-las, precisaría- 
mos de muitos cálculos extras. O resul- 
tado é uma figura que parece feita so- 
mente de uma armação de arame. 


Os wireframes podem ser movimen- 
tados ou rodados, como vemos em di- 
versas propagandas. Nos micros pes- 
soais, não se consegue a mesma rapidez. 
Para alcançar velocidade semelhante, 
precisariamos que os quadros mudassem 
pelo menos a cada 1/25 de segundo. Na 
verdade, a maioria dos computadores 
usados nos comerciais de TV também 
não são tão rápidos assim, mas as ima- 
gens parecem estar em “tempo real” 
gracas a técnicas de filmagem. 


Em desenhos estáticos, o tempo náo 
é importante, embora cause irrita 
perar demais até que uma figura se com- 
plete. Mas, por outro lado, muitas ve- 
zes é mais interessante ver a figura sen- 
do desenhada do que vé-la acabada, so- 
bretudo se ela for bem complexa 

Começaremos desenhando formas 
simples, como cubo ou esfera; à medi- 
da que nos familiarizarmos com as téc- 
nicas do wireframe, tentaremos formas 
mais complicadas. Neste artigo, apren- 








MAA 











deremos a criar figuras bidimensionais 
que parecerão estar em espaço tridimen- 





sional. Infelizmente, as rotinas aqui 
apresentadas não servem para os micros 
das linhas ZX-81 e TRS-80. 


PRIMEIROS PASS0S 


A execução de um desenho comple- 
xo do tipo wireframe é bem demorada, 
independentemente da velocidade ou da 


capacidade de traçar linhas de um mi- 
cro. Os primeiros passos consistem na in- 
corporação de um conjunto de rotinas, 
que incluem os comandos gráficos bá- 
sicos. Precisamos de um comando que 
mova o cursor sem desenhar e outro que 
o movimente desenhando. Estes coman- 
dos variam de máquina para máquina, 
como é o caso do MOVE, DRAW e LI- 
NE, já vistos em outros artigos. 

Um programa gráfico geralmente co- 
meça ajustando o computador para o 
modo gráfico, se necessário, e limpan- 
do a tela. Devemos optar sempre pela 
resolução de tela mais alta. Convém ain- 
da estruturar o programa de modo que 
todos os comandos gráficos sejam co- 
letados juntos em sub-rotinas. Com es- 
sa medida, evitaremos reescrever desne- 
cessariamente porções de programa que 
realizam a mesma tarefa. Além disso, 
tanto a expansão quanto o entendimen- 
to do programa serão mais simples se os 
comandos que realizam certa tarefa fo- 
rem coletados numa mesma área. A es- 
truturação de um programa deixa-o, de 
fato, um pouco lento; isso, porém, não 
tem maior importância quando lidamos 
com figuras estáticas. 


ICIALIZAÇ, MAQUINA 


Para começar o trabalho com as ro- 
tinas de desenho, digite esta parte do 
programa, mas nào a rode ainda pois es- 
tá incompleta. 








9000 REM 
9005 PI = 
9010 HGR2 
9070 RETURN 

9100 REM MOVE 

9110 HPLOT X1,Y1 

9120 RETURN 

9200 REM DESENHA 

9210 HPLOT X1,Y1 TO X2,Y2 
9220 RETURN 


INICIO 
4% АТМ (1) 
HCOLOR= 3:N = 0 


9000 
9030 


PCLS 
RETURN 


9000 
9010 
CLS 

9070 
9100 
9110 
9120 
9200 
9210 
3678 
9220 


REM INICIO 
BORDER A: 
LET N=0 
RETURN 
REM MOVE 
PLOT X,Y 
RETURN 
REM DESENHA 
DRAW X-PEEK 23677,Y-PEEK 2 


PAPER 7: INK O: 


RETURN 


9000 cLS 
9030 RETURN 


Os programas do TRS-Color e MSX 
são mais curtos porque esses computa- 
dores permitem que movimentemos o 
cursor e desenhemos usando um simples 
comando. Os programas do Spectrum 
e do Apple, por sua vez, contêm sub- 
rotinas que movimentam o cursor sem 
desenhar (linhas 9100 a 9120) e que de- 
senham na tela (linhas 9200 a 9220). Es- 
sas rotinas combinadas formam uma 
única rotina de movimento e desenho. 

Agora, para fazer um desenho, não 
precisaremos dizer ao computador co- 
mo mover o cursor ou marcar a tela: 
bastará definir a forma do objeto nos 
termos dessas rotinas básicas. 


DESENHO DE LINHAS 


A forma mais simples que um dese- 
nho pode assumir é, sem düvida algu- 
ma, à de uma linha. Aqui está a rotina 
que faz isso; digite-a, mas nào rode o 
programa ainda. 


9500 
9510 
0 
9520 
0 


REM 
Xl = 


LINHA 
XS:Y1 = YS: GOSUB 910 


X2 = XE:Y2 = YE: GOSUB 920 


9550 RETURN 


9500 
9550 


LINE(XS,YS) - (XE, YE) , PSET 
RETURN 


9500 
9510 
9100 
9520 
9200 
9550 


REM LINHA 


LET X-XS: LET Y-YS: GOSUB 


LET X=XE: LET Y=YE: GOSUB 


RETURN 


9500 
9550 


LINE(XS,YS)-(XE,YE),15 
RETURN 


A rotina especifica uma posição ini- 
cial — coordenadas (XS, YS) — e uma 
posição final — coordenadas (XE, YE) 
— para a linha. Em alguns computado- 
res é necessário utilizar os comandos 
DRAW ou LINE; em outros, isto já es- 
tá especificado nas rotinas das linhas 
9100 a 9220. A rotina que desenha linhas 
é a base da maioria dos programas do 
tipo wireframe. 














Para representar uma superfície e 
qualquer irregularidade que possa ter — 
como morros, vales, fendas etc. — é me- 
lhor visualizá-la não como uma área 
contínua dentro de um retângulo, mas 
como uma grade de linhas horizontais 
e verticais. Assim, todas as irregularida- 
des poderão ser representadas por dis- 
torções dessas linhas. 

A próxima seção do programa defi- 
ne a rotina que desenha uma grade. 
Digite-a, mas não a rode. 


(411%) 


JA = LW / NX 


5010 XS = XA 

5020 FOR J = 0 TO NX 

5025 ҮЗ = ҮА:ХЕ = XS:YE = YA + 
LH 

5030 GOSUB 9500 

5040 XS = XS + JA 

5050 NEXT J 


JA = LH / NY 
YS = YA + LH 





5080 FOR J = 0 TO NY 

5090 XS = XA + LW:XE = XA:YE = 
YS 

5100 GOSUB 9500 

5110 YS = YS - JA 

5120 NEXT J 

5130 RETURN 

5000 JA=LW/NX 

5010 XS=XA 


FOR JB=0 TO NX 
YS=YA:XE=XS: YE=YA+LH 
GOSUB 9500 

XS=XS+JA 

NEXT JB 

JA=LH/NY 

YS=YA+LH 

FOR JB=0 TO NY 
XS=XA+LW:XE=XA: YE=YS 
GOSUB 9500 

YS=YS-JA 

NEXT JB 

RETURN 


5000 
5010 
5020 
5025 
YE=YA+LH 


LET JA=LW/NX 

LET XS=XA 

FOR J=0 TO NX 

LET YS=YA: LET XE=XS: LET 


5030 
5040 
5050 
5060 
5070 


GOSUB 9500 

LET XS=XS+JA 

NEXT J 

LET JA=LH/NY 

LET YS=YA+LH 

5080 FOR J=0 TO NY 

5090 LET XS=XA+LW: LET XE=XA: L 
ET YE=YS 


- 5100 GOSUB 9500 


5110 LET YS=YS-JA 
5120 NEXT J 





na 


5000 
5010 
5020 
5025 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 


As coordenadas (XA,YB) especifi- 
cam o canto inferior esquerdo da gra- 
de. LW especifica a largura; LH, a al- 
tura; NX, o número de divisões horizon- 
tais, e NY, o número de divisões verti- 
cais. A variável JA determina a distân- 
cia entre as linhas verticais, e o laço 
FOR...NEXT desenha horizontais, 
mantendo aquele intervalo. O segundo 
laço FOR...NEXT desenha verticais a 
intervalos calculados pela linha 5060. 

A rotina entre as linhas 5000 e 5180 
desenha as linhas horizontais da esquer- 
da para a direita, e as verticais de baixo 
para cima, formando uma grade de su- 
perfície plana. Não poderíamos, portan- 
to, representar irregularidades na super- 
fície dessa grade. 

Para mostrá-la na tela, digite as li- 
nhas seguintes, que chamam a rotina, e 
rode o programa. 


#15) 


100 GOSUB 9000 

175 ХА = 0:ҮА = 0:14 = 279:1Н = 
191:NX = 16:NY = 14 

180 GOSUB 5000 

190 STOP 


JA=LW/NX 

XS=XA 

FOR JB=0 TO NX 
YS=YA:XE=XS:YE=YA+LH 
GOSUB 9500 

XS=XS+JA 

NEXT JB 

JA=LH/NY 

YS=YA+LH 

FOR JB=0 TO NY 
XS=XA+LW:XE=XA: YE=YS 
GOSUB 9500 

YS=YS-JA 

NEXT JB 

RETURN 








100 PMODE 4:SCREEN 1,1 

105 PI=4*ATN(1) 

110 GOSUB 9000 

175 XA=0:YA=0:LW=255:LH=191:NX= 
4:NY=3 

180 GOSUB 5000 

190 GOTO 190 


100 GosuB 9000 

175 LET XA=0: LET YA=0: LET LW 
=255: LET LH=175: LET NX=16: 
LET NY=12 

180 GOSUB 5000 

190 STOP 


nu 


100 SCREEN 2:COLOR 1,9,10 


105 PI-4*ATN(1) 
110 GOSUB 9000 
175 XA=0:YA=0:LW=255:LH=191:NX= 
4:NY=3 
180 GOSUB 5000 
190 GOTO 190 

Ao rodar o programa, aparecerá uma 
grade ocupando toda a tela. Faça as mu- 
danças abaixo para observar a versati- 
lidade do programa: 


W 


175 XA = 10:YA = 10:LW = 240:LH 
= 144:NX = J:NY = 1 





175 XA=10:YA=10:LW=240:LH=160:N 
X*1:NY-1 


175 LET XA-10: LET YA-10: LET 
LW-240: LET LH-144: LET NX-1: 
LET NY=1 


nau 


175 XA=10:YA=10:LW=240:LH=160:N 
X=1:NY=10K 


Desta vez, aparece na tela uma caixa 
retangular, já que se especificou uma 
grade com apenas uma divisáo horizon- 
tal e uma vertical. Fornecendo valores 
adequados a NX e NY, como acima, po- 
demos construir uma grade com núme- 
ros de linhas horizontais diferente do de 
verticais. Faça as mudanças que se se- 
guem e rode o programa: 


[ak] [có] 


175 XA = 0:YA = 0:LW = 180:LH = 
130:NX = 16:NY = 16 





175 XA=0:YA=31:LW=160:LH=160:NX 
=15:NY=10 


175 LET XA=0: LET YA=0: LET LW 
=160: LET LH=144: LET NX=15: 
LET NY=10 


М 


175 XA=0:YA=31:LW=160:LH=160:NX 
=15:NY=10 


Para a forma quadrada, determina- 
mos os valores apropriados de LW e LH 
e o número de divisões por NX e NY. 





0 DI 





NHO DE CÍRCULI 


Os circulos também sáo muito úteis 
nos desenhos tipo wireframe. Em alguns 





micros, eles podem ser executados dire- 
tamente por um comando, bastando que 
se definam o centro e o raio. 

O comando direto, contudo, não nos 
oferece o grau de controle necessário pa- 
ra a elaboração de um desenho tridimen- 
sional. Em perspectiva, um círculo vis- 
to de um certo ângulo pode parecer uma 
elipse ou até uma curva. Embora dese- 
nhe elipses, o comando CIRCLE não é 
capaz de lhes conferir a tridimensiona- 
lidade essencial para garantir a aparên- 
cia realística ao objeto. Convém, por- 
tanto, definir uma função genérica. 

Podemos compor um círculo usando 
uma série de segmentos de reta. Se es- 
tes forem suficientemente pequenos, a 
curva parecerá contínua. Mas, quanto 
menores forem os segmentos de reta, 
maior será o número deles e mais pro- 
longado o tempo de execução. Aqui es- 
tá uma rotina que desenha um circulo 
de raio R com centro em (XS, YS). 
Digite-a, mas não a rode ainda. 


r aire) 


6000 IF N= 0 THENN = 20+ I 
NT (R / 10) 

6020 JA = 2 * PI / N 

6050 XR = XS:YR = YS 

6060 JB = 0:XS = XS + R 

6070 FOR J = 2 TO N 

6080 JB = JB + JA 


6090 XE = XR + R * COS (JB):YE 
* YR * R * SIN (JB): GOSUB 95 
00 

6100 XS = XE:YS = YE 

6110 NEXT J 

6120 XE = XR + R:YE = YR: GOSUB 
9500 


6130 XS = XR:YS = YR 
6160 RETURN 





6000 
6020 
6050 
6060 
6070 


IF N=0 THEN N=20+INT(R/10) 
JA=2*PI/N 

XR*XS:YR-YS 

JB=0:XS=XS+R 

FOR JC=2 TO N 

6080 JB=JB+JA 

6090 XE=XR+R*COS (JB) : YE=YR+R*SI 
N(JB) :GOSUB 9500 

6100 XS=XE:YS=YE 

6110 NEXT JC 

6120 XE=XR+R:YE=YR:GOSUB 9500 
6130 XS=XR:YS=YR 





6160 RETURN 

6000 IF N=0 THEN LET N=20+INT 
(R/10) 

6020 LET JA=2*PI/N 

6050 LET XR=XS: LET YR=YS 

6060 LET JB-0: LET XS-XS*R 
6070 FOR J-2 TO N 

6080 LET JB-JB*JA 


6090 LET XE-XR*R*COS JB: LET YE 


=YR+R*SIN JB: GOSUB 9500 


6100 LET XS-XE: LET YS-YE 

6110 NEXT J 

6120 LET XE-XR*R: LET YE-YR: GO 
SUB 9500 

6130 LET XS-XR: LET YS-YR 


6160 RETURN 


nau 


6000 
6020 
6050 
6060 


IF N=0 THEN N=20+INT(R/10) 
JA-2*PI/N 

XR=XS : YR=YS 

JB=0:XS=XS+R 

6070 FOR JC=2 TO N 

6080 JB=JB+JA 

6090 XE=XR+R*COS (JB) : YE=YR+R*SI 
N(JB) :GOSUB 9500 

6100 XS-XE:YS-YE 

6110 NEXT JC 

6120 XE=XR+R:YE=YR:GOSUB 9500 
6130 XS=XR:YS=YR 

6160 RETURN 

A variável N especifica o nümero de 
segmentos de reta que serão usados na 
composição do círculo. Caso façamos 
N =0, a linha 6000 calculará o número 
de segmentos necessários para fazer o 
círculo mais liso, levando em conta, é 
claro, o tamanho dele. 

A linha 6020 calcula o ángulo de 
cada segmento de reta na circunferén- 
cia. A linha 6050 move o cursor para 
uma posição na circunferência. O laço 
FOR...NEXT traça todos os segmentos, 
com exceção do último, que é desenha- 
do pela linha 6120, para garantir que se 
una ao primeiro. 

Para ver a rotina funcionando, apa- 
gue a linha 180 e acrescente estas: 


[é] 5] 


150 FOR R = 20 TO 70 STEP 10 
155 XS = 128:YS = 102:N = 24 
160 С05/В 6000 

170 NEXT R 





FOR R=0 TO 100 STEP 20 


150 
155 XS=128:YS=102:N=24 
160 GOSUB 6000 

170 NEXT R 


150 FOR R=20 TO 70 STEP 10 
155 LET XS=128: LET YS=102: 
LET N=24 

160 GOSUB 6000 

170 NEXT R 


nu 


150 FOR R=0 TO 100 STEP 20 
155 XS=128:YS=102:N=24 

160 GOSUB 6000 

170 NEXT R 






Posso colorir wireframes? 

Desenhos do tipo wireframe geral- 
mente são apresentados em duas co- 
res, sobretudo preto e branco. 

A presença de muitas cores tende 
a complicar a imagem, muitas vezes 
anulando o efeito tridimensional. Além 
disso, a adição de cores a um desenho 
complexo esbarra em limitações da 
própria máquina. 

No TRS-Color, o maior número de 
cores sacrifica a alta resolução gráfica, 
pois a resolução se reduz à metade 
quando passamos de um modo de duas 
cores para um de quatro. 

No Spectrum e no MSX, determina- 
das porções da tela só podem apresen- 
tar duas cores. No Spectrum, esta por- 
ção corresponde a cada bloco de oito 
por oito pontos da tela; no MSX, a ca- 
da conjunto de oito pontos adjacentes 
na horizontal. 

Já no Apple e no TK-2000, algumas 
cores ocupam colunas pares, outras 
impares, em alta resolução. Se colocar- 
mos pontos ou linhas em colunas ina- 
dequadas à sua cor, eles simplesmen- 
te não aparecerão na tela. 








O = L S s 


Rodado o programa, um certo núme- 
ro de círculos aparecerá no centro da te- 
la. Como na rotina da grade, podemos 
variar Os parâmetros no programa que 
chama a rotina e obter uma disposição 
de círculos diferente. A linha 150 ajus- 
ta o raio do primeiro circulo e determi- 
na o quanto ele aumenta. A 155 define 
o centro do circulo e o número de seg- 
mentos de reta que formarão a circun- 
ferência. Como exercício, varie esses va- 
lores e veja os resultados. 

Talvez você queira saber o que acon- 
teceu com a rotina da grade: ela ainda es- 
tá na memória, mas, como reescrevemos 
as linhas de código que chamam a roti- 
na, o computador não as mostra. Roti- 
nas como esta podem ser guardadas num 
arquivo de rotinas gráficas para uso pos- 
terior. Elas terão utilidade em vários ti- 
pos de programa gráfico, bem como nos 
de wireframes. Na medida em que for pre- 
ciso, adicione novas rotinas. Uma vez no 
computador, salve-as em cassete ou dis 
со e carregue-as novamente na memória 
quando for utilizá-las. Junte-as, se neces- 
sário. No próximo artigo desta série, ve- 
remos como usar essas rotinas na criação 
de wireframes tridimensionais. 
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UM EDITOR 


DE TEXTOS (2) 


Neste artigo, você encontrará a par- 
te principal do programa editor de tex- 
tos e as explicações sobre o uso das fun- 
ções de edição em cada máquina. Em- 
bora os procedimentos sejam muito pa- 
recidos, controles específicos e algumas 
características variam. 

Após digitar as linhas aqui apresen- 
tadas, você já poderá usar todas as fun- 
ções de edição do programa. Mas 
lembre-se de que só será possível impri- 
mir o texto criado depois da última par- 
te, que daremos no próximo artigo. 

Como você verá, as opções de edição 
oferecidas pelo programa são úteis em 
vários níveis. O mais simples consiste na 
correção dos erros de grafia. E facílimo 
eliminá-los: basta colocar sua.''caneta 
eletrônica”, o cursor, sobre a palavra er- 
rada e inserir ou apagar as letras que 
quiser. 

Se a ortografia não é um problema 
para você, mas sim a composi 
texto, este programa se revelará ideal. 
Ao escrever algo importante, como uma 
solicitação de emprego ou uma explica- 
ção ao gerente sobre um problema em 
sua conta bancária, você já não preci- 
sará gastar uma pilha de folhas de pa- 
pel, riscando e reescrevendo até encon- 
trar o termo mais preciso, ou a forma 
mais adequada. 

Vá direto ao computador e econo- 
mize papel e paciência. 

Comece digitando um rascunho do 
texta e, depois, melhore-o. Analise o 
que já escreveu “passeando” pelo tex- 
to, do início ao fim, quantas vezes jul- 
gar necessário. Quando decidir fazer al- 
guma modificação, corrija, apague ou 
introduza o que quiser. Trabalhe à von- 
tade, até que o texto lhe agrade. 

Uma outra possibilidade que o pro- 
grama lhe oferece é a de armazenar o 
texto elaborado, para usá-lo em outra 
oportunidade ou, apenas, para saber 
mais tarde o que escreveu. 

Os recursos disponíveis neste progra- 
ma são semelhantes, embora muito mais 
simples, aos dos mais modernos proces- 
sadores de texto usados, por exemplo, para 
produzir o que você está lendo agora. 
Quem já viu como tudo isso era feito há 
pouco tempo (e ainda é, em alguns luga- 
res) não terá dúvidas a respeito das vanta- 
gens de utilizar um programa editor. 

















O programa do Spectrum foi elabo- 
rado para uso com um gravador casse- 
ке. Se você tem um Microdrive, faça as 
modificações necessárias. 

As funções de edição são quase idên- 
ticas às do BASIC e, portanto, não é ne- 
cessário um editor especial. Todas as en- 
tradas de texto, bem como as alterações, 
devem ser feitas na parte inferior da te- 
la, a área de trabalho, ficando a parte 
superior para a visualização do que já 
foi escrito. 


Adicionar, corrigir, apagar, tudo 

é possível com um programa editor. 
Portanto, se você quer obter um 
texto perfeito, comece com um 
rascunho e melhore-o à vontade. 


Durante a edição de linhas na área de 
trabalho, pressione <CAPS SHIFT > 
e 5 para mover o cursor para a esquer- 
da e <CAPS SHIFT> e 8 para mové- 
lo para a direita. Quando ele estiver na 
posigáo adequada, digite os caracteres 
necessários. Para apagar, coloque o cur- 
sor á direita do caractere e pressione 
<CAPS SHIFT> е 0. 

Para transferir o texto para a memó- 
ria e para a área superior, tecle < EN- 
TER>. Linhas com mais de 64 carac- 
teres irão automaticamente para a me- 
mória, visto que a área de trabalho su- 
































porta no máximo duas linhas de texto. 
Mas elas permanecerão juntas para efei- 
to de impressão, a não ser que se usem 
comandos de formatação. 

As teclas de cursor para cima e para 
baixo são usadas para localizar linhas do 
texto na memória. O marcador fica 
abaixo da linha de interesse, na área de 
visualização do texto. Esta linha pode 
ser copiada para a área de trabalho 
usando-se a função EDIT habitual — 
pressione <SHIFT > е І. Рага apagar 
a linha, pressione <CAPS SHIFT > e 
9, deixando o modo editor e, em segui- 
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da, «CAPS SHIFT» e «SYMBOL 
SHIFT > simultaneamente. 

Para ler todo o texto da memória, use 
as teclas de cursor para cima e para bai- 
xo ou <CAPS SHIFT> e6e <CAPS 
SHIFT> e 7. Estas teclas moveráo o 
texto para cima ou para baixo, uma li- 
nha de cada vez. 


1000 REM imprime a tela 
1005 PLOT 0,13: DRAW 255,0: PLO 
T 0,14: DRAW 255,0 


1010 PRINT AT 0,0;: FOR n=p-10 
TO p*8 

1020 IF n<1 OR n>200 THEN PRIN 
T s$: GOTO 1050 

1025 ІҒ пер THEN PRINT 

1030 PRINT t$(n) 

1040 POKE 22528*320,120 

1050 NEXT n 

1060 RETURN 

2000 REM entrada 

2010 LET j$-"" 

2015 T 0,0;1$; FLASH 





a$2"" THEN GOTO 2020 

2025 SOUND .01,20 

2030 IF aS<CHRS 32 THEN GOSUB 
2500 

2040 IF aS>CHRS 31 AND aS<CHRS 
123 THEN LET i$-1$*a$ 

2042 IF aS-CHRS 13 AND b=ext-6 
THEN PRINT 41;AT 0,0;s$;s5; FL 
ASH 1;"ARQUIVO LOTADO": SOUND 2 
+10: RETURN 

2045 IF a$-CHRS 13 OR LEN 1S+LE 
М 3$-64 THEN PRINT %1;АТ 0,0;s 
$:s$:s$: LET 1$-1$*3$: GOTO 210 
0 


2050 IF a$-CHR$ 14 THEN RETURN 


2052 IF aS=CHRS 6 THEN INPUT ” 
Introduza palavra procurada", L 


INE z$: IF z$-"" TPEN GOTO 205 
2 

2053 IF aS=CHR$ 6 THEN LET p=4 
: GOSUB 8000 

2054 IF aS=CHRS 4 THEN GOSUB 8 
000 

2055 IF aS=CHRS 5 THEN GOSUB 8 
500 

2060 GOTO 2015 

2100 IF LEN 15>32 THEN GOTO 21 
50 

2105 FOR n=b+1 ТО p STEP -1 
2110 LET tS(n+1)=tS(n) 

2120 NEXT n 

2130 LET t$(n*1)-1$: LET p-p*l: 
LET b=b+1 








2140 GOSUB 1000: GOSUB 2500: GO 
TO 2000 

2150 FOR n-b*l TO p STEP -1 
2160 LET tS(n+2)=tS(n): LET t$( 
n*3)-t$ (n*1) 

2170 NEXT n 





2180 LET tS(n+1)=iS( TO 32): LE 

T tS(n+2)=18(33 TO ): LET p=p+2 
LET b=b+2 

2190 GOTO 2140 

2200 LET p-p-1: FOR n-p TO b*l 

2210 LET t$(n)*t$(n*1) 

2220 NEXT n 

2225 LET b=b-1 

2230 GOSUB 1000 

2240 RETURN 

2500 REM codigos de controle 

2520 IF aS=CHRS 10 AND p<b-2 TH 

EN LET p=ptl: GOSUB 1000 

2530 IF a$=CHRS 11 AND p>t+3 TH 

EN LET p=p-1: GOSUB 1000 

2540 IF aS=CHRS 12 AND LEN 13>0 


THEN LET i$-7i$( TO LEN 18-1) 

2550 IF a$=CHRS 8 AND LEN 1$>0 

THEN LET 35=1S(LEN 1$)*5$: LET 
18=18( TO LEN 1$-1) 

2560 IF aS=CHRS 9 AND LEN 3520 

THEN LET 18=18+35(1): LET 39=3 

$(2 TO ) 

2570 IF aS<>CHRS 7 THEN GOTO 2 

580 

2572 LET j$-t$(p-1): LET i$e"": 
PRINT %1;АТ 0,0;в5;в5 

2575 IF 3S(LEN 3$)=CHRS 32 THEN 
LET j$=j$( TO LEN 35-1): ІРІ. 

EN 35>0 THEN GOTO 2575 

2580 IF aS-CHR$ 15 AND p»4 THEN 
GOSUB 2200 

2690 RETURN 

3000 REM cores 

3010 PRINT AT 10,4;"Selecione c 

or de fundo (0-7)" 

3020 PAUSE 0: LET a$-INKEY$: IF 





as<"0” OR aS>"7” THEN GOTO 30 
20 

3030 PAPER VAL aS: BORDER VAL a 
$: CLS : RETURN 





Em geral, o texto é exibido na tela (e 
eventualmente impresso) em letras maiús- 
culas. Minúsculas podem ser usadas te- 
clando « SHIFT >0. Natela, aparecerão 
como caracteres invertidos (fundo escu- 
ro, caractere claro). 

Os controles de edição seguem as di- 
retrizes anteriormente mencionadas. E- 
dita-se o texto na área de trabalho, lo- 
calizada na parte inferior da tela. A par- 
te superior é utilizada para mostrar o 










texto que já está na memória. As teclas 
de controle do cursor têm um papel im- 
portante na edição. As teclas <>> e 
<+> permitem que você mova o cur- 
sor pelo texto na área de trabalho. Se 
você pressionar < SHIFT > juntamen- 
te com <+>, o cursor pulará para O 
início ou fim da linha. 

Para inserir caracteres em um ponto 
da linha na área de trabalho, coloque o 
cursor à direita do local escolhido e te- 
cle o que desejar. Não se pode sobrepor 
caracteres. Para eliminar erros, coloque 
o cursor sobre o caractere e tecle a seta 
para baixo. 

Para ativar o modo editor, tecle a se- 
ta para cima. O cursor vai para a últi- 
ma posição acessada, indicada por um 
sinal > piscando. 

No modo editor, pode-se inspecionar 
o texto da memória, rolando-o para ci- 
ma e para baixo com as setas respecti- 
vas. Avanços (ou retrocessos maiores) 
são possíveis com as teclas U e D, que 
pulam de 10 em 10 linhas. 

Se quiser apagar linhas de texto, po- 
sicione o marcador logo abaixo da linha 
e pressione <SHIFT > e seta para bai- 
xo, ao mesmo tempo. Linhas em bran- 
co podem ser inseridas a partir da área 
de trabalho, pressionando-se <EN- 
TER> quando ela está vazia. 

Para copiar uma linha da memória 
para a área de trabalho, coloque o mar- 
cador logo abaixo dela e pressione С 
(dentro do modo editor). A linha mo- 
dificada náo substitui a original, deven- 
do esta ser apagada depois. Volta-se do 
modo editor para a área de trabalho 
teclando-se <ENTER>. <CLEAR> 
retorna da área de trabalho para o me- 
nu de edição. 


2500 PM=5:IF CP<5 THEN PM=CP 
2510 TBS=INKEYS:IF TBS="" THEN 
PRINT 6PM*32,"":PRINT &PM*32,"5 
":GOTO 2510 

2520 CP=CP+(TB$=""")- (TB$=CHRS( 
10))+10*((TB$="U”)- (TB$="D")) 
2530 IF CP<1 THEN CP=1 

2540 IF CP>TL THEN CP=TL 

2550 GOSUB 2090 

2560 IF TBS-CHR$(13) THEN RETUR 


N 

2570 ІҒ СР>1 AND TB$=CHR$ (91) T 
HEN TL=TL-1:FOR K=(CP-1) TO TL: 
TXS (K) =TXS (K+1) :NEXT: TXS (TL+1)= 
"":CP=CP-1:GOSUB 2090 

2580 IF CP>1 AND TBS="C” THEN Е 
OR K=32 TO 1 STEP -1:IF MIDS(TX 
S(CP-1),K,1)="" THEN NEXT ELSE 
AS=LEFTS (TXS (CP-1),K)+""” : RETURN 
2590 IF TB$-"P" GOSUB 5070 

2600 IF TB$-"é". THEN SF-SF*1:IF 
SF=1 THEN SS=CP ELSE SE=CP:SF= 
0:GOSUB 5130 

2610 GOTO 2500 

3000 RETURN 'LINHA TEMPORARIA 
4000 CLS:IF TL=1 THEN PRINT €7, 





"nada para quardar"FOR Z=1 TO 1 

000:NEXT:RETURN 

4010 CLS:LINEINPUT” NOME DO ARQ 

UIVO?";F$ 

4020 IF LEFTS(FS,1)<"A” OR LEFT 

$(F5,1)>"Z" THEN 4010 

4030 IF TS=1 THEN 4120 

4040 CLS:MOTORON: AUDIO ON:PRINT 

"POSICIONE O TAPE E PRESSIONE 
<ENTERD” 

4050 ІР INKEYS<>CHRS (13) THEN 4 


050 ELSE MOTOROFF:AUDIO OFF:PRI 
NT”POSICIONE O GRAVADOR EM "REC 
* E PRESSIONE <ENTER>” 

4060 IF INKEYS<>CHRS (13) THEN 4 
060 

4070 MOTORON:FOR K=1 TO 1000:NE 
ХТ:ОРЕМ"О",%-1,Е5 

4080 PRINT 4-1,CP,TL 

4090 FOR K=1 TO TL-1:PRINT 4-1, 
TX$ (K) : NEXT 

4100 CLOSE 4-1 

4110 RETURN 

4120 CLS:PRINT"CERTIFIQUE-SE DE 
QUE O DRIVE ESTA LIGADO E O 
DISCO INSERIDO. PRESSIONE <ENT 
ER>PARA CONTINUAR” 

4130 IF INKEYS<>CHRS (13) 
130 ELSE F$-F$*"/DAT" 
4140 OPEN "О", #1, F$ 
4150 WRITE 41,CP,TL 

4160 FOR K=1 TO TL-1 

4170 WRITE 41, TXS(K) 

4180 NEXT:CLOSE 41:RETURN 
4500 CLS:PRINT 68,BL$;"carregar 
";BLS;"um";BLS;"arquivo";BLS:IF 
TL*1 THEN 4540 


THEN 4 


4510 PRINT "VOCE TEM CERTEZA (S 
/N)?" 

4520 R$=INKEYS:IF R$<>"S" AND R 
S<>"N” THEN 4520 


4530 IF R$-"N" THEN RETURN 
4540 CLS:LINEINPUT"NOME DO ARQU 
IVO: "¡FS 

4550 IF LEFTS(FS,1)< "A” 
TS(F$,1)>"Z” THEN 4540 
4560 IF DL=1 THEN 4645 
4570 MOTORON:AUDIOON:PRINT"POSI 
CIONE O TAPE EM 'PLAY' E PRE 
SSIONE <ENTER>" 

4580 IF INKEYS<>CHR$S(13) THEN 4 
580 

4590 OPEN "I”,4-1,FS 

4600 INPUT 4-1,CP,TL 

4610 FOR K=1 TO TL-1: INPUT 4-1, 
TXS (K) :NEXT 

4620 CLOSE 4-1:GOSUB 2090 

4630 TXS(TL)=STRINGS (32,126) 
4640 RETURN 

4645 FS=FS+"/DAT” 
4650 OPEN "I", 41, 
CP,TL 

4660 FOR K=1 TO TL-1:INPUT 41,T 
х5(К) 

4670 NEXT:CLOSE 41:RETURN 

5000 CLS:PRINT €9,BL$;"selecao” 
¡BLS;” CHR$ (124) ;”8”;BLS:PRIN 
T 696,"CARREGAR DE (F)ITA OU (D 


OR LEF 





FS: INPUT 41, 











)ISCO? 
5010 B: NKEYS: IF BS<>"F” AND 
BS<>"D” THEN 5010 


5020 PRINT B$:DL-0:IF B$-"D" TH 
EN DL=1 


5030 PRINT:PRINT"GRAVAR EM (F)I 
TA OU (D)ISCO?" 

5040 BS=INKEYS: 
$<>"D” THEN 5040 

5050 PRINT B$:TS-0:IF B$-"D" TH 
EN TS=1 

5060 RETURN 

5070 RETURN 'LINHA TEMPORARIA 
5130 RETURN 'LINHA TEMPORARIA 
5500 CLS:PRINT €3,BLS;"preparac 
ao";BLS;"da";BL$;"impressora";B 
L$ 

5510 PRINT 6128,;:INPUT"LARGURA 
DO FORMULARIO” ;MW:MW=INT (MW) : 
F MW«1 THEN 5510 

5520 INPUT "COMPRIMENTO DE LINH 
A";TW:TW-INT(TW):IF TWXl OR TW» 
MW THEN 5520 

5530 INPUT"COMPRIMENTO DO FORMU 
LARIO";PL:PL*INT(PL):IF PL<1 TH 
EN 5530 

5540 INPUT"LINHAS POR PAGINA";T 
H:TH=INT(TH):1F TH<1 OR TH>PL T 
HEN 5530 

5550 GP=INT((MW-TW) /2) :LFS=STRI 
NGS (INT((PL-TH)/2),13) 

5560 PRINT:PRINT:PRINT” CONFIRM 





F BS<>"F” AND B 








A (S/N)?" 

5570 RS=INKEYS:IF R$<>"N” AND R 
$«»"S" THEN 5570 

5580 IF R$-"S" THEN RETURN ELSE 
5500 


ШУІГІ 


Os editores para o MSX e o Apple se- 
guem, em linhas gerais, o que já foi di- 
to. É importante prestar atenção quan- 
do se usam minúsculas, pois as respos- 
tas requeridas pelo computador só são 
aceitas em maiúsculas. Por outro lado, 
dentro do editor, podem-se usar sem 
problemas os sinais de pontuação e 
acentuação (esta, no caso do MSX). 

Trabalha-se o texto na área situada na 
parte inferior da tela. Quando se entra 
nesta área, o cursor é visível no começo 
na linha. A partir daí, escreve-se normal- 
mente. As setas para a direita e para a 
esquerda movimentam o cursor nas res- 
pectivas direções. Pode-se acelerar sua 
movimentação por meio de < CTRL > 
«A» e <CTRL> <S>. A pressão si- 
multânea dessas teclas coloca o cursor 
na primeira e última posição da linha, 
respectivamente. Para inserir um carac- 
tere, leve o cursor para a posição ime- 
diatamente à direita de onde fará a in- 
serção e digite o caractere. Não é possi- 
vel sobrepor caracteres. Para apagar al- 
go errado, coloque o cursor sobre o ca- 
ractere e digite <CTRL> <D>. 

Para ativar o modo editor, pressione 
<CTRL> <E>. O marcador do texto 
comegará a piscar. Teclando <CTRL> 
<О> e <CTRL> <Z>, você poderá 
inspecionar o texto todo. Esses comandos 
fazem com que o marcador (e o texto) ro- 
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Linhas em branco podem ser criadas 

simplesmente teclando-se < RETURN >, 
com a área de trabalho vazia. 
O programa para o Apple armazena 
e grava dados somente em disco. Já o 
programa para o MSX trabalha apenas 
com gravador cassete. Não estranhe se 
a leitura de dados no Apple for moro- 
sa, Para não haver problema com os si- 
nais de pontuação, éneces- 
sário que os caracteres se- 
jam lidos um de cada vez. 
Se você quiser mais veloci- 
dade, não se importando 
com a pontuação, elimine 
o laço das linhas 4600 e 
4610 e deixe apenas a ins- 
trução INPUT TXS (К). 




















































:IF CP<9 THEN РМ-СР 
NKEYS:IF TBS-""THEN L 
OCATE 0,PM:PRINTCHRS (219) ;:PRIN 
TCHRS (8) ; CHR$ (175) ;:GOTO 2510 
2520 CP=CP+(TBS=CHRS(17))-(TBS= 
CHR$ (26) ) +10* ((TBS=CHRS (23) )- (T 
BS*CHR$ (24))) 
2530 IF СР<1 THEN CP=1 
2540 IF CP>TL THEN CP=TL 
2550 GOSUB 2080 
2560 IF TBS=CHR$(27) THEN ВЕТИВ 
N 
2570 IF CP>1 AND TBS=CHRS(12) Т 
HEN TL-TL-1:FOR K=CP-1 TO TL:TX 
$ (K)=TXS (K+1) :NEXT: TXS (TL+1)="" 
:CP=CP-1:GOSUB 2080 
2580 IF CP>1 AND TBS-CHR$(3) TH 
EN AS-TXS(CP-1)*" ":RETURN 
2590 IF TBS-CHR$(16) THEN GOSUR 
5000 
2600 IF TB$=CHR$(15) THEN SF=SF 
*1:1F SF=1 THEN SS=CP ELSE SE=C 
P:SF=0:GOSUB 5060 
2610 GOTO 2500 
3000 RETURN 'LINHA TEMPORARIA 
4000 CLS:BL$-"Gravar na fita":G 
OSUB 220:TF TL=1 THEN BEEP:LOCA 
TE 12,11:PRINT"Nada a gravar!” 
FOR Z=1 TO 1000:NEXT:RETURN 
4010 LOCATE 4,4:LINEINPUT"Nome 
do arquivo? ";F$ 
4020 IF LEFTS(FS,1)<"A" OR LEFT 
5(Е5.1)>"2"ТНЕМ 4010 
4030 LOCATE 1,6:PRINT"Posicione 
a fita e pressione <RETURN>” 
4040 IF INKEYS<>CHRS (13) THEN 4 
040 ELSE PRINT:PRINT"Deixe o gr 
avador pronto para iniciar 9 
ravação e pressione <RETURN>" 
4050 IF INKEYS<>CHRS (13) THEN 4 
050 
4060 OPEN FS FOR OUTPUT AS 41 
lem para cima ou para baixo. <CTRL> de memória para a área de trabalho, te- 4070 PRINT41,CP,TL 
<W> e <CTRL> <X> provocamsal-  cle <CTRL> <C>,como marcador 4080 FOR K-1 TO TL-1:PRINT41,TX 
tos maiores (de 10 linhas). embaixo da linha desejada. A linha apa-  S(K):NEXT 
Para apagar linhas de texto, estando recerá na área de trabalho e poderá ser 4090 Ena u 
no modo editor, pressiona-se <CTRL> editada imediatamente. Note que, ao te- 4109 ВЕТ pue E 
> A L$-"Carregar da fita 
<L>. A linha logo acima do marcador clar «RETURN рага devolvé-la pà- .Gogug 220:1F TL-1 THEN 4540" 
será apagada. ra a memória, ela não substituirá a ori- 4510 LOCATE 12,12:PRINT"Confirm 
Quando quiser transferir uma linha — ginal. É necessário apagá-la. e (S/N) "; 
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4520 R$=INKEYS:IF R$="" THEN 45 2560 IF TBS = CHRS (27) THEN 4000 HOME :BLS = "GRAVAR": GOS T 
20 RETURN UB 250 41 
4530 IF R$€>"S” THEN RETURN ELS 2570 ІҒ СР > 1 AND TBS = CHRS 4010 IF TL = l THEN PRINT CH 45 
E TL=1:GOTO 4500 (12) THEN TL = TL - 1: FOR K = R$ (7);: HTAB 13: VTAB 12: PRIN os 
4540 LOCATE 4,4:LINEINPUT"Nome CP - 1 TO TL:TXS(K) - TXS(K + Т "МАРА А GRAVAR!": FOR Z = 1 T 45 
do arquivo? ";FS 1): NEXT ¿TXS(TL + 1) = "":CP = 0 2000: NEXT : RETURN CL 
4550 IF LEFTS(FS,1)<"A" OR LEFT Ср - 1: GOSUB 2090 4020 НТАВ 5: VTAB 5: PRINT "NO ë : 
$(FS,1)>”Z" THEN 4540 2580 IF CP > 1 AND TBS = CHR$ ME DO ARQUIVO? (MAX 20 CARACT)" 07 
4560 PRINT:PRINT:PRINTTAB(2);"P (3) THEN AS = ” " + TXS(CP - 1  : INPUT "->";FS 4 45 
osicione a fita e tecle <RETURN ) « " ": RETURN 4030 IF ASC (FS) < 65 OR ASC 45 
>" 2590 IF TBS = CHRS (16) THEN (FS) > 90 THEN 4000 i ( 
4570 IF INKEYS<>CHRS (13) THEN457 — GOSUB 5200 4040 FS = LEFTS (F$,20):FS = F 45 
0 2600 IF TB$ = CHRS (15) ТНЕМ $ + ".ТХТ” 45 
4580 PRINT:PRINT"Deixe o gravad SE = SP + l: ТЕ ЗЕ = 1 THEN SS 4050 PRINT D$;"OPEN";F$;",S";S li 
or pronto para leitura e — tecl . ср. сото 2620 1;",0":52 S 45 
e <RETURN>" 2610 IF TBS = CHRS (15) THEN 4060 РВІМТ 05; "ОЕГЕТЕ";ЕЅ 45 
4590 IF INKEYS<>CHR$(13)THENA59 SE = CP:SF = 0: GOSUB 5300 4070 PRINT DS;"OPEN";FS 45 

n 2620 GOTO 2500 4080 PRINT DS;"WRITE";F$ 45 
4600 ОРЕМ FS FOR INPUT AS 41 3000 RETURN : REM LINHA TEMPO 4090 PRINT CP: PRINT TL 46 
4610 INPUT #1,CP,TL RARIA 4100 FOR K = 1 TO TL - l: PRIN 


4620 FOR K=1 TO TL-1:LINEINPUT 
41,TXS(K) :NEXT 

4630 CLOSE 41:RETURN 

5500 CLS:BL$-"Configura impress 
ora":GOSUB 220 

5510 LOCATE 0,5:PRINT"Configura 
ção atual:" 

5520 PRINT:PRINT:PRINT"Largura 
da linha: ";MW;" col" 

5530 PRINT"Largura do texto: ”; 
TW;" col" 

5540 PRINT:PRINT"Comprimento da 
pag.: ";PL;" linhas” 

5550 PRINT"Comprimento do texto 
: ";TH;" linhas" 

5560 PRINT:PRINT:PRINT"Quer alt 
erar? ^; 

5570 R$-INKEYS:IF R$-"" THEN 55 








5580 IF R$<>"S” THEN RETURN 
5590 CLS:GOSUB 220:LOCATE 0,8 
5600 INPUT"Largura da linha ";M 


5610 MW-INT(MW):IF MW<1 THEN 56 
5620 INPUT"Largura do texto ";T 


W 
5630 TW=INT(TW):IF TW<1 OR TW>M 


W THEN 5620 
5640 PRINT: INPUT"Comprimento da 


pag. PL 

5650 PL=INT(PL):IF PL<1 THEN 56 
40 

5660 INPUT"Comprimento do texto 


¿TH 
5670 TH=INT(TH):1F TH<1 OR TH>P 
L THEN 5660 
5680 GP=INT((MW-TW) /2) :LF=INT(( 
PL-TH) /2) :LF$=STRINGS (LF,13) 
5690 GOTO 5500 


2500 PM = 9: IF CP < 9 THEN PM 


2510 НТАВ 1: VTAB PM + 1: PRIN 
T ">"; CHRS (8);: GET TBS 

2520 CP = CP + (TBS = CHR$ (26 
)) - (TB$ * CHR$ (17)) + 10 * 
((TBS = CHRS (24)) - (TBS = C 
HR$ (23))) 

2530 IF CP < 1 THEN CP = 1 
2540 IF CP > TL THEN CP = TL 
2550 GOSUB 2090 
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8 T TXS(K): NEXT 5020 VTAB 8: PRINT "CONFIGURAC 5060 GET R$: IF RS € > "S" AN 
4110 PRINT D$;"CLOSE": RETURN AO ATUAL:" D RS < > "М" ТНЕМ 5060 
'H 4500 HOME :BL$ - "CARREGAR": G 5030 PRINT : PRINT TAB( 5)"CA 5070 IF R$ = "N” THEN RETURN 
N OSUB 250 RREGA DE ": PRINT TAB( 10)"SLO 5080 НТАВ 1: VTAB 8: CALL - 9 
T 4510 НТАВ 5: УТАВ 5: PRINT "TE ) THEN NEXT : GOTO 4620 58: PRINT "CARREGA DE " 
| CLE [CR] PARA RETORNAR AO MENU” 4610 ТХ$(К) = ТХ$(К) + B$: GOTO 5090 УТАВ 10: CALL - 868: INP 
0 | : HTAB 5: PRINT "NOME DO ARQUIV 4600 UT "SLOT? ";11 
y 02": INPUT "->";FS 4620 PRINT CHRS (1): PRINT DS 5100 IF L1 < 1 OR Ll > 7 THEN 
, 4520 IF FS = "” THEN RETURN ;"CLOSE": RETURN 5090 
с 4530 IF ASC (FS) < 65 OR ASC 5000 HOME :BLS = "CONFIGURA ЕИ 5110 UTAB 11: CALL - 868: INP 
1 (Е$) > 90 ТНЕМ 4500 S": GOSUB 250 UT "DRIVE? ";L2 
F 4540 FS = FS + ".TXT" T ";Ll; PRINT TAB( 10)”DRIVE ” 5120 IF L2< >1ANDL2< > 
4550 PRINT D$;"OPEN";F$;",S";L  ;L2 2 THEN 5110 
s 1;",D"iL2 5040 PRINT : PRINT : PRINT TA 5130 VTAB 14: PRINT "GRAVA EM” 
* 4560 PRINT D$;"READ";F$ B( S)"GRAVA EM ": PRINT TAB( 1 5140 VUTAB 16: CALL - 868: INP 
4570 INPUT CP,TL 0) "SLOT ";Sl: PRINT TAB( 10)"D UT "SLOT? ";51 
4580 FOR K = 1 TO TL - 1 ВІУЕ ";52 5150 IF 81 < 1 OR 81 > 7 THEN 
4590 ТХҘ(К) = "" 5050 PRINT : PRINT : PRINT "QU 5140 
4600 GET B$: IF B$ = CHR$ (13 ER ALTERAR? "; 5160 УТАВ 17: САМ. - 868: ІМР 
N UT "DRIVE? ";82 


5170 ІЕ 82 < » 1 ANDS2€ » 
2 THEN 5160 

5180 GOTO 5020 

5200 RETURN : REM LINHA TEMPO 
RARIA 

5300 RETURN : REM LINHA TEMPO 
RARIA 

5500 HOME :BLS = "CONFIGURA IM 
PRESSORA": GOSUB 250 

5510 УТАВ 5: PRINT "CONFIGURAC 
AO ATUAL:" 

5520 PRINT : PRINT : PRINT "LA 
RGURA DA LINHA: ";MW;" COL." 
5530 PRINT "LARGURA DO TEXTO: 
";TW;" COL." 

5540 PRINT : PRINT "COMPRIMENT 
O DA PAG.: ";PL;" LINHAS" 

5550 PRINT "COMPRIMENTO DO TEX 
TO: ";TH;" LINHAS" 




























5560 PRINT PRINT : PRINT "QU 
ER ALTERAR? "; 
5570 IF R$ < > "5" АМ 


D R$ 

5580 

5590 

58 
5600 УТАВ 8: INPUT "LARGURA DA 
LINHA? ";MW 

5610 МЫ = ІМТ (MW): IF MW < 1 


THEN 5570 
"N" THEN RETURN 
: VTAB 5: CALL - 9 



















THEN 5600 
5620 VTAB 9: INPUT "LARGURA DO 
TEXTO? ";TW 






5630 TW = INT (TW): IF TW < 1 
OR TW > MW THEN 5620 

5640 \ТАВ 11: INPUT "COMPRIMEN 
TO DA PAG.? ";PL 

5650 PL = INT (PL): IF PL € 1 
THEN 5640 

5660 VTAB 12: INPUT "COMPRIMEN 
TO DO TEXTO? ";TH 

5670 TH = INT (TH): IF TH € 1 
OK TH > PL THEN DOOU ` 

















5680 GP = INT ((MW - TW) / 2): 
LF8 = "";LP = INT ((PL - TH) / 
2) 


5690 IF LF = O THEN 5500 

5700 FOR Z = 1 TO LF:LFS = LFS 
+ CHR$ (13): NEXT 

5710 GOTO 5500 

10030 PRINT CHRS (4);"PR&1” 
10040 PRINT СНАҘ (9);"31N” 
10060 LIST 5200 - 

10070 PRINT CHR$ (4);"PR40" 












BB” ções de tempo. 








DE VÔO (1) 


Em matéria de jogos para computa- 
dor, variedade é o que não falta; você 
pode escolher desde a pura fantasia, in- 
do se aventurar num mundo imaginário, 
até a simulação de situações da vida 
real. Este último tipo de programa per- 
mite que testemos nossa habilidade em 
enfrentar toda sorte de perigo sem que 
com isto corramos risco de vida ou de 
perda material. 

Programas de simulação de vôo, es- 
pecificamente, têm uma aplicação pr 
tica muito importante: companhias aé- 
reas e escolas de aviação fazem uso de- 
les no treinamento de seus pilotos. Po- 
rém, não falta a tais programas um to- 
que de fantasia: sozinho na cabine de 
comando, toda a tripulação acometida 
por uma doença misteriosa, você ater- 
rissa o avião em segurança, usando ape- 
nas uma das mãos. 


PROGRAMAS DE TREINAMENT! 


Para treinar pilotos de verdade, 
empregam-se simuladores totais ou ''fa- 
se 3”, no jargão de aviação. Estes simu- 
ladores, muito sofisticados, permitem 
que o usuário experimente todas as sen- 
sações de um piloto em situação real de 
vôo. Ele poderá ver o que o piloto vê 
de sua cabine, terá a impressão de ater- 
rissar, decolar e enfrentar turbulência e 
ouvirá os sons de um vôo autêntico, in- 
clusive os comandos do controle de trá- 
fego aéreo. Teoricamente, um piloto po- 
de completar seu treinamento em um si- 
mulador desse tipo, sem jamais ter saí- 
do do chão. 


SIMULADORES DE MESA 


Os programas de simulação de vôo 
em microcomputadores são, a exemplo 
do nosso, bem menos complexos, mas 
mostram-se também muito úteis para o 
desenvolvimento dos reflexos do piloto. 

Os simuladores de mesa são essen- 
ciais para o ensino de vôo por instru- 
mentos, um artifício que permite ao pi- 
loto dirigir o aparelho baseado apenas 
nos instrumentos do painel — o que po- 
de ser necessário no caso de más condi- 











0 QUE FAZ NOSSO SIMULADOR 


Nosso programa será apresentado em 
trés partes. Ele supóe que o piloto assu- 
miu o comando a 2.000 metros de al- 
titude e a 20.000 metros do centro da 
pista. Pela janela, pode avistar o ho- 
rizonte (quando há visibilidade) e um 
ponto distante, que é a cabeceira da 
pista. Do mesmo modo que um piloto 
experiente, vocé deverá usar o racio- 
cínio para tomar decisóes corretas — 
baseando-se nos instrumentos do painel 
— e trazer seus passageiros ao solo 
com segurança. 


0S INSTRUMENTOS 


о 











O painel tem quatro mostradores 
primeiro informa a velocidade do ve: 
to (airspeed). Esta varia conforme este- 
jamos mergulhando (a velocidade au- 
menta), subindo (diminui) ou mudando 
a potência do motor. Um contador lo- 
go abaixo do de velocidade indica a in- 
clinação do vento (bearing). 

Um segundo mostrador revela o ní- 
vel do horizonte em relação ao aeropla- 
no. Por meio dele, mesmo sem visibili- 
dade, saberemos onde o horizonte está. 
O contador logo abaixo aponta a dire- 
ção da pista de pouso (runway). 

O terceiro mostrador é um altimetro 
com dois ponteiros: um para centenas 
e outro para milhares de metros. O con- 
tador abaixo calcula o desvio do apare- 
lho do centro da pista (drift). Como ela 
tem 100 metros de largura, um desvio 
de +50 ou -50 ao aterrissarmos será fa- 
tal. O último mostrador indica as rota- 
ções do motor por minuto (rpm). O con- 
tador abaixo fornece a distância do cen- 
tro da pista. 


ATERRISSAGEM 


No TRS-Color, a imagem que vemos 
da cabine torna-se mais clara à medida 
que nos aproximamos do solo. Ao con- 
trário dos outros micros, onde o piloto 
precisa se orientar pelos dados do pai- 
nel, no TRS-Color pode-se observar a 
pista. Quando assumimos o controle, a 
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UM SIMULADOR 


Nosso programa de simulação é muito 
semelhante aos utilizados para treinar 
pilotos em vôo por instrumentos. 

A seção apresentada neste artigo 
desenha a cabine de comando. 


pista está ao norte e as condições de tem- 
po são boas. Aterrissar nestas condições 
é fácil, e o jogo perderia toda a graça 
se não houvesse outras situações. Para 
criar dificuldade, podemos mudar a ve: 
locidade do vento: uma rajada lateral, 
por exemplo, dificulta muito a ater 
rissagem. 


CONTROLE DO AVI; 


O nível do controle que temos no si- 
mulador é o mesmo de que dispõe um 
piloto em condições reais — embora seja 
necessário pressionar botões em vez de 
usar um manche. 








Em um avião, o manche é puxado ou 
empurrado, movendo os estabilizadores 
da cauda para cima ou para baixo, con- 
forme estejamos querendo subir ou de: 
cer. Usaremos duas teclas para obter tal 
efeito. A seção do programa que cuida 
disso será apresentada no terceiro arti- 
go da série 

Para virar o aeroplano, o manche de- 
ve ser movido lateralmente, o que acio- 
na os ailerons da asa. Também usare- 
mos teclas para virar o avião. 

Dois outros controles nos permitirão 

erar ou retardar o motor, o que é 

sencial para realizar a aterrissagem de 
maneira correta ou evitar que o apare- 
lho mergulhe. 


UE É SIMULAÇÃO DE VÔO 
PROGRAMAS 

DE TREINAMENTO 
APRENDENDO À ATERRISSAR 
“VÔO POR INSTRUMENTOS 


VELOCIDADE MÍNIMA 


Os avióes nào conseguem voar abai- 
xo de uma certa velocidade. Em nosso 
programa, se a velocidade cair abaixo 
de 30 metros por segundo, o avião mer- 
gulhará, entrando em parafuso, £ 

tivermos a uma certa altitude, haverá 
tempo suficiente para evitar um desas- 
tre fatal, mas o perigo é iminente 


A DIVISÁO DO PROGRAMA 


Dividimos o programa em trés par- 
tes por ele ser muito longo e complexo. 


O PAINEL DO AVIÃO 


COMO CRIAR A SENSAÇÃO 
DE MOVIMENTO 

UMA ESCOLA DE 
PILOTAGEM EM CASA 


Na primeira parte, preparamos a te- 
la, desenhando o interior da cabine de 
comando, com o pára-brisa e os quatro 
mostradores e contadores. As legendas 
dos contadores e mostradores estão em 
inglês, como nos aviões reais. 

Os comandos BASIC da listagem já 

ão nossos conhecidos. Os usuários do 

TRS-Color, contudo, encontrarão um 
novo comando: PCOPY. Este é especí- 
fico desta linha de micros e, mais tar- 
de, será explicado em detalhes. 

Na segunda parte do programa, toma 
mos os instrumentos do painel sensíveis 
aos movimentos do avião. Uma seção 
temporária fará com que o aparelho voe 
ao acaso, sem piloto, para que possamos 
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ver os instrumentos funcionando. 

A parte final permitirá que você as- 
suma o comando e teste suas habilida- 
des na aterrissagem do avião. 


А САВІМЕ ОЕ А 


Para desenhar os instrumentos, digite 
a primeira parte do programa. 


1 POKE 23658,8 

110 GOTO 5000 
5000 LET PP--1: LET RR--1 

5010 LET C-PI/180: LET PY--2000 
: LET PZ=2000: LET AS=150 
5110 PLOT 10,175: DRAW 235,0: D 
RAW 0,-90: DRAW -235,0: DRAW O, 
90 
5120 FOR K=0 TO 3: 
60,50,20: МЕХТ К 


CIRCLE 35+K* 


5130 PRINT AT 12,2;"SPEED HOR 

ZN ALT RPM” 

5150 PRINT AT 20,0;"BEARING RU 

NWAY DRIFT” DISTANCE” 

5170 PLOT 87,50: DRAW 5,0: DRAW 
3,-3: DRAW 3,3: DRAW 5,0 

5180 LET X=35: LET Y=50: GOSUB 


7000: LET X=155: GOSUB 7000: LE 

T X=215: GOSUB 7000 

6900 STOP 

7000 FOR K=0 TO 2*PI STEP PI/5: 
PLOT X+17*SIN K,Y+17*C0S K: DR 

AW 2*SIN K,2*COS K: NEXT K: RET 

URN 


O POKE da linha 1 trava o compu- 
tador em letras maiúsculas. As linhas 
5000 e 5010 posicionam o avião no céu: 
a 2.000 metros de altitude e a 20.000 me- 
tros da pista, parado no ar. As linhas 
que movimentam o aparelho serão apre- 
sentadas no próximo artigo. 

A linha 5110 desenha a janela do 
avião, e a 5120, usando um laço 
FOR...NEXT, os mostradores abaixo 
dela. As linhas 5130 e 5150 imprimem 
'os rótulos para os mostradores. A linha 
5170 desenha um diagrama de avião no 
mostrador de horizonte — o horizonte 
artificial não será traçado por enquan- 
to. A linha 5180 e a sub-rotina 7000 cal- 
culam as posições dos números dos mos- 
tradores: velocidade do vento, altitude 
erpm. As funções SIN e COS são usa- 
das conforme explicações dadas no ar- 
tigo da página 334. 

Quando você executar o programa, 
o interior da cabine aparecerá na tela. 


10 SCREEN 2,2:COLOR 15,4,2 

20 FOR I-0 TO 7*32*8 

30 VPOKE BASE(11)*13*32*84I,8 
40 NEXT 

110 GOTO 5000 


BL 4000 OPEN "GRP:" FOR OUTPUT AS 





&1:PRESET(X,Y):PRINT $1,A$ 
4010 CLOSE $1:RETURN 

5000 PP=-1:RR=-1 

5010 РІ=4*АТМ (1) :С=РІ/180:РҮ=-2 
0000:PZ=2000:VV=150 

5110 LINE(10,0)-(245,80),2,B 
5120 FOR K=0 TO 3:CIRCLE(35*K*6 
0,128) ,25,2:NEXT 

5130 PAINT(255,191),2 

5140 X=35:Y=128:GOSUB 7000:X=15 
5:GOSUB 7000:X=215:GOSUB 7000 
5150 COLOR 1:X=6:Y=88:AS="AIRSP 
EED":GOSUB 4000:Х-78:А9-"НОВІ2" 
:GOSUB 4000 

5160 X=126:AS="ALTITUDE” :GOSUB 
4000:X=204:A$="RPM” :GOSUB 4000 
5170 COLOR 15:X=9:Y=160:A$="BEA 
RING” :GOSUB 4000:X=74:A$="RUNWA 
Y":GOSUB 4000 

5180 X-138:A$-"DRIFT":GOSUB 400 
0:X=188:A$="DISTANCE”:GOSUB 400 
0 

5190 DRAW "BM81,126C10R9FSE5R9” 
5500 GOTO 5500 

7000 FOR K=0 TO 9:LINE(X+21*SIN 
(K*PI/5) ,Y-21*COS(K*PI/5))-(X+1 
9*SIN(K*PI/5),Y-19*COS (K*PI/5)) 
»2: NEXT : RETURN 

A linha 10 seleciona a tela e suas co- 
res. O FOR...NEXT das trés linhas se- 
guintes muda a cor de fundo de parte 
da tela para vermelho médio — COLOR 
8. Assim, o fundo colorido dos mostra- 
dores nào sofrerá a interferéncia de co- 
mandos gráficos do BASIC que, em ge- 
ral, só atuam na cor de frente. 

A linha 110 transfere o programa pa- 
ra a linha 5000, que estabelece os valo- 
res iniciais de algumas variáveis. Junta- 
mente com a linha 5010, ela posiciona 
o avião no céu: a 20.000 metros do cen- 
tro da pista e a 2.000 metros de altitu- 
de, parado no ar. As linhas que movi- 
mentam o aparelho serão apresentadas 
no próximo artigo. 

A linha 5110 desenha a janela fron- 
tal do avião, e a linha 5120, os círculos 
dos mostradores. A 5130 colore todo o 
interior da cabine. A cor usada nessas 
três linhas deve ser a mesma. As linhas 
5140 e 5180 rotulam os mostradores e 
contadores do painel. Para escrever na 
tela gráfica é utilizada a sub-rotina da 
linha 4000. Esta abre um “arquivo” 
com saída para a tela gráfica — OPEN 
“GRP:” — e imprime o conteúdo da 
variável alfanumérica A$, a partir das 
coordenadas X,Y. 

A linha 5190 desenha um aeroplano 
esquemático no mostrador de horizon- 
te. As marcas nos mostradores sáo de- 
senhadas pela sub-rotina 7000. 

Executando o programa agora, o in- 
terior da cabine aparecerá na tela. 














10 НСА2- :Е = 35840:Т = 16384 
20 FORI*E-*32*8 TOE* 3 


2*8*464*8- 1: 
E I,B: 


100 
110 
120 
130 
,0 
140 
0,8 
150 
160 
‚0 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
‚0 
270 
‚0 
280 


0 
290 
‚0 
300 
‚0° 
310 


DATA 
DATA 
DATA 
DATA 


DATA 
n 

DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 


DATA 


NEXT 


READ B: POK 
0,0,0,0,0,0,0,0 
8,8,8,8,0,0,8,0 
18,18,18,0,0,0,0,0 
18,18,63,18,63,18,18 
8 ,60 


,10 ,28 ,40 ,3 


38,38,16,8,4,50,50,0 
12,18,18,12,82,34,92 


24,16,8,0,0,0,0,0 
32,16,8,8,8,16,32,0 
2,4,8,8,8,4,2,0 
0,8,42,28,28,42,8,0 
0,8,8,62,8,8,0,0 
0,0,0,0,0,24,16,8 
0,0,0,62,0,0,0,0 
0,0,0,0,0,24,24,0 
64,32,16,8,4,2,1,0 
28,34,38,42,50,34,28 


16,24,20,16,16,16,56 

28,34,32,24,4,2,62, 
28,34,32,24,32,34,28 
16,24,20,18,62,16,16 


62,2,2,30,32,34,28,0 


NS 











321 


33 
341 


35! 


361 
37 
38 
39! 
40 

4 

42 


0 
43 
44 


45 
46 


47 
48 
49 
50 


51 
52 










0 
330 DATA 
340 DATA 
‚0 
] 350 DATA 
,0 
; 360 DATA 
370 DATA 
) 380 DATA 
y ‚ 390 DATA 
400 DATA 
É ao DATA 
š 420 DATA 
т 0 
q 430 DATA 
Ê 0 
: 440 DATA 
‚0 
450 DATA 
460 DATA 
| ‚0 
470 DATA 
480 DATA 
490 DATA 
0 
500 DATA 
‚0 
510 DATA 
520 DATA 
‚0 








28,34,2,30,34,34,28, 


62,32,32,16,8,8,8,0 
28,34,34,28,34,34,28 


28,34,34,60,32,34,28 


0,24,24,0,0,24,24,0 
0,24,24,0,0,24,16,8 
32,16,8,4,8,16,32,0 
0,0,0,62,0,62,0,0 
4,8,16,32,16,8,4,0 
28,34,32,16,8,8,0,8 
28,34,58,42,58,2,60, 


8,20,34,34,62,34,34, 
30,34,34,30,34,34,30 


28,34,2,2,2,34,28,0 
30,34,34,34,34,34,30 


62,2,2,62,2,2,62,0 
62,2,2,30,2,2,2,0 
28,34,2,58,34,34,28, 
34,34,34,62,34,34,34 


24,8,8,8,8,8,28,0 
56,16,16,16,18,18,28 


34,18,10,6,10,18,34, 


DATA 
DATA 


DATA 


DATA 


DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


DATA 
DATA 
сото 


2,2,2,2,2,2,62,0 
65,99,85,73,65,65,65 


34,38,42,42,50,34,34 
28,34,34,34,34,34,28 


30,34,34,30,2,2,2,0 
28,34,34,34,42,50,60 


30,34,34,30,18,34,34 
60,2,2,28,32,32,30,0 
62,8,8,8,8,8,8,0 
34,34,34,34,34,34,28 
34,34,34,34,34,20,8, 
65,65,65,73,85,99,65 
34,34,20,8,20,34,34, 
34,34,34,20,8,8,8,0 
62,32,16,8,4,2,62,0 
60,4,4,4,4,4,60,0 


1,2,4,8,16,32,64,0 
30,16,16,16,16,16,30 





4000 
4010 
4020 
4030 
4040 
40 * 
4050 


N*L*40*C 
FOR J * 1 TO 
B$ = MIDS 


LEN (A$) 
(A$,J,1) 

ASC (BS) 

INT (N / 40):C = N - 


B = 
L= 
L 
FOR I = 0 TO 7 
4060 POKE T * (L - 8 * (L > 7) 
- 8 * (L > 15)) * 128 * 40 * ( 
L > 7) * 40 * (L » 15) * C * 10 
24 * I, PEEK (E * B * 8 * I) 
4070 NEXT I:N = N + 1: NEXT J 
4080 RETURN 
5000 РР = - 1:RR= - 1 
5010 РІ = 4 ж АТМ (1):С = РІ / 
180:C1 = РІ / 10:РҮ = ~ 20000 
1Р2 = 2000:АЗ = 150 
5110 HGR2 : HCOLOR= 6: HPLOT 1 
0,0 TO 276,0 TO 276,80 TO 10,80 
TO 10,0 
5120 HCOLOR= 3: FOR K = 0 TO 3 
HPLOT 71 * K * 68,134: FOR I 
* 0 TO 10 STEP PI / 10: HPLOT 
TO 42 + K * 68 + 30 * cos (cl 
+I*PI/5),134 + 26 * SIN ( 
Cl * I * PI / 5): NEXT I,K 
5130 C = 2:L * 12:A$ * "AIRSPEE 
D": GOSUB 4000:C * 12:AS = "HOR 


IZON": GOSUB 4000 

5140 C = 22:A$ - "ALTITUDE": GO 
SUB 4000:C - 33:A$ = "RPM": GOS 
UB 4000 








5150 C = 2:1. = 21:AS = "BEARING 
": GOSUB 4000:C = 13:A$ = "RUNW 
AY”: GOSUB 4000 

5160 C 7 23:A$ - "DRIFT": GOSUB 
4000:C = 31:AS = "DISTANCE": G 
OSUB 4000 

5170 HCOLOR= 5: HPLOT 85,134 T 
O 104,134 TO 109,144 TO 114,134 
TO 134,134 

5180 HCOLOR= 3: FOR K = 0 TO 3 
t IF K = 1 THEN NEXT K 

5190 FOR 1 = 0 TO 9: HPLOT 42 
+ K* 68 + 28 х COS (C1 + 1 * 
PI / 5),134 + 24 * SIN (Cl * I 
* PI / 5) TO 42 * K * 68 * 26 
* COS (Cl * I * PI / 5),134 * 
22 * SIN (Cl * I * PI / 5): NE 
XT I,K 


[dl 


Os usuários do TK-2000, além de não 
copiarem as linhas de 10 a 4080, devem 
fazer as seguintes modificações no 
programa. 


740 GOTO 5000 
4000 HTAB C + 1: 
RINT AS 

4010 RETURN 
5100 MP 

5120 HCOLOR= 3: FOR K = 0 TO 3 
:XX = 71 + K * 68:YY = 134: FOR 
1 = 0 TO 10 STEP PI / 10:X = 4 
2 +K * 68 + 30 х СОЗ (СІ + І 
* PI / 5):Y = 134 + 26 * SIN ( 
Cl * I * PI / 5): HPLOT XX,YY T 
O X,Y:XX * X:YY = Y: NEXT I,K 


As linhas iniciais criam um banco de 
blocos no topo da memória, para que 
o Apple possa escrever na tela. Essas li- 
nhas já foram apresentadas em artigo 
anterior, quando explicamos o uso de 
blocos gráficos: pode ser, portanto, que 
você não precise digitá-las novamente. 
O TK-2000 pode escrever na tela gráfi- 
ca sem esse artifício; assim, seus usuá- 
rios devem começar a digitação a partir 
da linha 5000. 

Como vamos utilizar a página 2, ar- 
mazenamos o banco de blocos em ou- 
tra área da memória, devidamente reser- 
vada por meio de HIMEM:. 

A sub-rotina que começa na linha 
4000, responsável pela impressão de pa- 
lavras na tela gráfica, é essencialmente 
a mesma publicada em artigo anterior, 
só que com outro número de linhas. Os 
usuários do TK-2000 dispõem de uma 
versão bem mais simples dessa sub- 
rotina. Na realidade, ela poderia ser dis- 
pensada neste micro; resolvemos 
introduzi-la aqui para que os programas 
do Apple e do TK-2000 não ficassem 
muito diferentes. 

As linhas 5000 e 5010 posicionam o 
avião no céu: a 20.000 metros do cen- 
tro da pista e a 2.000 metros de altitu- 
de, parado no ar. As linhas que movi- 


VTAB L * 1: P 


mentam o aparelho serão apresentadas 
no próximo artigo. 

A linha 5110 desenha o pára-brisa do 
avião. No TK-2000 há um comando MP 

«para ativar a segunda página de vídeo; 
no Apple, isso é feito por HGR2. Note 
que o programa do TK-2000 deve con- 
ter HGR2 também, para permitir o uso 
das linhas inferiores da tela. 

А linha 5120, um pouco diferente pa- 
ra os dois micros, desenha os círculos 
dos mostradores. As linhas 5130 a 5160 
rotulam os mostradores e contadores do 
painel em inglés, como nos aviões reais. 
A 5170 traça o diagrama de um aeropla- 
no no mostrador de horizonte. As mar- 
cas nos mostradores são feitas pelas li- 
nhas 5180 e 5190. 

Ao ser executado, o programa dese- 
nhará o interior da cabine de nosso apa- 
relho imaginário. 


10 PCLEAR 8:PMODE 4,1 
20 DIM LES(26) * 
FOR K=0 TO 26:READ LES(K) :Ni 





40 FOR K=0 TO 9:READ NUS(K) :NEX 


50 DATA BR2,ND4R3D2NL3ND2BE2,ND 
4R3DGNL2FDNL 3BU4BR2 , NR3D4R3BU4B 
R2,ND4R2FD2GL2BE4BR, NR3D2NR2D2R 
3BU4BR2 

60 DATA NR3D2NR2D2BE4BR, NR3D4R3 
U2LBE2BR,D4BR3U2NL3U2BR2,ND4BR2 
+BD4REU3L2R3BR2,D2ND2NF2E2BR2 
70 DATA D4R3BU4BR2,ND4FREND4BR2 
, ND4F 3DU4BR2 , NR3D4R3U4BR2 , ND4R3 
D2NL3BE2, NR3D4R3NHU4BR2 

B0 DATA ND4R3D2L2F2BU4BR2 , BD4R3 
U2L3U2R3BR2,RND4RBR2,D4R2U4BR2, 
D3FEU3BR2,D4EFUABR2 

90 DATA DF2DBL2UE2UBR2,DFND2EUB 
R2,R3G3DR3BU4BR2 

100 DATA NR2D4R2U4BR2,BDEND4BR2 
.R2D2L2D2R2BU4BR2, NR2BD2NR2BD2R 
2U4BR2 , D2R2D2U4BR2 , NR2D2R2D2L2B 
E4,D4R2U2L2BE2BR2, R2ND4BR2 , NR2D 
4R2U2NL2U2BR2,NR2D2R2D2U4BR2 
110 GOTO 5000 

4000 FOR K=1 TO LEN(AS) 

4010 BS=MIDS(AS,K,1) 

4020 IF B$>="0" AND B$<="9" THE 
N DRAW NUS (VAL (B$)) :GOTO 4050 
4030 IF BS=" " THEN N=0 ELSE N= 
ASC(B$)-64 

4040 DRAW LES(N) 

4050 NEXT :RETURN 

5000 PP=-1:RR=-1 

5010 PI=4*ATN(1):C=PI/180:PY=-2 
0000:PZ=2000:VV=150 

5110 PCLS:LINE(10,0)-(245,80),P 
SET,B 

5120 FOR K=0 ТО 3:CIRCLE(35+K*6 
0,120),25,5:NEXT 

5130 DRAW "BM18,8884":A$-"AIRSP 
EED":GOSUB 4000:DRAW "BM80,88": 
AS="HORIZON” :GOSUB 4000 

5140 DRAW "BM140,88":AS-"ALTITU 
DE":GOSUB 4000:DRAW"BM208,88":A 





S="RPM” :GOSUB 4000 

5150 DRAW "BM18,160":AS="BEARIN 
G":GOSUB 4000:DRAW"BM82,152":A$ 
="RUNWAY” :GOSUB 4000:DRAW"BMBO, 
160" :AS="BEARING” :GOSUB 4000 
5160 DRAW"BM144,160":AS="DRIFT” 
:GOSUB 4000:DRAW"BM200,160":A$* 
"DISTANCE":GOSUB 4000 

5170 DRAW"BM81,118R9F5ES5R9" 
5180 X=35:Y=120:GOSUB 7000:X=15 
5:GOSUB 7000:X=215:GOSUB 7000 
5190 PCOPY 3 TO 5:PCOPY 3 TO 7: 
PCOPY 4 TO 6:PCOPY 4 TO B:SCREE 
N 1,1 

5500 GOTO 5500 

7000 FOR K=0 TO 9:LINE(X+24*SIN 
(K*PI/5),Y-24*COS (K*PI/5))-(X*2 
1*SIN(K*PI/5),Y-21*COS (K*PI/5)) 
,PSET:NEXT:RETURN 





A primeira parte do simulador inclui 
um comando ainda nào utilizado em IN- 
PUT: PCOPY, que assegura a movi- 
mentação suave da imagem na tela. 

As linhas 20 a 110 preparam as ma- 
trizes que não contêm os blocos gráfi- 
cos necessários ao desenho da cabine. A 
sub-rotina das linhas 4000 e 4050 impri- 
me os gráficos na tela. 

As linhas 5000 e 5010 posicionam o 
aparelho no céu: a 20.000 metros do 
centro da pista e a 2.000 metros de alti- 
tude, parado no ar. As linhas que mo- 
vimentam o aparelho serão apresenta- 
das no próximo artigo. 

A linha 5110 desenha o pára-brisa, 
5120 desenha os círculos dos mostrado- 
res, e as linhas 5130 a 5160 rotulam os 
mesmos — em inglês, como nos aviões 
reais. A linha 5170 coloca o diagrama 
de um avião no mostrador de horizon- 
te. As marcas nos mostradores são de- 
senhadas pela linha 5180 e pela sub- 
rotina da linha 7000. 

Os comandos PCOPY na linha 5190 
desenham gráficos em páginas ainda in- 
visíveis e depois copiam-nos na tela. As- 
sim, auxiliam a preservar os desenhos do 
fundo, que são atualizados antes de se- 
rem transferidos para a tela, de modo 
que o lapso de tempo entre um quadro 
e outro seja mínimo. Isso significa que, 
quando o aeroplano está em movimen- 
to, os mostradores são alterados de 
acordo, simultaneamente. Sem PCOPY, 
apenas um mostrador poderia ser atua- 
lizado de cada vez. 

Ао executar esta seção do programa, 
o interior da cabine aparecerá desenha- 
do na tela. 

No próximo artigo, apresentaremos 
as linhas que fazem o avião voar, em- 
bora ainda sem controle. Ele vagará pe- 
los céus, mergulhando e subindo ao aca- 
so. Você poderá controlá-lo quando 
concluir o programa, no terceiro e últi- 
mo artigo. Finalmente, a vida dos pas- 
sageiros estará em suas mãos. 





AMPLIE O BASIC 
DO TRS-COLOR 


O BASIC do TRS-Color não é intocável. O BASIC é apenas um programa em 


Pode-se modificá-lo para incluir novos linguagem de máquina funcionando em 
seu microcomputador. Ainda que as ins- 


comandos, o que é útil sobretudo quando truções executadas estejam codificadas 


o micro executa tarefas que empregam na сона ROM, no IR COR é pos- 
7 " sível fazer algumas modificações para 
certas rotinas repetidas vezes. criar HOVOS coriandos: 


Б J 


=-_ 


PLANEJAMENTO DAS 

NOVAS INSTRUÇÕES 

O QUE É UM STUB 

NOVOS COMANDOS NO MICRO 
RECUPERAÇÃO DE PROGRAMAS 


Esta possibilidade revela-se bastante 
útil nos casos em que usamos o compu- 
tador para realizar uma tarefa especifi- 
ca que emprega determinadas rotinas re- 
petidas vezes. Neste artigo, criaremos 
duas novas instruções destinadas ao mi- 
cro TRS-Color. 


+ 














A rotina que se segue acrescenta dois 
comandos ad BASIC do TRS-Color: 
OLDyque permite a recuperação de um 
programã apagado acidentalmente Com 
NEW, e INVERT, que troca o grupo de 
quatro cores que estiver sendoguliliza- 
do na tela gráficas 


10 onc 31900 
20 SETUR LDX #298; 
30 LDui4308 


40 STONE LDA ,X+ 
50 5ТА 0+ 

60 CMPX 4308 

20 ВІ. 8ТОМЕ 

Bo LDA 02 

90 STA 298 

100% LDX PNEWRDS 

1106 sTX 299 

120 У/1рх aNEWbsP 

1307 sTx 301 

140 LDX &NEWUSR 

150 sTX 176 

160 LDU 458B8D 

170 LDA 410 

180 STTWO JSD, X++ 
190  DEGN 

200 BNE-STIWO 

210 RTS 

220 NEWRDS/ECB 79, 267196 
230 Есв 73,78,86,69,82,212 
240 NEwDSP ОМРА”Ұ5СЕ 
250 BLO NDONE 

260 СМРА #500 

270 BHS NDONE 

280 SUBA 4$CÉ 

290. 4bDX ANEWTBL 

300), MP S84ED 

310 ¿¿NDONE JMP $89B4 
3209 01р гро 25 

330 PsHS U 

340 LEAX 4,U 

350 OLDONE LDA, (X4 
360 ВМЕ OLDONE 

370 TER XD: 

380 SUBD ,53% 

390 TSTA 

400 BEQ OLDAWO 

410 ЈМР SdB8D 

420 OLDTWO STM ,U 
430 OLDTHR TER X,U 
440 LDX ,U 

450 BNE OLDTHR 

460 LEAU 2,U 

470 STU 27 

480 sTU 29 

490* STU 31 

500* RIS 

5108: INVERT LDA 65314 
520, “EORA 48 

530 STA 65314 

540 RTS 

550 NEWTBLÜEDB- 57964 
560 FDB 87989 

570 NEWUSR EQU * 


E É UM STUB 


Para acrescentar comandos dO pro- 


grama BASIC, é necessário que reser- 
vemos as palavras gorrespondentes. Te- 
mos, assim, que ampliar lista de pala- 
vras.reservadas, bem comg dirigir o ВА- 
SIC aos programas em código que exe- 
Cutam'as novas funções. 

A posição das rotinas queexêcutam 
os comandos BASIC é apontada por de- 
terminados vetores — ou apónifadores: 
= que ficam em porções da memória: 
denominadas" subs. Existem norinal- 
mente dois sfbs, cada um ocupando 
dez bytes da memória RAM. O segun- 
do deles, porém, é só um sinalizador de 
final détabela, não tendo outra função. 

Quando acrescentamos instatições des 
vemos criar também uma sflb que aponte 
para as novas rotiflas Mas, antes dis- 
so, é preciso deslocar stub que indica 
o fim da tabela pará lima posição mais 
altá na memória, criando o espaçó me- 
cessários 

о endereço, inicial do segundo : stub é 
298, e as primeiras seis instrucóes do 
programa aqui apresentado transferem 
no para 308. O registro X à usadoséos 
mo apontádor pára q stub Original, en- 
Qquafito'o registro U/dponta para sua no- 
va posição. Os operandos ,X + e ,U+ 
Inerementam esses apôntadores a cada 
volta do laço STONE. 

Este programa não pode ser usado 
en Sistemas com disquete, 00% 09 Сом 
mandos de disco usam o megio stub- 


CRIAÇÃO DE UM NOVO STUB 


Uma vez garantido o espáço necessá- 
Fio na memória de atesso aleatório eter- 
minado o lago. SFONE, passámosá cria- 
ção do novo stub. 

O, primeiro byte dessenovo sulbigor- 
responde ao número deinstruções apon- 
tadas por ele. Portanto, LDA &2 e STA 
298 colecám o número 2 no primeiro 
byte. 

Os doispróximos bytes trazem o en- 
dereçó da tabela de nomes de comandos. 
Estes nomes aparecem imediatamente 
após o rótulo NEWRDS; ont suas/de? 
tras codificadas umi uma em ASETI. 

ó não ocorre o mesmo com a última 
letra dá.cada palavia, que se distingue 
porter seu bit mals;significativo ativa- 
dosAssim, D — ültiiirà letra do coman- 
do OLD — é representâda pelo seu có- 
digo ASCII, 68, mais,10000000 em 
nário ou 128 em decimal (68 + 128 
196).Dá mesma manéiráho T de IN= 
VERTF' será 212 e náo 84. 

Finalmente, quarto o e quinto bytes 
trazem'O endereço inicial das rotinas que 
executamos Comandos. Esse endereço 
é engüntrado nos bytes após o rótulo 
NEWTBL. 








ADICIONE SEUS PRÓPRIOS COMANDOS 

Depois de entender como funcio- 
nam os stubs no reconhecimento dos 
comandos BASIC, o programador po- 
de criar seus próprios comandos. Quem 
já tem uma certa experiência deve co- 
meçar pelos comandos sem operan- 
dos, como os deste artigo. Qualquer ro- 
tina pode se transformar num coman- 
do desse tipo. Basta o BASIC encon- 
trar o novo comando em uma linha de 
programa, e o controle é desviado pa- 
ra a rotina em código cujo endereço es- 
tá no stub. Após sua execução, о соп- 
trole retorna ao interpretador. 

Comandos que operam sobre núme- 
ros ou variáveis exigem muito do pro- 
gramador. Se os números não forem in- 
teiros, ele terá de conhecer os segre- 
dos da aritmética de ponto flutuante e 
dos números decimais codificados em 
binário. Além de um bom conhecimen- 
to de linguagem de máquina, é preciso 
um profundo domínio da arquitetura do 
TRS-Color; ao mesmo tempo, deve-se 
saber onde ficam as variáveis do sis- 
tema, como são armazenadas as variá- 
veis e as linhas BASIC, e onde podem 
ser colocados temporariamente os va- 
lores dos operandos. 


VETORES USR 


О ЎЫ аце fica nos endereços 176 
e 177 apoñifá para as posições que i 
têm o éfideteco de rotinas USR. 
posições ficam geralmente logo h 
do segundo stub, em uma tabela quêgo- 
meça em 308,4Oegundo stub, comtu- 
do, foi empurrado pára dentrolidessa 
áreaspafagrar espaço para o novo skab, 
аё отта que a área USR também pres 
cisa ser Telocada. 

LDX SENEWUSR'eSTX«76 color 
cam o endereco do rótulo NEWUSR bas: 
posições 6 8177. EQU *; quê fica lgs 
go após NEWUSR, no finalsdo progra- 
ma, reservaloS próximos bytes para a ta- 
bela USR. 


OS CÓDIGOS 





COMANDOS 





S Ni 


O código de maior valor usado pelo 
BASIC é CD. Assim, os códigos dos 
dois novos comáândos serão ЕСЕ. 

CMPAHSCE cBLO NDONE Neris 
ficam se Oeódigoda instrução está abale 
xo do valoriios novas códigos. Se isso 
ocorrer & primeiro stublião tiver re. Y 
conhecido b comarido, hatrv&lum erro s 








de sintaxe, Q. microprocessador é, en- 
tão, enviado do sótulo NDONE que, 
porSua Vez, provoca um saltopara o en- 
dereço 89B4 — uma sub-rotinâida ROM 
que Emite uma ménsagem de errof 

CMPA +5$0.cBHS NDOME fazem o 
mésmo se ocódigo formaior que EF, ou 
sejasé ele estiver acinfayda faixa em que 
ficam oS. códigos даѕап@”аѕ іп $65. 

Seb código passar por esses dois tes- 
tes, ficacômprovadoigue ele correspon- 
de a um dos avos comandos. O pro- 
grama,sênião, segue em frente. CE, é 
subtráido do valor do código, quesestá 
em A. O resultado permanece em A. 

O endereço inicial da tabela deênde- 
recos dos novos comandos é colocado 
em X. Assimyduando;o processáder vai 
рага МЕР -- итатоВпа ашеешда do 
recónhecimento dosavários comâandos, 
BASIC —, leva consigo os valores cofi- 
паб ёп Х е ет Ag 


ROTIN COMANDO OLD 


Quandô usamos NEW para apagar 
um progralgapas valores de diversas va- 
riáveis delsistema modificam-se. Se res; 
faurarmos os valores dessas variáveis 
antes de digitarmos outro programa lou 
de usarmos um comando PCLEARgpo- 





























Só há uma forma de o micro aceitar 
instruções adicionais? 

Não, Embora os diversos modelos 
de micro tenham um BASIC semelhan- 
te, o programa que o entende varia 
muito de um para outro: alguns não 
têm stubs, e novas instruções devem 
ser adicionadas sem estes. 

Podemos chamar de "'sistema" o 
programa existente na ROM que enten- 
de o BASIC. Ele deve ser muito bem or- 
ganizado para poder associar a cada 
comando a rotina em código certa 
(muitas vezes os comandos agem so- 
bre operandos, o que complica ainda 
mais a tarefa do sistema). Assim, ele 
mantém diversas tabelas com endere- 
ços e valores que o orientam na inter- 
pretação do BASIC. Os stubs nada 
mais são que tabelas desse tipo. Mas 
existem outras. A principal maneira de 
se adicionar novos comandos ao BA- 
SIC de uma máquina consiste em alte- 
rar determinados valores nessas tabe- 
las de controle. 







deremiós recuperar o programa amtigo. 
O comando NEWimodificagasidois pri- 
meiros. bytes dá.primeiraifimha do pro- 
grama quése quer refitperar. Esses bytes 
indicamPO endereço inicial da linha se- 
guinte. Qliras variáveis do sistema que 
apontam o final da área do programa 
BASIC também sáo modifiéadas. O que 
o comando OLD fazê restaurar O valor 
original de todos esses apontadores. 

A rotina que cuida disso começa com 
a instrução LDU 25, que coloças con- 
teúdo das posições 25 e 260 терізіго 
U, Elas contêm o endereço inigialido 
programa BASIGS PSAS U coloca este 
valor na pilha,“para que possamos 
recuperáslo mais tarde. 

A imsiração LEAX 4,U cuida doen- 
derego do byte 4,жотиайоГа partir do 
inicio do» BASIC. Os dois primeiros 
bytes — 0 h— continham o endereco 
da próximallimha. Os dois seguintes — 
2e3 —, o número da linha. Assim, U 
contém agora o primeiro byie da-linha 
propriamente dita. 

LDA ,X+ colocageste bytégno acu- 
mulador e incrementa X. BNE OLDO- 
NE faz osprocessador repetif essa ins- 
trugão até encontrar um zero, QueSina- 
fiza O finalida linha BASIC. 

Quando o programa encontra um ze- 
ro e sai do laço, X já foi incrementado 
e aponta pafãB.endereço inicial da pró. 
xima, linha-BASIC. 


Mis iba ir 


Se o comando OLD for acionado 
sem, que "haja um programa BASIC 
aproveitável na memória, devemos im- 
pedir que o lixo que ponvéntura esteja 
na área BASIC seja feguperado. Preci- 
samos, assim, de um teste que verifique 
se a primeira linha aínda faz sentidos 

Paraifazer isso, o canteúdo do apón- 
talor K t colocado em D'e dele subtrai- 
mos o último. itêm da pilha => 0 endere- 
$0 inicial do BASIC — com SUBD 
SF +. O resultado indica oscompri- 
mento da primeira linha, que permanes 
ce armazenadálem D. O apontador da 
pilha édecrémentadoç que retira o en- 
dereço inicial do BASIC da pilha. 

ESTA testa o acumulador A, isto é 
verifica o conteúdo do byte mais signi: 
ficalivode D (os registros A e Bjuntos 
coristittiem o registro D) e estabelece os 
sinalizadores de acordo. BEQ “OLD - 
TWO salta as instruções seguintes, Se o 
sinalizador. gêrobfoi ativado. Selo con- 
teúdo,de A'náo fof zero, o registro D 
continha um valor maior que 25$ — o. 
maior número de bytes que uma linha 
ВАЗ pode conter qNesse casa, O рго- 
cessadoré enviado para afótina dame- 














mória ROM, em 8B8D'que emite uma 
mensagem de erro. E 


ESTAURE OS APONTADORES 


Offegistro U aponta pára.d primeiro 
byte“da primeira linha BASLO; Assim, 
para restaurar o apontador do micio da 
linha següifite, colocamos o valgpde X 
no enderéco.apontado por U, usando 
STX ,U. 

O passo.segilifite é descobrir onde fi- 
ca o final/da átea do programa BASIC, 
O laco OLDTHR trata disso. 

Como os dois primeiros bytes" de 
qualquer linha apontam pará O Ф, да 
seguinte, é fácil аг de linha erviiuha, 
transferindo à conteúdo de X pará De 
colocando em X o valor contido rtas pos 
sições apontadas por U. X contém Gens 
дегесо da próxima linha, que é colcado 
em D/ U aponta, então, para os dois, 
bytés Que contém o endereço da linha 
quéficasainda mais adianjef'este valor, 
é cológado em X. 

O mesmo laço é executado repetidas 
vezes, atéque se encontrara linha cu- 
jos dois primeirosdytes Sejam 00 00. Es- 
te é o final do programa BASIC. Quan» 
do ele é encontrado, o processados Sab 
do laço. 

O endereço que fica logo acima des- 
ses dois últimos bytes é colocadg Em U, 
que passa a apontaPpara o início dálârea 
das variáveis: 

STU, STU29, e STU 31 copiam 
esse endereço fas variáveis do sisii 
que ficam em 28 29, apontando paña 
o início da área degariáveis; em 29 е 30 
apontando рага início da tabela dê 
matrizes; e em 31 €3P, apontando para 
o topo da RAM usada: 

RTS retorna ao BÁSIG; 


A ROTINA INVERT 


Aposição de memória FF22 fica na 
memória de entrada e saída, — 1/0 — 
de periféricos e controlalA $aida de da- 
dos gráficos parasaliela: O bit * dessa 
posição determina o grupo de Cores que 
está sendo Н адо. 

LDA SERZ2 coloca o conteúdo da- 
quele endereço no acumulador e a bit,3 
é alterado pela operaçãó lógica “omex- 
Elusivo”, entre Ale 8 (00001000, envbi- 
пано): Q resultado é recolocadotem 
FF22 ¿e RTS volta ao BASIC. 

AS 
grupos te Cores, fazendaitóm que tudo 
loque está representado ma cor de um 
grupo assifmãa cor correspondente do 
outro grupo de cores. 

O programa náo é recolocável. 





